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SECTION  I 
INTRODUCTION 

General 

REAL  SCAN  -  Real  Environment  Algorithm  for  Line  SCANning  -  is  a 
research  program  under  Naval  Training  Equipment  Center  Contract 
N61339-80-D-0014.  The  objective  of  this  program  is  to  investigate 
techniques  for  providing  computer  synthesized  Imagery  to  a  pilot 
trainee  in  a  flight  simulator.  Existing  computer  image  generators 
(CIG)  have  two  basic  deficiencies:  the  creation  of  polygon  models  of 
real  world  environments  is  an  off-line  process  which  is  extremely 
manpower  Intensive  and  expensive,  and  the  limitation  on  scene  com¬ 
plexity  (i.e. ,  the  number  of  polygons  in  the  scene)  caused  by  the 
limited  number  of  polygons  which  can  be  processed  in  real  time.  REAL 
SCAN  research  addresses  both  of  these  deficiencies.  The  research 
investigates  methods  for  automatic  environment  modeling  by  conversion 
from  existing  geodetic  data  combined  with  cultural  planimetry  of  real 
world  geographic  areas.  The  REAL  SCAN  research  has  studied  computer 
architectures  for  processing  the  environment  model  in  real  time  with 
algorithms  which  are  limited  by  the  number  of  details  which  are 
capable  of  being  displayed. 

The  goals  of  the  REAL  SCAN  research  are: 

1.  Produce  highly  complex  terrain  scenes  with  detail  approaching 
the  limit  of  a  unique  scene  element  for  each  image  display 
picture  element. 

2.  Allow  direct  and  automatic  conversion  of  real  world  height, 
color  and  reflectivity  information  into  the  CIG  data  base  to 
model  the  real  world. 

3.  Provide  for  large  and  variable  gaming  areas  from  which  true 
perspective  scenes  can  be  computed  and  displayed  in  real 
time. 

4.  Provide  compatibility  of  the  REAL  SCAN  system  with  polygon 
model  type  CIG  for  optimum  flexibility  and  economy  in  defin¬ 
ing  a  total  image  generation  and  display  system. 

These  general  goals  have  been  pursued  via  the  following  studies: 

1.  Investigate  various  means  to  compute  display  limited  scenes 
with  the  goal  of  minimizing  total  scene  computation  time  and 
minimizing  computation  complexity. 

2.  Investigate  various  regular  methods  for  creating  a  data 
compression  algorithm  for  a  real  world  data  base. 
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3.  Develop  computer  simulation  procedures  for  evaluating  both 
the  scene  computation  algorithms  and  the  data  base  compres¬ 
sion  algorithms. 

4.  Develop  software  to  make  pictures  on  the  DICOMED  equipment  by 
means  of  REAL  SCAN  simulation  procedures. 

This  report  documents  the  accomplishments  made  to  date,  develops 
and  describes  all  algorithm  and  data  base  efforts,  discusses  the 
picture  making  software,  presents  potential  architectures  for  imple¬ 
menting  REAL  SCAN,  develops  recommendations  for  improvements  to  the 
REAL  SCAN  algorithms  and  suggests  further  research  efforts. 

The  Problem 

One  of  the  outstanding  problems  of  visual  simulation  is  the 
generation  of  a  complex  scene.  Although  satisfactory  training  can  be 
achieved  for  many  simulation  tasks  using  current  computer  image  gener¬ 
ation  (CIG)  systems  at  their  present  stage  of  development,  close 
approach  to  terrain  in  daylight  reveals  the  severe  limitations  for 
tasks  such  as  air/ground  weapon  delivery,  confined  area  maneuvering, 
low  level  flight  and  harbor/channel  navigation  with  both  surface 
vessels  and  submarines. 

With  conventional  CIG,  (1,2)  the  environment  is  modeled  by  defin¬ 
ing  the  coordinates  of  points  in  space,  grouping  pairs  of  points  to 
define  "edges",  connecting  edges  to  form  polygons,  assigning  color  and 
reflectivity  to  the  polygons  and  grouping  them  to  form  polyhedra  which 
approximate  the  environment  to  a  level  limited  by  the  processing  power 
of  the  real  time  CIG  hardware.  The  number  of  edges  processed  per 
displayed  scene  is  the  usual  metric  for  such  hardware  with  the  state- 
of-the-art  currently  around  8,000. 

For  modeling  regular  objects  such  as  a  runway,  polygon  modeling 
is  economical  in  terms  of  the  size  of  data  base  and  the  amount  of 
processing  hardware.  However,  a  complex  environment  such  as  an  area 
of  countryside  consisting  of  contoured  terrain  having  detailed  surface 
texture  and  solid  objects  such  as  trees,  building,  etc.,  on  it,  is  not 
realistically  reproduced  by  present  CIG  systems  for  two  reasons: 
modeling  cost  and  processing  hardware  limitations  of  the  polygon 
modeling  technique.  Further  development  in  polygon  model  type  CIG 
processing  hardware  is  in  progress  by  several  manufactures  (the  "edge 


^Roberts,  L.  G. ,  "Machine  Preception  of  Three  Dimensional 
Solids",  TR315,  MIT  Lincoln  Laboratory,  May,  1963. 

2 

Sutherland,  I.E.;  Sproull,  R.  F. ;  and  Schumacher,  R.  A.  "A 
Characterization  of  Ten  Hidden-Surface  Algorithms",  Computing  Surveys, 
Vol .  6,  No.  1,  March,  1974,  pp.  1-55. 
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war")  but  the  limiting  factor  is  not  so  much  the  real  time  processing 
hardware  as  the  cost  of  generating  the  increasingly  complex  environ¬ 
ment  models  or  data  bases  required. 

Automatic  Data  Base  Generation  Problems 

Studies  (3)  at  the  Naval  Training  Equipment  Center  (NAVTRAEQUIP¬ 
CEN)  on  the  automatic  generation  of  polygon  type  data  bases  from 
stereo  photographs  showed  promise  for  individual  objects  but  under¬ 
lined  the  great  difficulty  of  the  problem  for  terrain.  Automating  the 
production  of  polygon  models  of  real  world  environments  is  a  task 
being  addressed  by  the  operational  equipment  community  specifically 
with  regard  to  Cruise  Missile  guidance  systems,  and  success  is  not 
expected  for  many  years. 

The  reason  for  the  difficulty  can  be  appreciated  if  one  looks  at 
almost  any  aerial  photograph  and  mentally  tries  to  break  it  down  into 
separate  objects  that  can  be  approximated  by  polygons.  Much  of  what 
is  visible  can  only  be  recognized  by  a  skilled  photo- reconnai sance 
technician.  The  difficulty,  therefore,  is  fundamental:  the  process, 
to  be  automated,  requires  a  degree  of  artificial  Intelligence  greater 
(for  this  task)  than  that  of  the  average  human  being.  This  basic 
difficulty  emphasizes  the  need  for  considering  the  entire  image  gener¬ 
ation  system  from  data  base  modeling  to  image  display  when  developing 
an  advanced  CIG  concept,  and  for  evaluating  non-polygon  type  data 
bases  as  a  way  out  of  the  automatic  data  base  generation  problem. 

Development  of  New  System  Concept 

If  one  attacks  the  goals  individually,  the  following  system 
characteristics  emerge.  First  of  all,  high  scene  detail  requires  a 
substantial  data  base;  however,  the  storage  requirements  are  less  if 
two  of  the  ground  coordinates  are  addresses  rather  than  data.  Large 
areas  of  the  world  are  mapped  as  uniform  grid  models,  such  as  the 
Terrain  File  of  the  Digital  Landmass  System  (DLMS)  developed  by  The 
Defense  Mapping  Agency  and  the  ortho  color  photos  produced  by  the  U.S. 
Geological  Survey  (4).  Models  of  this  type  are  relatively  easy  to 
generate  by  low-skill  processes  (as  compared  with  polygon  models)  and 
offer  the  greatest  possibilities  for  use  In  a  CIG  system  of  the  type 
being  considered. 


3 

Breglia,  D.  R. ,  "Automating  CIG  Data  Base  Development", 
Technical  Report  NAVTRAEQUIPCEN  IH-318,  Naval  Training  Equipment 
Center,  Orlando,  Florida. 

4 

Defense  Mapping  Agency  "Product  Specifications  for  Digital 
Landmass  System  (DLMS)  Data  Base",  July,  1977. 
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To  obtain  constant  angular  resolution  of  visible  details  over  the 
display,  the  corresponding  ground  resolution  required  decreases  with 
range  from  the  viewpoint.  Since  a  change  of  viewpoint  means  all  parts 
of  the  data  base  will  at  some  time  be  viewed  at  close  range,  the  data 
representing  the  gaming  area  must  all  be  available  at  high  resolution. 
However,  for  any  given  viewpoint,  to  avoid  having  to  process  high 
resolution  data  representing  distant  terrain  in  real-time,  a  lower- 
detail  version  of  the  data  may  be  used  for  distant  parts  of  the  scene. 
This  leads  to  the  concept  of  a  hierarchy  of  resolution  levels  in  the 
data  base,  analagous  to  the  levels  of  detail  used  in  polygon  model 
CIG. 


However,  whereas  the  levels  of  detail  in  a  polygon  model  data 
base  must  all  be  created  by  the  modeler,  with  a  regular  grid  data  base 
each  level  can  be  derived  automatically  off-line. 

In  current  real-time  CIG  systems,  sorting  algorithms  are  used  to 
produce  the  display  image  following  transfer  of  the  polygons  forming 
the  scene  into  the  display  plane.  The  processing  power  required  for 
sorting  grows  proportionally  to  the  square  of  the  detail  processed. 
For  systems  dealing  with  a  great  amount  of  detail  in  real  time,  an 
architecture  is  needed  in  which  processing  power  grows  only  linearly 
with  detail,  and  this  should  be  a  feature  of  the  new  system.  To 
process  and  display  a  great  amount  of  displayed  detail  in  real  time  a 
modular  structure  is  indicated  making  use  of  basically  independent 
parallel  processors,  each  a  pipeline. 

The  use  of  a  ground  coordinate  grid  allows  incremental  processing 
in  a  fixed  data  base.  This  feature  eliminates  the  need  for  floating 
point  operations  and  repeated  need  for  divide  operations.  Hence, 
computationally  efficient  integer  algorithms  can  be  developed  which 
incorporate  a  pseudo  exponentiation  upon  crossing  from  one  level  of 
the  data  base  to  the  next  (using  a  step  of  2:1  in  linear  detail 
between  levels). 

Finally,  the  generated  image  should  be  in  one  of  the  standard 
television  formats,  e.g. ,  1023  lines/frame,  30  frames/sec.  This 
allows  existing  displays  to  be  used  and  combined  image  generation 
systems  to  be  developed  using  both  polygon  and  grid  data  forms  of  CIG. 

General  REAL  SCAN  System  Description 

REAL  SCAN  utilizes  a  uniform  square  grid  data  base  to  produce 
highly  detailed  terrain  displays.  A  hierarchy  of  resolution  levels 
models  the  environment  and  many  parallel-pipelined  processors  perform 
the  required  visibility  determination  followed  by  perspective  trans¬ 
formation  from  world  coordinates  to  display  coordinates.  The  proces¬ 
sing  is  based  upon  computationally  efficient  integer  algorithms. 
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Figure  1.  Display  Window  Projection. 

Figure  1  shows  the  projection  of  the  display  window  on  to  the 
ground  plane  to  give  the  "ground  footprint"  from  which  data  must  be 
transformed  into  the  display  window  coordinates.  Each  level  of  the 
data  base  consists  of  a  square  array  of  "cells",  each  cell  containing 
digital  color  and  height  data  for  that  elementary  area  of  the  terrain 
modeled.  Although  all  levels  of  the  hierarchy  are  available  over  the 
whole  gaming  area,  level  1  Is  used  for  parts  of  the  terrain  nearest  to 
the  eyepoint  and  levels  2,  3,  etc.,  are  used  as  the  range  increases. 
The  determination  of  which  points  are  visible  is  made  by  radially 
scanning  the  ground  footprint  in  a  manner  similar  to  that  used  in 
radar  landmass  simulation.  Each  radial  line  drawn  from  the  nadir 
point  (the  point  directly  below  the  eyepoint)  through  the  ground 
footprint  maps  into  a  line  across  the  display  window.  As  explained 
later,  a  frame  buffer  is  used  to  store  the  information  to  be  displayed 
such  that  the  information  can  be  read  out  in  accordance  with  any 
standard  television  scanning  pattern  for  display  (e.g. ,  with  hori¬ 
zontal  scan  lines). 


New  scan  lines  are  initiated  through  the  data  base  as  the  scanned 
distance  from  the  nadir  grows,  such  that  the  visible  part  of  the  data 
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base  is  correctly  sampled.  It  is  necessary,  for  acceptable  image 
quality,  to  avoid  aliasing  (i.e. ,  interaction  between  the  regular 
structure  of  the  digital  data  base  and  the  regular  structure  of  the 
scanning  pattern  which  generates  spurious  detail  in  the  displayed 
image).  The  information  in  each  displayed  picture  element  (pixel) 
must  be  derived  from  the  data  stored  in  several  adjacent  cells,  in 
accordance  with  a  weighting  algorithm  that  varies  with  the  position  of 
the  pixel  in  the  window.  This  requires  averaging,  in  real  time,  of 
the  processed  data. 

Real  time  averaging  over  many  cells  is  impracticable,  but  the 
hierarchical  data  base  concept,  by  providing  pre-averaged  information, 
reduces  this  problem  to  manageable  proportions.  Filtering  is  used  to 
eliminate  any  remaining  unwanted  image  components. 

In  transforming  data  from  the  ground  plane  into  the  viewing 
window,  a  perspective  transformation  has  to  take  place.  Each  scan 
line  through  the  data  base  is  dealt  with  separately,  the  spacing 
between  image  details  along  the  line  being  changed  to  allow  for  the 
oblique  view  of  the  terrain.  Details  which  would  be  hidden  by  high 
ground,  are  of  course  omitted  from  the  display. 


Figure  2.  Functional  Block  Diagram  of  REAL  SCAN  System 


22 


NAVTRAEQUIPCEN  80-0-0014-2 


Figure  2  is  a  functional  block  diagram  of  the  proposed  system. 
The  color  and  height  data  for  the  complete  gaming  area  are  stored  in 
bulk  memory;  a  videodisc  is  preferred  in  view  of  the  large  number  of 
bits  that  can  be  stored  in  a  compact  space  with  reasonably  rapid 
access  (this  will  be  considered  in  more  detail  later  in  relation  to 
the  generation  of  the  data  base.)  The  cost  of  videodisc  bulk  memory 
storage  is  currently  estimated  to  be  $0. 10/megabyte  as  compared  to 
magnetic  disc  storage  costs  of  $3/megabyte  (5). 

The  control  computer  accepts  simulated  vehicle  position  and 
attitude  data  from  the  host  computer  and  is  used  to  control  the  flow 
of  data  to  the  REAL  SCAN  system.  For  each  television  frame  of  picture 
information,  the  following  processing  steps  need  to  be  carried  out: 

1.  Obtain  observer  view  point  location  and  viewing  direction 
(simulated  vehicle  location  and  attitude)  from  the  host 
computer. 

2.  Compute,  in  the  control  computer,  the  viewing  pyramid  inter¬ 
cepts  with  the  ground  reference  plane. 

3.  Use  linear  and  angular  rates  of  the  simulated  vehicle  to 
predict  the  potential  field  of  view  for  future  television 
frames. 

4.  Determine,  using  the  control  computer,  which  blocks  of  data 
representing  hierarchical  areas  of  terrain  in  the  bulk  memory 
are  to  be  accessed  for  generating  the  required  scene,  given 
the  nadir  point  location  and  field  of  view. 

5.  Using  the  control  computer,  transfer  these  blocks  of  data 
containing  all  the  information  necessary  to  compute  a  display 
of  the  current  field  of  view  plus  additional  information  for 
future  frames,  to  the  "cell  memory"  (a  highspeed,  virtually 
addressed  random  access  memory).  After  the  cell  memory  has 
been  initially  loaded,  there  is  always  information  available 
to  generate  the  next  frames.  The  cell  memory  is  then  the 
first  stage  of  a  pipeline  computational  process  leading  to  a 
frame  generation.  After  the  current  frame's  Information  is 
read  from  the  cell  memory,  those  blocks  which  are  no  longer 
in  the  potential  field  of  view  are  overwritten  by  new  infor¬ 
mation. 

6.  Scan  the  cell  memory  using  a  group  of  Identical  scan  line 
data  processors.  Each  processor  calculates  the  elevation  and 
reflectivity  Information  along  its  scan  line  using  the 


5 

"Videodisc  Based  Storage  Technology",  Computer,  Vol.  13,  No.  6, 
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regular  grid  data  in  the  cell  memory.  The  radial  lines  are 
scanned  in  parallel  groups  to  minimize  the  time  taken  for 
this  process.  The  data  is  assembled  in  the  scan  line  detail 
memory,  data  for  each  scan  line  being  separately  stored. 

7.  Transfer  the  data,  in  parallel  as  needed,  from  the  scan  line 
detail  memory  to  the  visibility  processor  and  carry  out 
visibility  processing  on  each  line  of  data.  This  process 
determines  which  parts  of  the  data  from  the  cell  memory  are 
to  contribute  to  the  displayed  scene  and  which  are  hidden 
from  view.  The  algorithm  used  to  determine  visibility  is 
similar  to  that  used  to  determine  radar  shadows  in  digital 
radar  landmass  simulation  systems  (6,7),  suitably  modified 
for  the  hierarchical  data  structure. 

At  this  stage  only  the  elevations  of  cell  data  enter  the 
computation;  cell  reflectivity/color  information  is  carried 
with  no  modification. 

8.  Accumulate,  in  the  segment  of  visible  scene  buffer,  reflec¬ 
tivity/  color  data  which  is  computed  only  for  visible  point, 
in  first-in  first-out  format,  to  allow  for  timing  variability 
in  the  pipeline  up  to  this  point. 

9.  Pass  the  data  from  the  segment  of  visible  scene  buffer  to  the 
color  pre-filter  processor  and  perform  initial  filtering 
along  the  lines  to  avoid  aliasing  while  correctly  passing 
sudden  luminance  changes  corresponding  to  non-aliased  edges 
in  the  scene. 

10.  Pass  the  data  from  the  color  prefilter  .processor  to  the 
projection  processor  where  the  reflectivity/color  data  is 
perspectively  transformed  from  ground  coordinates  to  display 
coordinates. 

11.  Pass  the  output  from  the  projection  processor  to  the  scene 
memory  buffer. 

12.  Perform  final  filtering  using  a  weighted  average  processing 
filter  to  generate  display  pixels. 


{7? 
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Greenly,  R.  and  Marchegiani,  D.  "Digital  Radar  Landmass 
Simulation",  Proceedings  of  the  Fourth  Annual  Naval  Training  Device 
Center/Industry  Conference,  pp.  131-141,  November,  1969. 

7Hoog,  T. ;  Dahlberg,  R. ;  and  Robinson,  R.  "Project  1183  -  An 
Evaluation  of  Digital  Radar  Landmass  Simulation",  Proceedings  of  the 
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24 


NAVTRAEQUIPCEN  80-0-0014-2 


13.  Pass  the  data  into  a  random  write/serial  read  ping-pong  frame 
buffer. 

14.  Read  the  frame  buffer  continuously  into  the  display. 

The  REAL  SCAN  Data  Base 

The  desired  data  base  form  is  a  hierarchy  of  two-dimensional 
arrays  of  elevation  and  reflectivity/color.  Each  array  corresponds  to 
the  entire  gaming  area  at  a  specific  ground  resolution.  The  size  of 
the  data  base  is  a  function  of  the  desired  ground  detail  size,  the 
size  of  the  gaming  areas,  and  the  amount  of  information  stored  at  each 
array  location  (see  Appendices  A  and  B). 

For  example,  consider  a  gaming  area  of  100  km2,  a  desired  ground 
detail  size  of  0.1m,  and  48  bits  of  information  stored  at  each  array 
location.  The  largest  array,  corresponding  to  the  highest  resolution, 
would  contain  1010  grid  positions  or  cells  and  5x10* 1  bits  of  informa¬ 
tion.  If  the  cell  size  in  each  array  is  doubled  or  the  resolution  is 
half  that  of  the  adjacent  array  in  the  hierarchy  then  the  total  data 
base  required  for  the  entire  hierarchy  is  (1  +  1/4  +  1/16  +  1/64...) 
times  the  information  stored  in  the  highest  resolution  array,  or 
approximately  7X1011  bits  for  the  total  data  base.  Although  this  is  a 
large  number,  the  optical  disc  digital  storage  technology  has  pro¬ 
gressed  to  the  point  where  such  large  data  bases  are  feasible.  In 
fact,  optical  disc  storage  configurations  have  been  proposed  for 
systems  having  a  capacity  of  1014  bits  (8).  The  next  question  is: 
What  is  the  value  of  a  regular  grid  data  base  with  0.1m  ground  resolu¬ 
tion?  For  close  approach  to  the  ground,  as  with  a  helicopter  maneu¬ 
vering  in  a  confined  area  landing  site,  a  minimum  range  from  the 
pilot's  eye  to  ground  could  be  taken  as  5m. 

Considering  a  television  display  with  1000  horizontal  scanning 
lines  and  50°  side  field  of  view  (a  typical  CIG  "viewing  window"),  the 
ground  resolution  (detail  size)  should  be  of  the  order  of  5mm.  This 
is  smaller  than  the  figure  of  0.1m  chosen  above  by  a  factor  of  20. 
The  desired  line  detail  is  provided  in  the  display  by  interpolating 
special  functions. 

Example  of  Data  Base  Construction 

A  logical  set  of  steps  to  create  the  hierarchial  data  base  can  be 
illustrated  as  follows: 

1.  DLMS  terrain  file  (Level  I)  consists  of  an  elevation  array 
with  a  grid  spacing  of  approximately  100m.  This  array  would 
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be  interpolated  using  bicubic  functions  to  form  the  initial 
hierarchy  arrays.  In  the  case  of  a  desired  0.1m  ground 
detail  the  number  of  arrays  generated  would  be  10  correspond¬ 
ing  to  cell  sizes  of  0.1,  0.2,  0.4  25.6,  51.2m. 

2.  The  enhancement  of  the  elevation  models  can  be  carried  out  in 
a  variety  of  ways.  By  making  use  of  the  DLMS  cultural  file, 
generic  cultural  features  which  have  been  stored  in  a  feature 
library  in  the  gridded  elevation  format  at  the  various  reso¬ 
lution  levels  can  be  added  to  (or  subtracted  from)  the 
initial  elevation  data.  The  generic  models  can  be  obtained 
by  photogrammetric  techniques  using  stereo  photos  of  repre¬ 
sentative  real  world  cultural  features. 

3.  Reflectivity /col  or  information  can  also  be  generic  or 
specific.  This  information  can  be  derived  from  digitized/ 
quantized  color  ortho  photos.  An  ortho  photo  is  a  product  of 
automatic  analytic  stereo  photogrammetric  equipment  in  which 
the  image  displacement  due  to  relief  is  corrected.  If  the 
reflectivity/color  model  for  a  specific  100km2  area  is 
desired,  approximately  fifty  color  aerial  photographs  would 
be  required  to  obtain  the  raw  reflectivity  photographic  data 
to  0.1m  cell  size.  If  the  generic  route  is  chosen,  appro¬ 
priate  color  ortho  photrs  of  representative  cultural  features 
are  utilized  to  form  a  library  which  corresponds  to  the 
generic  elevation  library. 

4.  The  high  resolution  reflectivity  information  is  interpolated 
to  form  the  reflectivity  data  for  succeeding  lower  levels  in 
the  hierarchy.  In  this  way  scene  compatibility  across  hier¬ 
archical  levels  is  ensured. 

5.  In  addition,  elevation  and  reflectivity/color  function  codes 
can  be  assigned  to  each  cell.  These  codes  describe  the  fine 
detail  referred  to  in  2  above  and  provide  for  blending  of 
reflectivity/color  and  terrain  height  between  cells  so  as  to 
avoid  discontinuities.  This  scheme  enables  the  aim  of  making 
the  system  generate  as  much  detail  as  can  be  displayed  to  be 
achieved  (display  limited  detail)  without  excessive  memory, 
although  individual  objects  cannot  be  dealt  with  in  this  way. 
Further  elaboration  to  the  system  shown  in  Figure  2  is,  of 
course,  required. 

The  net  result  is  a  highly  automated  data  base  modeling  system 
which  is  not  dependent  on  subjective  decisions  by  the  modeler  and  can 
be  implemented  using  available  data  and  technologies  in  the  photo¬ 
grammetric  community. 

The  concept  of  essentially  overlaying  a  digital  elevation  model 
with  photographically  derived  reflectivity  data  to  form  an  environment 
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model  is  not  new  (7,8,9),  but  the  use  of  such  a  model  in  a  real  time 
CIG  system  has  not  been  attempted  to  our  knowledge. 

The  reasons  for  pursuing  this  approach  to  environment  modeling 
are  summarized  as: 

1.  The  need  for  efficiently  produced  low  cost,  highly  detailed 
environment  models. 

2.  The  availability  of  equipments  and  technologies  which  can 
produce  highly  detailed  environment  models  in  a  uniform  grid 
format. 

3.  The  availability  of  technology  to  store  and  access  large 
amounts  of  data. 

4.  The  feasibility  of  an  automatically  generated  level  of  detail 
hierarchy  which  greatly  reduces  computational  processing 
load,  since  simulated  long  ranges  utilize  coarser  levels  of 
the  hierarchy. 

The  environment  model  described  has  been  initially  restricted  to 
terrain  surfaces  which  are  single  valued  in  elevation,  and  the  accept* 
ability  for  training  using  such  a  model  has  not  been  evaluated. 
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SECTION  II 

ALGORITHMS  ANO  SOFTWARE 


The  purpose  of  this  section  of  the  report  is  to  document  the  REAL 
SCAN  algorithms  and  software.  First,  the  software  used  to  create  the 
May  1981  black  and  white  movie  will  be  described,  then  software 
improvements  will  be  presented.  The  movie  software  creates  a  visual 
image  of  what  an  observer  would  see  if  looking  through  a  window  of  a 
cockpit.  The  REAL  SCAN  "Eye11  is  the  observer's  eye.  It  is  assumed 
that  the  observer  is  looking  directly  Into  the  center  of  his  window, 
the  REAL  SCAN  "Screen".  The  environment  that  the  observer  sees  is  the 
REAL  SCAN  "World".  This  environment  is  modeled  by  REAL  SCAN,  with 
reference  to  a  horizontal  ground  plane  with  integer  coordinates.  Each 
integer  coordinate  contains  a  single  height  value  and  a  reflectance 
value.  The  REAL  SCAN  system  uses  the  location  and  the  orientation  of 
the  observer  relative  to  the  world  origin  to  create  a  perspective  view 
of  the  environment.  This  view  or  scene  is  displayed  on  a  512  by  512 
picture  element  display  screen.  The  REAL  SCAN  software  files  are 
listed  in  Table  1. 


TABLE  1.  REAL  SCAN  SOFTWARE  ROUTINES. 


1. 

PGCOMDAT. FOR 

2. 

PGBUF.FOR 

3. 

PGMAIN.FOR 

i nteger 

4. 

PGSCENE.FOR 

floating  point 

5. 

PGSL. FOR 

floating  point 

6. 

PGVIS. FOR 

1 nteger 

7. 

PGSCAN. FOR 

i nteger 

8. 

PGPROJ. FOR 

i nteger 

9. 

PL0GL0AD. FOR 

Integer 

10. 

PGFILTER.FOR 

\ 

integer 

11. 

PGOATA. FOR 

1 nteger 
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These  FORTRAN  files  are  listed  in  Appendices  EB  through  EL. 
Appendix  EM  describes  how  these  files  are  used.  This  includes:  (1) 
how  to  compile  the  routines,  (2)  how  to  link  the  routines,  (3)  a 
sample  picture  and  the  input  information  used  to  create  this  sample 
picture.  Appendix  J  develops  the  mathematics  for  the  lower  bound 
computation  and  Appendix  K  develops  the  mathematics  for  the  projection 
processor. 

This  documentation  will  explain  the  function,  derive  the  math¬ 
ematics,  and  discuss  any  special  techniques  used  in  each  routine.  A 
brief  overview  of  the  REAL  SCAN  software  technique  for  creating  the 
scene  is  required  to  familiarize  the  reader  with  the  technique  for 
producing  a  REAL  SCAN  visual  image. 

The  function  of  the  routines  in  Table  1  is  to  produce  a  visual 
image  whose  resolution  is  display  limited,  (i.e. ,  The  resolution  of 
the  scene  is  dependent  on  the  resolution  of  the  display  device.)  This 
image  is  created  by  scanning  a  data  base,  which  is  a  mathematical 
model  of  a  terrain  surface  defined  as  having  a  single  elevation  for 
any  location  on  the  surface,  with  many  radial  scan  lines.  Each  scan 
line  extends  from  the  nadir,  the  point  on  the  ground  plane  (Z  =  0) 
directly  below  the  eye  to  a  point  on  the  ground  plane  which  corre¬ 
sponds  to  an  outer  screen  boundary.  If  the  database  Is  flat  then  this 
point  corresponds  to  a  point  on  the  outer  edge  of  the  footprint,  the 
poloygon  defined  by  projecting  the  four  corners  of  the  screen  onto  the 
ground  plane.  Figure  3  depicts  this  idea. 

The  first  scan  line  extends  from  the  nadir  to  corner  4.  Each 
successive  scan  line  is  found  by  rotating  the  previous  scan  line 
through  an  angle,  ANG,  such  that  at  least  two  scan  lines  cut  through 
each  picture  element,  called  a  pixel.  A  pixel  Is  one  of  the  (512,512) 
squares  of  the  screen  of  Figure  3.  Hence,  the  display  limit  has  been 
arbitrarily  chosen  to  approximate  TV,  and  match  the  DIC0MED  picture 
making  facilities  available. 

Once  a  scan  line  has  been  identified,  a  Bresenham  (12)  type  line 
drawing  algorithm  is  used  to  Increment  through  a  square  grid  database 
in  a  regular  fashion.  This  integer  increment  is  of  proper  world 
dimension  to  allow  at  least  two  world  data  points  to  map  to  each 
pixel.  As  the  range  from  the  viewpoint  increases  the  required  ground 
resolution  decreases.  Therefore,  a  database  with  many  levels  of 
resolution  has  been  developed  as  a  part  of  the  REAL  SCAN  concept. 
Each  level  of  resolution,  called  a  hierarchy  level,  will  have  half  the 
resolution  of  the  previous  hierarchy  level. 

Each  hierarchy  level  is  identified  by  a  pseudo  exponent  called 
ICL.  The  relative  Integer  Increment,  NCR,  between  data  points  in  a 
particular  hierarchy  level  is  identified  by 
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Figure  3.  Scan  Line  Geometry. 

NCR  =  2(ICL’1)  (1) 

The  database  is  required  to  provide  height  and  reflectance  Infor- 
mation  for  any  valid  database  coordinate  (IPP(l),  IPP(2)).  The  data¬ 
base  consists  of  mathematical  functions  to  model  the  environment. 
Therefore,  a  large  variety  of  databases  can  be  dtvaloped  in  a  short 
period  of  time. 

The  height  data  is  used  to  compute  visibility.  Visibility  is 
determined  by  the  method  of  similar  triangles.  These  triangles  are  in 
a  common  plane  defined  by  the  eye  point  and  the  scan  line.  With  this 
technique,  the  test  point  Is  compared  against  the  last  visible  point. 

Once  a  visible  point  Is  found,  the  intensity  of  the  point  is 
calculated  and  an  integer  projection  routine  computes  the  screen 
location  for  that  point.  These  screen  coordinates  are  used  as  an 
address  to  sum  the  reflectance  value  In  a  screen  buffer  called 
ITEMBUF.  This  buffer  Is  then  filtered  and  the  result  Is  ready  for 


NAVTRAEQUIPCEN  80-D-0014-2 


The  development  of  a  fast  and  efficient  CIG  (Computer  Image 
Generation)  system  requires  as  few  divides  and  multiplies  as  possible, 
except  in  powers  of  two  since  this  implies  a  shift  of  the  bit  posi¬ 
tions.  Also  integer  arithmetic  is  preferred  to  floating  point  unless 
the  routine  has  a  negligible  impact  on  the  computation  time.  Several 
techniques  have  been  developed  to  minimize  divides.  These  techniques 
are  employed  in  the  integer  FORTRAN  routines  of  REAL  SCAN  listed  in 
Table  1. 

Coordinate  Systems 

The  following  right  handed  orthogonal  coordinate  systems  are  used 
in  the  REAL  SCAN  routines: 

1.  World 

2.  Eye 

3.  Screen 

4.  Nadir  Centric  World 

5.  Eye  Centric  World 

The  coordinate  systems  are  defined  below. 

WORLD 

The  World  coordinate  system  uses  the  symbols  X,Y,Z  to  represent 
the  axes.  The  X  and  Y  axes  map  directly  to  the  square  grid  data  base. 
The  Z  axis  represents  altitude  above  a  flat  world. 


The  Eye  coordinate  system  uses  U,V,W  for  axes  symbols.  The  U  and 
W  axes  map  directly  to  the  screen  axes,  while  the  V  axis  represents 
the  view  vector.  The  Eye  coordinate  system  is  related  to  the  World 
coordinate  system  by  the  eye  location,  ( IXE , IYE , IZE) ,  and  the  rotation 
matrix,  ROT.  ROT  defines  the  present  eye  orientation  relative  to  the 
reference  eye  orientation  in  which,  U=X,  V=Y,  W=Z.  These  systems  are 
depicted  in  Figure  4. 

A  point  in  the  World  coordinate  system  (X,Y,Z)  is  transformed  into  a 
point  in  the  Eye  coordinate  system  (U,V,W)  by  the  matrix  multipli- 
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Figure  4.  Eye  and  World  Coordinate  Systems. 


SCREEN 

The  display  screen,  called  ITEHBUF,  will  consist  of  an  array  of 
(NX, NY)  pixels.  This  screen  buffer  can  be  accessed  in  the  same  manner 
as  any  FORTRAN  array.  Therefore,  the  top  lefthand  pixel  will  have  an 
address  of  (1,1)  and  the  bottom  righthand  corner  will  have  an  address 
of  (NX, NY).  The  simplest  screen  structure,  from  a  mathematical  stand¬ 
point,  for  the  projection  algorithm  is  a  center  oriented  screen.  If 
the  screen  has  an  odd  number  of  pixels,  then  the  origin  is  in  the 
center,  but  if  the  screen  has  an  even  number  of  pixels,  then  the 
origin  is  arbitrarily  chosen  to  be  in  the  pixel  to  the  lower  right  of 
the  center.  Figure  5  depicts  both  screen  formats. 

A  point  on  the  screen  (IXS,IYS)  is  mapped  into  a  point  on  the 
screen  buffer  (IXBS,IYBS)  by  the  following  equations. 

IXBS  =  IXS  +  NX/2  +  1  (3) 

IYBS  =  IYS  +  NY/2  +  1  (4) 

The  rectangular  screen  with  square  pixels  and  physical  dimensions 
LX  and  LY  will  be  oriented  perpendicular  to  the  view  vector.  The 
center  of  the  screen  will  be  at  any  arbitrary  location  (IUS,IVS,IWS), 
as  long  as  IVS  is  greater  than  zero.  The  eye  U  and  W  axes  correspond 
to  the  XS  and  -YS  axes  of  the  screen.  The  Screen  and  Eye  coordinate 
systems  are  depicted  in  Figure  6. 


Figure  5.  ITEMBUF  and  Projection  Screen. 
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NADIR  CENTRIC  WORLD 

The  Nadir  Centric  World  coordinate  system  has  the  same  orienta¬ 
tion  as  the  World  coordinate  system  except  the  origin  is  at  the  nadir. 

EYE  CENTRIC  WORLD 


The  Eye  Centric  World  coordinate  system  has  the  same  orientation 
as  the  World  coordinate  system  except  the  origin  is  at  the  eye. 
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Fortran  Routine  OocuMntatlon 

The  FORTRAN  files  are  separated  into  two  types,  FORTRAN  routines 
and  FORTRAN  common  nodules.  The  common  modules  (PGCOMDAT.FOR  and 
PGBUF.FOR)  aid  in  program  development. 

PGCOMDAT. FOR 

PGCOMDAT.FOR  is  a  FORTRAN  file  which  identifies  a  global  common 
area  of  memory.  Variable  types  and  dimensions  are  specified  in  this 
routine.  PGCOMDAT  is  incorporated  into  other  routines  by  the  non¬ 
standard  FORTRAN  statement  INCLUDE  PGCOMDAT.FOR. 

PGBUF.FOR 

PGBUF.FOR  identifies  the  Screen  Buffer,  ITEMBUF,  as  an  array  with 
dimension  (512,512)  of  two  byte  signed  integer.  This  common  area  of 
memory  is  only  allocated,  when  needed,  to  a  routine  through  the 
INCLUDE  statement. 

PGMAIN. FOR 

PGMAIN. FOR  is  the  main  FORTRAN  file  which  controls  the  program 
flow.  When  this  program  is  executed,  the  following  menu  is  given  to 
the  user: 


1.  RUN  SCENE 

2.  WRITE  ITEMBUF 

3.  READ  ITEMBUF 

4.  CREATE  A  PICTURE  ON  THE  DICOMEO 

5.  STOP 


The  FORTRAN  file,  PGMAIN. FOR,  consists  of  the  menu  and  the 
following  subroutines:  READ,  INPUT,  OUTPUT,  TESTPR,  RUN. 
These  subroutines  are  described  below: 

Subroutine  Read 

READ  allows  the  user  to  read  a  previously  created  scene  into 
ITEMBUF  with  the  intention  of  creating  a  picture  on  the 
DICOMED,  a  machine  which  creates  a  Polaroid  picture  of 
ITEMBUF,  by  converting  the  reflectance  value  into  light 
intensity.  The  most  efficient  method,  which  we  have  found, 
to  store  large  amounts  of  data  on  the  VAX- 11/780  is  by  the 
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"FORMAT  (66A2)"  statement.  This  format  converts  INTEGER*2 
data  into  ASCII  format.  The  read  has  the  following  format: 

READ  (IFILE.1000)  ((ITEMBUF(I,J),I=1,IFILDIM),J=1,IFILDIM) 
1000  FORMAT (66A2) 

IFILE  specifies  which  file  is  to  be  read  and  IFILDIM  is  the 
dimension  of  the  screen  in  pixels. 

2.  Subroutine  INPUT 

INPUT  allows  the  user  to  input  all  the  required  information 
to  compute  a  scene.  Table  2  identifies  this  input  infor¬ 
mation. 

The  screen  center  and  the  screen  length  define  the  field  of 
view,  while  screen  size  and  screen  length  define  the  number 
of  square  pixels  in  the  screen.  IFIRST,  IEND,  and  ANGLE- 
FACTOR  are  used  to  define  the  scan  lines.  Test  pictures  are 
created  in  a  short  period  of  time  by  using  the  following  two 
techniques:  (1)  Identify  a  large  scale  factor  for  the  angle 
between  scan  lines  (ANGFACTOR).  This  technique  samples  the 
scene.  (2)  Identify  the  starting  scan  line  (ISTART)  and  the 
last  scan  line  (IEND)  numbers,  such  that  only  a  wedge  of  the 
scene  is  computed. 


TABLE  2.  INPUT  DATA 

FORTRAN  VARIABLES  DESCRIPTION  VALUES 


(IXE,IYE,IZE) 

PITCH  BANK  HEADING 
(IUS,IVS,IWS) 

LX,LY 
IFILDIM 
IDATBAS 
ISTART, IEND 

ISCALE 


IDIV 

ANGFACTOR 


ICASE 


EYE  LOCATION  . — 

EYE  ORIENTATION  . - 

SCREEN  CENTER  0,1,0 

SCREEN  LENGTH  1,1 

SCREEN  SIZE  512 

DATABASE  CHOICE  (1,  ...  5) 

FIRST  AND  LAST 

SCAN  LINES  1,2000 

THE  SCALE  FACTOR 
FOR  THE  ROTATION 
MATRIX  2500 

A  DIVISION  FACTOR 
TO  PREVENT  OVERFLOW  3 

A  SCALE  FACTOR  FOR 
THE  ANGLE  BETWEEN 
SCAN  LINES  .86 

A  VARIABLE  TO  SELECT 
ONE  OF  THREE  ROTATION 
MATRIX  APPROXIMATIONS  3 
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Subroutine  Output 

OUTPUT  prints  the  following  pertinent  information  shown  in 
Table  3.  This  data  is  used  to  identify  the  scene,  and  to 
aid  in  program  development. 


TABLE  3.  OUTPUT  DATA 


NAME 

DESCRIPTION 

R0T(3,3) 

The  rotation  matrix  which  defines 
the  eye's  orientation 

PR0J(4) 

An  array  which  identifies  if  a 
corner  projects  to  the  ground  (1) 
or  the  horizon  limit  (0) 

NADIR 

A  flag  which  identifies  if  the 
nadir  is  outside  (0)  or  inside  (1) 
the  footprint 

C0R(4,3) 

An  array  which  contains  the  loca¬ 
tion  of  the  4  corners  in  EYE 
CENTRIC  WORLD  coordinates 

CW(4,2) 

An  array  which  contains  the  4 
corners  of  the  footprint 

ANG 

The  angle  between  scan  lines  in 
radians 

CANG(4) 

The  angle  through  the  nadir  to  each 
corner  relative  to  corner  4,  thus 
CANG(4)  =  0 

Subroutine  Testpr 

TESTPR,  which  is  for  test  purposes  only,  will  find  the 
screen  location  of  any  world  point.  The  standard  floating 
point  projection  technique  for  finding  the  screen  coord¬ 
inates  is  given  by 

XS  =  ICONST*UP/VP  (5) 

YS  =  -CONST*WP/VP  (6) 

(UP,VP,WP)  is  the  point  in  the  EYE  coordinate  system. 
ICONST  is  a  factor  which  is  the  product  of  the  number  of 
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pixels  per  unit  screen  length  and  IVS.  XS  and  YS  are  the 
screen  coordinates.  Subroutine  TESTPR  aided  in  program 
development. 


igure  7-A.  Start  of  the  Flowchart  for  Subroutine  Run. 
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Subroutine  Run 

RUN  is  used  to  control  the  program  flow  for  computing  the 
scene.  RUN  calls  all  the  FORTRAN  subroutines  in  the  proper 
order  to  create  the  scene.  This  subroutine  is  depicted  in 
the  flowchart  of  Figures  7-A  and  7-B.  Each  rectangular 
block  of  the  flowchart  identifies  a  function  which  is  per¬ 
formed  by  one  of  the  subroutines  listed  in  Table  1. 


ACCUMULATE  THE  REFLECTANCE 
VALVE  INTO  THE  SCREEN  BUFFER 
AND  INCREMENT  THE  COUNT  BUFFER 


1 
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PGSCENE. FOR 

The  purpose  of  this  subroutine  is  to  initialize  or  compute  all 
the  scene  constants.  Figure  8  depicts  the  EYE  coordinate  system 
and  the  screen.  The  eye  orientation  is  defined  by  the  pitch, 
bank,  and  heading  angles.  The  eye  location  in  WORLD  coordinates 
is  (IXE,IYE,IZE).  The  screen  corners  are  numbered  from  one  to 
four  as  shown  in  Figure  8.  These  numbers  define  the  indices  of 
the  variables  in  Table  3.  The  scene  constants  are  described 
below. 


(IUS.IVS.IWS) 


u 

Figure  8.  Eye  Coordinate  System  and  Screen. 

1.  R0T(3,3) 

ROT  is  the  rotation  matrix  which  defines  the  eye  orienta¬ 
tion.  ROT  is  computed  from  the  matrix  multiplication  of  the 
matricies  for  heading,  pitch,  and  bank  in  that  order. 

2.  IR0T(3,3) 

IROT  is  the  scaled  integer  representation  of  ROT.  (i.e. , 
I ROT  =  ISCALE*ROT) 

3.  C0R(4,3) 

COR  is  the  location  of  the  four  Screen  corners  in  the  EYE 
CENTRIC  WORLD  coordinate  system.  COR  is  computed  by  the 
matrix  multiplication  of  the  constant  location  of  the 
corners  in  the  EYE  coordinate  system  by  the  inverse  or 
tranpose  of  ROT. 
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4.  CMAG(4) 

CMAG  is  the  distance  from  the  nadir  to  each  corner  along  the 
flat  earth,  (i.e. ,  Z  =0).  Figure  9  shows  the  location  of 
the  dropped  corners.  The  asterisk  (*)  used  in  Figure  9 
denotes  all  possible  values  rather  than  a  single  value, 
(i.e.,  C0R(1,*)  means  the  point  C0R(1,1),  C0R(1,2), 

C0R(1,3)).  This  notation  is  used  throughout  this  paper. 


W 


Figure  9.  Dropped  Screen  Corners 


5.  CR0SS(4) 

CROSS  is  the  cross  product  of  adjacent  dropped  screen 
corners  in  the  order  4, 1,2, 3, 4.  The  corss  products  are  in 
the  Z  direction  in  Figure  9. 

Thus,  CR0SS(1)  corresponds  to  C0R(4)  X  C0R(1),  while  CROSS 
(4)  corresponds  to  C0R(3)  X  C0R(4).  Sign  changes  in  CROSS 
determine  where  the  nadir  is  in  relation  to  the  footprint  on 
the  ground. 


NAVTRAEQUIPCEN  80-D-0014-2 


6.  CANG(4) 

CANG  is  the  positive  angle  around  the  nadir  from  C0R(4)  to 
each  of  the  other  corners.  The  arctangent  function  is  used 
to  compute  these  angles. 

The  current  version  of  PGSL.FOR,  the  routine  which  defines 
each  scan  line,  requires  that  CANG  be  such  that: 

CANG(3)  £  CANG(2)  §  CANG(l)  g  0 

This  requirement  simplifies  scan  line  generation. 

7.  NADIR 

NADIR  is  a  flag  which  indicates  whether  the  nadir  is  inside 
(NADIR  =  1)  or  outside  (NADIR  =  0)  the  footprint.  If  all 
the  cross  products  have  the  same  sign  then  the  nadir  is 
inside  the  footprint. 

8.  ANG 

ANG  is  the  angle  in  radians  between  each  scan  line.  The 
goal  in  designing  these  routines  is  to  calculate  ANG  such 
that  at  least  two  scan  lines  cut  through  each  pixel.  The 
current  method  which  calculates  ANG  is  given  by 

ANG  =  ANGFACT0R*( LX*LX  +  LY*IY)/(3*CMAG(1)*CMAG(1)*NX)  (7) 

Perhaps  the  best  method  to  compute  ANG  would  be  one  which 
delivers  a  constant  number  of  scan  lines,  at  least  1024  and 
perhaps  limited  to  around  1500.  This  is  accomplished  by 
dividing  the  total  scene  angle  by  the  desired  number  of  scan 
lines.  This  technique  will  also  yield  a  signed  angle  which 
is  required. 

9.  PR0J(4) 

PROJ  is  a  flag  which  identifies  if  a  corner  projects  to  the 
ground  or  the  horizon.  PROJ  is  determined  by  the  sign  of 
C0R(*,3).  If  C0R(*,3)  is  greater  than  zero,  then  the  cor¬ 
responding  corner  is  above  the  eye,  and  PR0J(*)  equals  zero. 
If  the  corner  does  project  to  the  ground  then  PR0J(*)  equals 
one. 

10.  CW(4,2) 

CW  is  the  NADIR  CENTRIC  location  of  the  intercepts  of  the 
line  from  the  eye  through  the  corner  onto  the  ground  plane 
(i.e. ,  Z  =  0).  If  the  corner  does  not  project  to  the 
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ground,  (i.e.,  PR0J(*)  =  0),  then  CW(*,*)  has  a  length  equal 
to  the  horizon  Unit,  H0RIX0NLIM.  If  the  corner  does  pro¬ 
ject  to  the  ground,  (i.e.,  PR0J(*)  =1),  then  CW(*,*)  is 
computed  from  the  method  of  similar  triangles). 

11.  AA(4,2) 

AA  identifies  the  bounding  lines  of  the  footprint  of  Figures 
1  or  3  and  is  computed  by  subtracting  X  and  Y  components  of 
adjacent  corners,  CW.  AA  is  used  to  compute  the  initial 
lower  bound  point,  for  visibility  purposes,  for  each  scan 
line. 

12.  ADDITIONAL  VARIABLES 

The  remaining  variables  or  constants  initialized  in  PGSCENE 
are  described  in  Table  4. 


TABLE  4.  REAL  SCAN  VARIABLES  INITIALIZED  IN  PGSCENE 


NAME 

DESCRIPTION 

EQUATION 

ICRASH 

The  scaled  distance  from 
the  Eye  to  the  Screen 

IVS*ISCALE/I?IV 

NPL 

The  number  of  pixels  per 
unit  length 

IFILDIM  -  1 

NX 

Pixels  along  the  X  axis 

NPL*LX 

NY 

Pixels  along  the  Y  axis 

NPL*LY 

ICONSTX 

a  constant  used  in  PGPROJ 

NPL*VS 

JCONSTX 

A  constant  used  in  PGPROJ 

NPL*US 

JCONSTY 

A  constant  used  in  PGPROF 

NPS*WS 

NPIX 

The  value  of  the  end  pixel 
test  in  PGPROJ 

NX  +  1 

I  AXIS 

The  axis  index  for  the  end 

pixel  test  in  PGPROJ 

1 

HORIZONLIM 

The  distance  from  the  Eye 

to  the  Horizon 

45000 

IFIRST 

A  flag  which  identifies  the 

first  scan  line 

1 

IFINISHED 

A  flag  which  identifies 
that  the  last  scan  line  is 

completed 

0 

SUMANG 

The  angle  accumulator  for 

the  scan  lines 

0 

KSL 

A  corner  counter 

1 

IXSO 

The  last  X  Screen  Coordinate 

0 

IYSO 

The  last  Y  Screen  Coordinate 

0 

KCOUNT 

The  counter  for  the  number 
of  times  a  pixel  is  addressed 

on  one  scan  line 

1 

I POWER 

The  value  of  the  power  of 
two  that  the  pixel  count  is 

compared  to 

1 
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PGSL. FOR 

PGSL.FOR  is  a  subroutine,  called  once  per  scan  line,  whose  pur¬ 
pose  is  to  calculate  all  scan  line  parameters.  Each  scan  line 
passes  through  the  nadir,  the  lower  bound  (LOW),  and  the  horizon 
(IXH, IYH).  However,  the  horizon,  in  NADIR  CENTRIC  coordinates, 
completely  defines  the  scan  line,  (i.e. ,  as  a  vector  from  the 
nadir  to  the  horizon).  Figure  10  depicts  the  scan  lines. 


Figure  10.  Scan  Lines. 


The  present  version  of  PGSL.FOR  requires  all  scan  lines  to  cut 
through  the  line  between  corners  3  and  4,  (i.e.,  CW(3,*),  CW(4,*) 
of  Figure  10).  However,  Appendix  E  describes  an  improved  version 
not  subject  to  this  restriction.  The  output  of  this  routine  is 
the  horizon  and  the  lower  bound  for  each  scan  line,  which  are 
defined  as  follows: 

1.  IXH, IYH 

The  first  scan  line  extends  from  the  nadir  to  corner  4,  or 
CW(4,*).  Thus,  the  horizon  for  the  first  scan  line  (IXH, 
IYH)  is  computed  by  the  method  of  similar  triangles 
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SCALE  =  HORIZONLIM/CMAG(4) 

(8) 

IXH  =  SCALE*C0R(4,1) 

(9) 

IYH  =  SCALE*C0R(4,2) 

(10) 

In  general,  we  can  compute  the  horizon  for  a  new  scan  line 
by  rotating  the  previous  scan  line  thorugh  the  scan  line 
angle,  ANG,.  Equation  (11)  illustrates  this  rotation 

flXHl  J  COS(ANG)  SIN(ANG)1  flKHl 

IiyhJ  "L-sin(ang)  cos(ang)J  LiyhJ  (11) 

Since  ANG  is  small,  the  rotation  matrix  is  approximated  by 
equations  (12)  and  (13).  This  eliminates  the  need  to  com¬ 
pute  the  SIN  and  COS  functions 

COS(ANG)  ~  1  -  ANG*ANG/2  (12) 

SIN(ANG)  ~  ANG  (13) 


L0W(2) 

The  lower  bound,  LOW,  is  the  point  on  the  scan  line  which  defines 

the  angle  for  the  first  visible  point.  If  the  nadir  is  inside  the 

footprint  then  LOW  is  the  nadir,  otherwise  LOW  will  be  the  first 
intercept  of  the  scan  line  with  the  footprint.  This  first  intercept 
has  been  limited  to  the  line  between  corners  3  and  4  in  Figure  10, 
defined  by  AA(4,*).  The  equation  for  computing  the  lower  bound  is 
developed  in  Appendix  J,  and  is 

L0W(1) '  =  L0W(1)  +  A*T  (14) 

L0W(2) '  =  L0W(2)  +  B*T  (15) 

L0W(1)  and  L0W(2)  are  the  last  computed  lower  bound  and  L0W(1)'  and 
L0W(2) '  are  the  new  lower  bound.  A  and  B  is  the  signed  distance  along 
the  X  and  Y  axes  between  corners  3  and  4.  T  determines  the  change  in 
lower  bound  points  based  upon  the  footprint  and  the  scan  line.  T  is 
dimensionless. 

The  subroutine  PGSL  determines  which  wedge  of  the  scene  is  being 
computed  by  means  of  SUMANG.  The  angle  accumulator,  SUMANG,  is  tested 
against  the  angle  to  the  next  corner,  CANG(*),  to  determine  when  a 
wedge  has  been  completed.  If  the  wedge  has  been  completed,  several 
wedge  constants  must  be  set  to  new  values.  These  constants  are: 

IAXIS  The  screen  axis  to  test  against 
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NPIX  The  pixel  along  the  IASIX,  which  identifies  the  end  of  the 
scan  line 

KSL  The  corner  counter 


Figure  11  identifies  three  wedges  and  the  values  of  the  corresponding 
wedge  constants. 


NADIR 


Figure  11.  Wedge  Constants. 


PGVIS. FOR 

The  purpose  of  this  subroutine  is  to  initialize  the  Bresenham 
line  drawing  algorithm  in  PGSCAN.FOR.  The  Bresenham  algorithm  is 
described  in  the  PGSCAN.FOR  subsection  of  this  section.  The  variables 
of  Table  5  are  initialized  in  PGVIS. FOR. 


TABLE  5.  PGVIS. FOR  INITIALIZATION  VARIABLES 
NAME  DESCRIPTION 

ICASE  The  value  of  the  fastest  changing  index 

IOTHR  The  value  of  the  slowest  changing  index 

IXH  The  NADIR  CENTRIC  WORLD  X  coordinate  for  the  horizon 

IYH  The  NADIR  CENTRIC  WORLD  Y  coordinate  for  the  horizon 

I F ( 2 )  Equivalenced  to  IXH, IYH 

NCR  The  relative  distance  between  data  points  on  the  ICASE  axis 

ICL  The  database  class  which  defines  the  resolution 

JXY2  The  distance  to  the  horizon  along  the  IOTHR  axis 

IXY2  The  distance  to  the  horizon  along  the  ICASE  axis 

IDXY  One  half  of  IXY2 
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INC  The  direction  of  the  ICASE  axis,  (i.e.,  ±1) 

INCIO  The  direction  of  the  IOTHR  axis,  (i.e.,  ±1) 

IP(3)  The  world  point  in  NADIR  CENTRIC  WORLD  coordinates  IP  is 

equivalenced  to  IXP,IYP,IZP 

IPP(2)  The  point  in  WORLD  coordinates  (i.e.,  IPP  =  IP  +  IEYE) 
IEEE  The  Bresenham  error  accumulation  term 

NPN(2)  An  index  which  is  used  to  determine  database  hierarchies 
IQ(2)  IPP  divided  by  1024*NCR  (for  hierarchy  crossing  logic) 

PGVIS.FOR  computes  the  following  scan  line  initializations: 

1.  ICASE,  and  IOTHR 

The  ICASE  axis  is  the  fast  moving  axis  index  while  IOTHR  is  the 
slow  moving  axis  index.  Figure  12  depicts  the  ICASW  and  IOTHR  axes. 
ICASW  and  IOTHR  are  determined  as  shown  by  the  following  FORTRAN  code. 

IF  (ABS(IXH)  .GT.  ABS(IYH))  THEN 
ICASE  =  1 
IOTHR  =  2 

ELSE 

ICASE  =  2 
IOTHR  =  1 

ENDIF 

2.  ICL  =  1 
NCR  =  1 

3.  INC  =  ISIGN(1,IF(ICASE)  !(.ie±l) 

INCIO  =  ISIGN(1,IF(I0THR)  !(.ie  ±1) 

4.  IXY2  =  ABS(IF(ICASE» 

JXY2  =  ABS(IF( IOTHR)) 

IDXY  =  IXY2/2 

IEEE  =  JXY2  -  IDXY 

5.  IP(*)  =  0 
IPP(*)  =  IEYE(*) 

NPN(*)  =  IPP(*)/1024 
IQ(*)  =  IPP(*)/1024 


PGSCAN. FOR 

This  routine  performs  five  major  functions  for  each  new  point 
along  a  scan  line: 


1.  Compute  the  point  along  the  scan  line  by  the  Bresenham  line 
drawing  algorithm. 
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2.  Perform  a  call  to  the  database  subroutine  to  obtain  the 
point's  elevation. 

3.  Determine  if  the  point  is  visible. 

4.  Determine  if  the  point's  range  exceeds  a  hierarchy  level 
boundary. 

5.  Determine  if  the  point's  range  exceeds  the  horizon  limit. 

The  algorithm  used  for  line  drawing  is  very  similar  to  the  algor¬ 
ithm  developed  by  Bresenham  (12).  However,  it  is  designed  so  that 
each  iteration  changes  the  ICASE  axis  by  INC*NCR,  the  proper  integer 
increment  in  each  hierarchy.  The  other  coordinate  may  or  may  not 
change  depending  on  the  error  term,  IEEE,  maintained  by  the  algorithm. 
This  error  term  contains  a  scaled  integer  representation  of  the  dis¬ 
tance  between  the  exact  path  of  the  line  and  the  closest  integer 
I  coordinate  generated. 

i 

The  error  term  is  initialized  to  represent  -1/2.  Each  iteration 
adds  to  the  error  term  until  it  is  greater  than  zero,  which  identifies 
a  need  to  increment  the  IOTHR  coordinate  by  INCI0*NCR,  and  decrement 
the  error  term.  The  following  FORTRAN  code  implements  this  version  of 
j  Bresenham1 s  algorithm. 

IEEE  =  JXY2  -  IDXY 
10  IF  (IEEE  .GT.  0)  THEN 

IP( IOTHR)  =  IP( IOTHR)  +  INCI0*NCR 
IEEE  =  IEEE  -  IXY2 

END  IF 

I P( ICASE)  =  IP(ICASE)  +  INC*NCR 
IEEE  =  IEEE  +  JXY2 
perform  visibility  test 
GO  TO  10 


Thus,  the  error  of  the  points  created  by  the  Bresenham  line  is  at 
most  NCR/2  units.  As  the  points  on  the  ICASE  axis  are  incremented, 
the  error  term  (IEEE)  becomes  more  positive.  When  IEEE  is  greater 
than  zero  the  IOTHR  axis  is  incremented.  Figure  12  depicts  a  typical 
Bresenham  line.  This  algorithm  only  involves  adding  and  testing  to 
create  the  line.  No  multiplication  is  needed. 
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IOTHR 


SCAN  LINE 


^  --  —  H  NCR  K 


Figure  12.  Bresenham  Type  Scan  Line. 


Visibility  is  a  test  which  determines  if  the  point  is  visible  or 
not.  Visibility  is  performed  using  the  method  of  similar  triangles. 
Figure  13  illustrates  the  procedure  for  the  visibility  test. 


LOW(3) 


LOW(ICASE)  A0CA8E)  IP(ICA8E) 

Figure  13.  Visibility. 

LOW  is  the  initial  lower  bound  computed  in  PGSL.FOR.  The  test  point 
is  IP.  IP  is  visible  if  the  angle  form  the  horizontal  to  the  line 
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from  the  eye  to  IP,4>,  is  less  than  the  angle  for  the  last  visible 
point, 41.  Thus,  the  point  A  is  not  visible.  The  method  of  similar 
triangles  implies  IP  is  visible  if 

[ IE(3)  -  L0W(3)]/L0W( ICASE)  <  [IE(3)  -  IP(3)]/IP(ICA$E)  (16) 

or  if 

[ I E(3)  -  L0W(3)]*IP(ICASE)  <  [IE(3)  -  IP(3)]*L0W( ICASE)  (17) 

If  this  occurs,  then  LOW  is  set  to  IP  and  IP  is  visible.  Therefore, 
the  visibility  test  is  performed  without  any  divides. 

The  data  base  hierarchy  boundaries  occur  at  fixed  World  Coordin¬ 
ates.  Each  hierarchy  is  identified  by  the  class  number,  ICL.  The 
distance  between  valid  points  in  any  class  is  NCR,  where  NCR  = 
2**(ICL-1).  The  width  of  each  class  has  been  arbitrarily  set  equal  to 
1024*NCR,  which  approximates  the  desired  ground  accuracy  of  1/2  pixel 
resolution  for  a  display  screen  having  512  pixels  on  each  edge. 
(Appendices  F  and  0  discuss  scan  line  improvements.) 

The  class  assignments  are  made  relative  to  the  nadir.  In  other 
words  the  nadir  is  always  in  class  1.  Two  variables  NPN  and  IQ  are 
maintained  to  identify  a  class  change.  NPN  and  IQ  are  initialized  in 
PGVIS.FOR  to  IEYE/1024.  After  the  Bresenham  type  algorithm  produces  a 
point  IPP,  then  IQ  is  set  to  IQ  =  IPP/(1024*NCR).  The  test  for  the 
hierarchy  boundary  crossing  is  given  by  the  following  FORTRAN  code: 

IF((IQ  -  NPN)  .GT.  1)  THEN 
"NEW  CLASS" 

ICL  =  ICL  +  1 
NCR  =  NCR*2 
NPN  =  NPN/2 

END  IF 

When  a  class  boundary  has  been  crossed,  the  point  may  or  may  not 
be  a  valid  point  in  the  new  class.  Valid  points  are  determined  by 

VALID  POINT  =  NCR*1024  +  NCR/2  (18) 

Thus,  all  class  two  points,  in  Eye  coordinates,  are  odd.  After  the 
closest  valid  point  to  the  scan  line  has  been  determined,  the 
Bresenham  error  term  must  be  modified  to  account  for  this  new  point 
(IP1.IP2).  The  Bresenham  error  term  is  reinitialized  as  depicted  by 
the  following  FORTRAN  code: 

IEEE  =  -IDXY  +  (IP1*JXY2*INC  -  IP2*IXY2*INCI0)/NCR 
IFOEEE  .GT.  0)  THEN 

IP2  =  IP2  =  INCI0*NCR 
IEEE  =  IEEE  -  IXY2 

ENDIF 
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The  point  IP  is  then  set  equal  to  (IP1.IP2). 

If  the  horizon  limit,  HORIZONLIM,  has  been  reached  by  the  scan 
line  before  the  end  pixel  on  the  screen  has  been  reached,  then  sky  is 
simulated.  The  sky  corresponds  to  a  wall  with  infinite  height, 
located  at  the  horizon,  whose  reflectance  is  an  exponential  function 
from  light  to  dark. 

PGPROJ. FOR 

The  main  function  of  this  routine  is  to  compute  the  screen  coor¬ 
dinates  of  a  visible  world  point  (IXP,IYP,IZY).  This  routine  also 
determines  when  the  scan  line  is  finished.  The  mathematics  for  this 
routine  are  developed  in  Appendix  K.  Appendix  H  describes  an  improved 
projection  algorithm.  Generally,  a  projection  of  every  point  in  the 
scene  requires  two  floating  point  divides,  one  for  each  screen  axis. 
But  since  data  flows  in  a  regular  fashion,  along  a  scan  line,  it  has 
been  possible  to  develop  a  projection  algorithm  which  only  requires 
two  integer  divides  per  scan  line.  Thus,  eliminating  approximately 
one  thousand  divides  for  the  visible  points  that  are  processed  on  a 
typical  scan  line,  at  the  expense  of  additional  multiplies,  adds,  and 
compares  for  each  visible  point. 

These  two  divides  are  required  to  initialize  the  projection 
algorithm,  by  computing  the  closest  integer  location  for  the  first 
visible  point  and  setting  up  the  projection  error  terms.  These  error 
terms  represent  the  fractional  portion  of  the  exact  screen  location 
for  the  visible  point.  Each  successive  point  is  represented  by  its 
relative  distance  from  the  previous  visible  point.  This  relative 
distance  is  then  used  to  update  the  error  terms,  which  are  then  tested 
for  a  pixel  boundary  crossing.  In  order  for  this  routine  to  perform 
properly,  adjacent  visible  points  must  map  to  the  same  or  an  adjacent 
pixel.  Hence,  the  length  NCR  must  map  to  less  than  one  pixel  side's 
length.  There  are  two  parts  to  the  projection  algorithm,  initializa¬ 
tion  and  the  iterative  incremental  part. 

The  initialization  section  is  called  once  per  scan  line,  for  the 
first  visible  point.  The  function  of  the  initialization  portion  is 
to: 

1.  Compute  the  screen  location  of  the  first  visible  point. 

2.  Initialize  the  error  terms  JERRU  and  JERRW  which  represent 
the  fractional  portion  of  the  screen  coordinates. 

3.  Compute  the  scan  line  direction  on  both  screen  axes,  (INCXS, 
INCYS). 

The  general  procedure  to  compute  the  screen  coordinates  of  a 
visible  point  is  to  find  the  location  of  that  point  in  the  EYE  coor¬ 
dinate  system  by  multiplying  the  EYE  CENTRIC  WORLD  point  by  the  tran- 


51 


NAVTRAEQUIPCEN  80-D-0014-2 


pose  of  ROT.  Then  to  project  that  point  onto  the  screen  by  the  method 
of  similar  triangles. 

Since  the  visible  point,  (IXP, IYP, IZP) ,  is  given  in  NADIR  CENTRIC 
WORLD  coordinates,  one  must  subtract  the  eye's  height  from  the  height 
of  the  visible  point  and  matrix  multiply  the  result  by  IROT  to  find 
the  point  in  EYE  coordinates,  (IUP,IVP,IWP).  The  equations  used  to 
transform  a  point  in  WORLD  coordinates  to  a  point  in  EYE  coordinates 
are 


IZPT  =  IZP  - IEYEC3) 


(19) 

(20) 


Figure  14  depicts  how  one  projects  the  visible  point,  (IUP,IVP, 
IWP),  onto  the  screen  when  the  screen  center  is  at  (0,IVS,0). 


W 


Figure  14.  Projection  Triangles. 

From  similar  triangles,  the  screen  coordinates  ( I XS , I YS )  are  given  by 

IXS  =  ( IVS*IUP/IVP)*(NX/LX)  (21) 

I YS  =  -(IVS*IWP/IVP)*(NY/LY).  (22) 

The  term  (NX/LX)  is  a  scale  factor  corresponding  to  pixels  per 
unit  sere,,  i  length.  If  the  screen  center  is  at  an  arbitrary  location 
(IUS, IVS.1WS)  then  the  screen  coordinates  are 


NAVTRAEQUIPCEN  80-D-0014-2 


IXS  =  (IVS*IUP/IVP)*(NX/LX)  -  IUS*(NX/LX)  (23) 

IYS  =  -(IVS*IWP/IVP)*(NY/LY)  -  IWS*(NY/LY).  (24) 

Since  the  pixels  are  square,  one  can  define  the  number  of  pixels 
per  unit  length,  NPS,  as 

NPS  =  NX/LX  =  NY/LY.  (25) 

Then  the  screen  coordinates  are 

IXS  =  [IVS*IUP/IVP  -  IUS]*NPL  (26) 

IYS  =  [-IVS*IWP/IVP  -  IWS]*NPL  (27) 

If  we  define 

ICONST  =  IVS*NPL  (28) 

JCONSTX  =  IUS*NPL  (29) 

JCONSTY  =  IWS*NPL  (30) 

then 


IXS  =  ICONST*IUP/IVP  -  JCONSTX  (31) 

IYS  =  -ICONST*IWP/IVP  -  JCONSTY.  (32) 

Since  the  screen  coordinates  (IXS, IYS)  are  integers,  two  error 
terms  are  created  to  manage  the  fractional  portion  of  the  screen 
coordinates.  Each  pixel  is  defined  at  the  center  by  its  screen  coor¬ 
dinate  (IXS, IYS).  Therefore,  the  pixel  boundary  occurs  at  (IXS  ±  1/2, 
IYS  ±  1/2).  Figure  15  depicts  three  pixel  boundaries. 

Therefore,  based  on  Figure  15  the  pixel  boundary  crossing  occurs 
at  1/2  or  -1/2  of  a  pixel  width.  Since  the  exact  screen  coordinate  XS 
is 


XS  =  IXS  +  FRACX  =  ICONST*IUP/IVP  -JCONSTX  (33) 

then 

FRACX*IVP  =  ICONST*IUP  -  (JCONSTX  +  IXS)*IVP.  (34) 

Therefore,  the  error  term  is 

JERRU  =  FRACX*IVP  (35) 
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IXS-  \  IXS  IXS+^2  1XS-M  IXS*\ 


Figure  15.  Three  Pixel  Boundaries  Along  the  IXS  Axis. 


A  comparison  of  JERRU  to  IVP/2  or  -I VP/2  is  equivalent  to  compar¬ 
ing  FRACX  to  1/2  or  -1/2,  which  defines  a  pixel  boundary.  An 
efficient  method  to  compute  JERRU  is 

JERRU  =  ICONST*IUP  -  JIX*IVP  (36) 

JIX  is  defined  by 

JIX  =  JCONSTX  +  IXS  (37) 

Once  the  error  terms  have  been  initialized,  they  are  compared  to 
IVP/2  or  -IVP/2.  This  comparison  will  determine  if  the  first  point 
actually  belongs  in  an  adjacent  pixel,  due  to  truncation.  The  follow¬ 
ing  FORTRAN  code  depicts  how  JERRU  and  IXS  are  updated: 

IF  ((2*JERRU.GE.IVP).0R.(2*JERRU.LT.-IVP))THEN 
INC  =  ISIGN(1, JERRU) 

IXBS  =  IXBS  +  INC 
JIX  =  JIX  +  INC 
JERRU  =  JERRU  -  IVP*INC 

ENDIF 

A  similar  error  term  JERRW  for  IYS  is 

JERRW  =  -ICONSTMWP  -  JIY*IVP  (38) 


JIY  is  defined  by 

JIY  =  IYS  -  JCONSTY 


(39) 
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These  two  error  terms  have  now  been  initialized  for  the  next 
visible  point. 

One  can  identify  the  direction  in  which  the  scan  line  moves 
across  the  screen  (INCXS, INCYS)  as  [-1,  0,  +1].  The  value  of  (INCXS, 
INCYS)  will  determine  the  pixel  boundary  crossing  test  which  is  to  be 
applied  to  the  error  terms.  Appendix  K  develops  the  mathematics  for 
determining  (INCXS, INCYS).  Appendix  G  develops  pixel  projection  to 
fractional  pixel  accuracy. 

After  the  projection  initialization  is  complete,  the  projection 
algorithm  is  ready  to  receive  successive  visible  points  along  the  scan 
line.  Each  new  point  is  represented  by  its  incremental  distance  from 
the  last  visible  point  ( IXPINC, IYPINC, IZPINC).  To  compute  the  screen 
coordinates  for  the  new  point  one  must  update  the  two  error  terms 
(JERRU,JERRW)  to  compensate  for  this  incremental  change,  and  test  the 
error  terms  for  a  pixel  boundary  crossing.  Thus,  the  projection  of  a 
new  point  does  not  require  any  divides,  but  does  require  2  multiplies, 
and  2  adds  to  update  each  error  term,  and  2  compares  to  determine  if  a 
pixel  boundary  is  crossed.  If  the  pixel  boundary  is  crossed  then  1 
add  and  2  increments  are  additionally  required. 

If  the  new  point  (IXP'.IYP'.IZP')  is  represented  by  its  relative 
distance  from  the  last  visible  point  (IXP,IYP,IZP),  then  the  relative 
distance  is 

IXPINCl  TlXP'  -  IXPl  ' 

IYPINC  =  IYP'  -  IYP  .  (40) 

IZPINCJ  [IZP'  -  IZP 

These  incremental  distances  can  then  be  rotated  into  the  EYE 
coordinate  system  to  yield  (IUPINC,IVPINC,IWPINC),  by  the  matrix 
multiplication  of  I ROT  / 


IUPINC 

r  rixpiNc 

IVPINC  = 

fl ROT J  IYPINC 

(41) 

IWPINC 

u  J  [iZPINC 

Once  these  incremental  distances  are  transformed  into  the  EYE 
coordinate  system,  they  are  accumulated  into  the  error  terms.  These 
error  terms  are  then  tested  for  pixel  boundary  crossing.  The  accumu¬ 
lation  is 

’iUP'l  flUP  +  IUPINcl 

IVP'  =  IVP  +  IVPINC  (42) 
IWP '  J  [_IWP  +  IWPINCj 

where  (IUP ', IVP', IWP')  is  the  new  point  in  the  EYE  coordinate  system. 
Substituting  Equation  (42)  into  the  old  error  term.  Equation  (36), 
yields  the  new  error  term 
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JERRU'  =  ICONST*(IUP  +  IUPINC)  -  JIX*(IVP  +  IVPINC)  (43) 

or 

JERRU'  =  [ ICONST* IUP  -  JIX*IVP]  +  [ICONST*IUPINC  -  JIX*IVPINC]  (44) 
or 


JERRU'  =  JERRU  +  ICONST*IUPINC  -  JIX*IVPINC  v.^5) 

A  similar  equation  for  JERRW  is 

JERRW'  =  JERRW  -  ICONST*IWPINC  -  JIY*IVPINC  (46) 

Once  these  error  terms  have  been  updated  for  the  new  point,  they 
are  tested  for  pixel  boundary  crossing.  The  pixel  boundary  crossing 
test  for  the  new  point  is  similar  to  that  of  the  first  point  except 
that  INCXS  and  INCYS  define  the  test  to  be  applied.  The  following 
FORTRAN  code  is  the  pixel  boundary  crossing  test  for  the  XS  axis: 

IVP  =  IVP  +  IVPINC 

IF  (INCXS  .EQ.  1)  THEN 

ITEST  =  IVP  -JERRU  -JERRU 
IF  (ITEST  .LE.  0)  THEN 

JERRU  =  JERRU  -IVP 
JIX  =  JIX  +  1 
IXBS  =  IXBS  +  1 

ENDIF 

ELSE  IF  (INCXS  .EQ.  -1)  THEN 

ITEST  =  -IVP  -  JERRU  -JERRU 
IF  (ITEST  .GT.  0)  THEN 

JERRU  =  JERRU  +  IVP 
JIX  =  JIX  -1 
IXBS  =  IXBS  -1 

ENDIF 

ENDIF 

The  projection  algorithm  also  tests  each  screen  coordinate  pro¬ 
duced  to  determine  if  the  end  of  a  scan  line  has  been  reached.  This 
test  simply  compares  the  screen  coordinate  ISBS  of  IYBS,  depending  on 
the  IAXIS  value,  against  the  end  pixel  value,  NPIX.  NPIX  is  set  to  0, 
NX,  or  NY  as  defined  in  Figure  11.  The  following  FORTRAN  code  is  the 
end  pixel  test: 

EQUIVALENCE  (IXBS , ISCRN( 1) ) , ( IYBS , ISCRN( 2) ) 

IF  (NPIX  .EQ.  0)  THEN 

IF  (ISCRN(IAXIS)  .LE.  NPIX)  RETURN1 
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IF  (ISCRN(IAXIS)  .GE.  NPIX)  RETURN1 

ENOIF 

RETURN  1  is  a  special  return  to  signify  that  the  scan  line  is 
finished. 

When  the  scan  line  crosses  into  a  new  database  hierarchy,  the 
ground  resolution  is  reduced  by  a  factor  of  2  raised  to  the  power  of 
the  class  change.  The  class  change  is  not  always  one  since  the  next 
visible  point  may  be  far  from  the  last  visible  point.  The  following 
FORTRAN  code  identifies  the  database  hierarchy  crossing  procedure  for 
the  projection  algorithm: 

IF  (IRESOL  .NE.  I0L0RES0L)  THEN 

NEWRF  =  2**( IRESOL  -  IOLDRESOL) 

JERRU  =  JERRU/NEWRF 
JERRW  =  JERRW/NEWRF 
IV  =  (IV  +  N£WRF/2)NEWRF 
IOLDRESOL  =  IRESOL 

ENDIF 


PG LOG LOAD. FOR 

This  routine  stores  the  scene  data  in  ITEMBUF.  Each  time  a 
visible  point  is  projected  into  the  screen,  the  reflectance  data  is 
accumulated  into  ITEMBUF  and  a  count  buffer,  ICNT,  is  incremented. 
Thus,  the  scene  data  is  averaged  by  dividing  the  accumulated  pixel 
data  by  its  corresponding  count. 

To  prevent  overflow  of  the  byte  buffer,  ICNT  this  routine  only 
accumulates  pixel  data  if  the  count  is  a  power  of  two.  Only  data 
points  whose  count  is  1,2, 4, 8,  ...  will  be  accumulated  into  the  screen 
buffer.  This  function  is  called  "log  filtering." 

If  the  count  for  the  projected  point  is  of  a  power  of  two,  then 
this  routine  calls  the  database  to  determine  the  reflectance  value  for 
the  visible  point.  Thus,  saving  the  reflectance  computation  for 
points  that  are  discarded. 

PGFILTER. FOR 

Averaging  of  the  display's  data,  ITEMBUF,  is  accomplished  by  the 
subroutine  PGFILTER.  PGFILTER  is  called  once  at  the  end  of  picture 
creation.  The  present  version  of  PGFILTER  divides  the  "log  filtered" 
accumulated  pixel  reflectance  by  the  number  of  accumulated  data  points 
projected  into  that  pixel.  This  yields  an  average  reflectance  value. 
If  a  pixel  has  no  data  then  it  is  termed  a  missed  pixel,  and  no 
average  is  performed.  The  average  is  computed  as  shown  in  the  follow¬ 
ing  FORTRAN  code. 
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00  100  I  =  1, IFILDIM 

DO  100  J  =  1, IFILDIM 

KDIV  =  ICNT  (I,J) 

IF  (KDIV. EQ. 0)  KDIV  =  1 

ITEMBUF(I ,J)  =  ITEMBUF( I , J)/KDIV 
100  CONTINUE 

There  is  a  special  entry  point  called  FILT2,  within  the  sub¬ 
routine  PGFILTER,  whose  purpose  is  to  fill  any  missed  pixels  (i.e., 
pixels  for  which  ICNT  =  0).  The  fill  is  computed  as  the  average  of 
the  nonzero  adjacent  pixels.  This  is  accomplished  by  summing  the 
reflectance  from  the  adjacent  nonzero  pixels  and  dividing  the  sum  by 
the  number  of  nonzero  adjacent  pixels. 

This  filter  is  useful  to  fill  the  inherent  missed  pixels  that  are 
a  result  of  creating  test  pictures,  which  use  a  large  angle  factor. 
The  use  of  the  large  angle  factor  is  discussed  in  the  subroutine  INPUT 
section  of  this  paper. 

Another  PGFILTER  special  entry  point  is  CLEAR  that  clears  ITEMBUF 
to  zero  and  is  called  once  at  he  start  of  the  scene  computation. 

PGDATA. FOR 

PGDATA. FOR  is  the  data  base  used  to  create  the  first  movie.  This 
data  base  consists  of  block  type  buildings,  holes  and  roads.  The 
building  tops  are  painted  with  a  psuedo  noise  to  demonstrate  REAL 
SCAN's  capability  for  displaying  high  detail.  The  data  base  is  a 
mathematical  model  which  returns  a  single  height  and  reflectance  value 
for  any  given  set  of  ground  coordinates. 

The  data  base  coordinates  are  computed  by  taking  the  modulo 
(1024)  of  the  ground  coordinates.  Modulo  arithmetic  is  used  so  that 
only  a  portion  of  the  environment  is  defined  by  the  data  base.  Thus 
the  data  base  repeats  its  pattern  every  1024  units. 

Second  Generation  Software 

This  section  of  the  report  will  document  the  major  differences 
between  the  second  generation  REAL  SCAN  software  routines  (PZ*.F0R) 
and  the  first  generation  REAL  SCAN  software  routines  (PG*.F0R).  These 
routines  are  listed  in  Table  6.  A  complete  FORTRAN  listing  of  these 
routines  is  given  in  Appendices  FB  through  FM.  Appendix  L  compares 
the  two  sets  of  routines  for  picture  creation  capability  and  the  CPU 
time  required  to  compute  an  identical  scene  with  both  sets  of 
routines. 
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TABLE  6.  SECOND  GENERATION  REAL  SCAN  SOFTWARE  ROUTINES 


1. 

PZC0M0AT. FOR 

2. 

PZBUF. FOR 

3. 

PZNOISE. FOR 

4. 

PZMAIN. FOR 

INTEGER 

5. 

PZSCENE.FOR 

INTEGER 

6. 

PZSLIN1T. FOR 

INTEGER  AND  FLOATING  POINT 

7. 

PZSCAN. FOR 

INTEGER 

8. 

PZPROJ. FOR 

INTEGER 

9. 

PZMULT. FOR 

INTEGER  "NO  OVERFLOW" 

10. 

PZ LOGLOAD. FOR 

INTEGER 

11. 

PZFILTER.FOR 

INTEGER 

12. 

PZDATA. FOR 

INTEGER 

The  routines  of  Table  6  differ  fro*  the  first  generation  REAL 
SCAN  software  routines  (PG*.F0R)  in  the  following  najor  areas: 

1.  They  have  color  capability. 

2.  The  programs  are  organized  in  a  more  functional  manner. 

3.  The  variables  IP(*)  and  L0WN(*)  which  represent  the  data 
points  along  the  scan  line  are  scaled  to  a  specific  number  of 
bits. 

4.  Variables  are  in  EYE  CENTRIC  WORLD  coordinates  rather  than 
NADIR  CENTRIC  WORLD  coordinates. 

5.  The  projection  algorithm  utilizes  a  "NO  OVERFLOW"  multiply 
routine  to  compute  the  projection  error  terms. 

6.  The  scan  lines  don't  always  start  at  the  Nadir. 

This  section  of  the  report  will  discuss  the  differences  listed 
above. 

COLOR  CAPABILITY 

Color  capability  is  achieved  by  creating  data  bases  which  return 
a  vector  reflectance.  The  reflectance  has  three  components:  blue, 
red,  and  green.  The  dimension  of  the  screen  buffer  is  changed  from 
the  black  and  white  size  of  (512,512)  or  0.5  megabytes  to  (3,512,512) 
or  1.5  megabytes.  This  larger  size  allows  all  three  reflectance 
values  to  be  accumulated  into  each  pixel  of  the  screen  buffer. 
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PROGRAM  ORGANIZATION 

The  black  and  white  routines  of  Table  1  (PG*.F0R)  were  reorgan¬ 
ized  in  the  following  files: 

PZSCENE.FOR  consists  of  all  one-time  scene  operations  or  initial¬ 
izations.  The  file  PZSCENE.FOR  is  a  combination  of  the  subroutines 
PGSCENE.FOR,  INPUT,  and  OUTPUT. 

The  two  scan  line  initialization  routines  PGSL.FOR  and  PGVIS.FOR 
in  the  first  generation  software  were  combined  into  one  routine 
PZSLINIT.FOR.  Thus,  PZSLINIT.FOR  performs  all  one  time  scan  line 
initializations. 

SCALED  DATA  POINTS 

The  purpose  of  the  scaled  data  points  is  to  limit  or  bound  the 
number  of  bits  required  to  maintain  the  data  point's  resolution  along 
the  scan  line.  This  will  also  bound  the  number  of  bits  required  to 
manipulate  these  data  points.  The  data  points  IP(*)  and  L0WN(*)  are 
scaled  by  the  hierarchy  levels. 

The  data  points  (i.e. ,  world  coordinate)  along  the  scan  line  grow 
in  magnitude  as  the  scan  line  extends  from  the  nadir  to  the  horizon. 
But  since  the  data  base  consists  of  hierarchy  levels,  the  data  points 
along  the  scan  line  are  scaled  by  the  hirarchy  level.  Thus,  the 
absolute  location  of  the  data  point  in  NADIR  CENTRIC  coordinates  is  a 
function  of  the  data  point's  coordinate  value  and  the  hierarchy  level 
in  which  the  data  point  resides.  For  example,  if  the  data  point  is  in 
a  hierarchy  level  where  the  relative  increment  between  data  points, 
NCR,  is  2  and  one  coordinate  of  the  data  point  is  1000,  then  that 
absolute  data  point  coordinate  in  NADIR  CENTRIC  WORLD  coordinates  is  2 
times  1000,  or  2000. 

The  idea  of  scaled  coordinates  is  achieved  by  right  shifting  the 
coordinate  each  time  a  hierarchy  level  is  crossed.  Since  each  hier¬ 
archy  level  has  twice  the  relative  increment  between  coordinates  as 
the  previous  hierarcial  level.  The  hierarchy  levels  are  separated  by 
NCRLIM*NCR  units.  NCRLIM  is  a  constant  corresponding  to  twice  the 
display  resolutions,  usually  1024.  NCR  is  the  relative  increment 
between  data  points  in  a  particular  hierarchy  level.  Thus,  the 
largest  the  scaled  data  point  coordinate  can  be  is  NCRLIM  units. 
Therefore,  the  number  of  bits  ,NBITS,  required  to  maintain  the  data 
point's  accuracy  is  the  constant 

NBITS  =  L0G2  (NCRLIM)  +  2  (47) 
The  extra  bits  are  accommodate  sign  and  round  off. 
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Scaled  data  points  are  of  benefit  to  the  projection  algorithm  by 
bounding  the  range  of  the  projection  error  terms,  JERRU  and  JERRW. 
The  projection  error  terms  are  bounded  since  the  scaled  relative 
increment  between  data  points  is  a  constant  (usually  -1,  0,  or  +1)  for 
any  hierarchy  level.  Thus,  each  time  a  new  hierarchy  level  is  crossed 
the  projection  error  terms  are  right  shifted  to  half  their  prevous 
significance.  The  set  of  FORTRAN  equations  which  define  the  hierarchy 
boundary  crossing  are  listed  below: 

IF(NCRL1M  .LE.  ABS(IP(ICASE))  THEN  !NEW  HIERARCHY 
00  10  I  =  1,3 
IP(I)  =  IP(I)/2 
10  L0WN(I)  =  L0WN(I)/2 

JERRU  =  JERRU/2 
JERRW  =  JERRW/2 
IVP  =  IVP/2 

ENDIF 

EYE  CENTRIC  WORLD  COORDINATES 

All  variables  which  represent  altitude  are  in  the  EYE  CENTRIC 
WORLD  coordinate  system,  (i.e. ,  the  altitude  of  the  point  is  relative 
to  the  eye's  altitude).  This  representation  of  altitude  is  more 
efficient  than  using  the  ground  plane  for  a  reference,  since  the 
visibility  and  projection  algorithms  both  use  the  altitude  of  the 
point  relative  to  the  eye.  Therefore,  when  the  data  base  returns  an 
altitude  the  eye's  altitude  is  subtracted  from  the  points  altitude. 
Then  the  EYE  CENTRIC  altitude  is  scaled  by  the  relative  increment  in 
the  hierarchy  level  by  dividing  by  NCR  (i.e.,  scaling  to  the  hierarchy 
level  without  actual  division). 

"NO  OVERFLOW"  MULTIPLY 

One  problem  with  the  projection  algorithm  of  PGPR0J.F0R  was  that 
the  computation  of  the  projection  error  terms  (JERRU  and  JERRW)  caused 
integer  overflows  on  the  VAX- 11/780  at  NTEC.  The  new  projection 
routine,  PZPR0J.F0R,  utilizes  a  "NO  OVERFLOW"  multiply  routine  to 
compute  the  projection  error  terms,  and  yields  accurate  results. 
Thus,  the  software  has  been  brought  a  step  closer  to  the  anticipated 
hardware  solution. 

From  equations  (37)  and  (38)  PGPR0J.F0R  computes  the  projection 
error  terms  as: 

JERRU  =  ICONSTIMUP  -  JIX*IVP  (48) 

JERRW  =  I CONST* I WP  -  JIY*IVP  (49) 

The  error  terms  are  computed  as  the  sum  of  two  products.  If  either  of 
these  two  products  overflows  then  the  computation  process  for  the 
error  term  overflows  and  causes  a  halt  in  the  execution  of  the  scene. 
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The  VAX- 11/780  system  allocates  4  bytes  to  integers.  A  close 
analysis  of  equation  (48)  shows  that  JERRU  can  overflow  the  4  bytes 
allocated.  This  analysis  is  as  follows: 

1.  ICONST,  corresponding  to  the  number  of  display  pixels,  is 
typically  512  units  or  9  bits. 

2.  IUP  is  the  product  of  IROT  and  the  data  point's  range,  IP. 

3.  IROT  is  the  rotation  matrix  scaled  by  2  raised  to  the  N 
power,  where  N  is  typically  12,  corresponding  to  quarter 
pixel  resolution. 

4.  Thus  using  standard  FORTRAN  execution  processes,  JERRU  will 
overflow  the  32  bit  range  if  the  point's  range  is  greater 
than  11  bits  (32  -  9  -  12). 

5.  Thus  if  a  scaled  coordinate  exceeds  1024  or  -1024  JERRU  can 
overflow. 

This  problem  is  eliminated  in  the  PZPROJ.FOR  routine  by  scaling 
coordintes  and  by  using  a  "NO  OVERFLOW"  multiply  routine.  A  "NO 
OVERFLOW"  routine  is  a  routine  which  is  compiled  with  the  NON  STANDARD 
FORTRAN  QUALIFIER  NO  OVERFLOW.  This  qualifier  suppresses  the  overflow 
detection  process  on  the  VAX- 11/780  system.  Thus  the  PZPROJ.FOR 
routine  allows  the  products  to  overflow  but  accurate  results  are 
guaranteed.  The  result  is  accurate  since,  the  value  of  JERRU  is 
always  smaller  than  IVP.  This  is  guaranteed  because  successive 
visible  points  on  the  scan  line  are  required  to  map  to  the  same  or 
adjacent  pixels  on  the  screen  as  the  last  visible  point. 

Thus,  since  IVP  does  not  exceed  the  4  byte  range,  then  JERRU  will 
not  exceed  the  4  byte  range.  This  implies  that  the  high  order  bits  of 
the  two  products  used  to  compute  JERRU  cancel  in  the  summation. 
Therefore,  a  "NO  OVERFLOW"  multiply  routine  which  sums  two  large 
products  to  yield  a  small  result  is  guaranteed  to  yield  accurate 
results  for  the  projection  routine. 

Another  significant  item  is  that  since  the  data  point's  coord¬ 
inates  along  the  scan  line  are  scaled  by  the  hierarchy  levels,  then 
IVP  is  bounded  by  a  predetermined  number  of  bits.  The  number  of  bits 
required  to  maintain  IVP  is  the  sum  of  the  number  of  bits  required  for 
IP  and  N  or  24  bits.  Thus  the  number  of  bits  required  to  maintain  the 
projection  error  terms  (JERRU  and  JERRW)  is  only  24  bits,  rather  than 
32  bits. 

SCAN  LINE  START 

Another  significant  difference  in  the  second  generation  REAL  SCAN 
software  routines  is  that  the  scan  lines  don't  have  to  start  at  the 
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nadir.  If  the  maximum  height  of  the  data  base  is  known  then  the  lower 
bound  angle  for  a  particular  scan  line  is  used  to  determine  a  safe 
starting  point  for  the  scan  line.  Figure  16  illustrates  this  feature. 

The  value  of  IP(ICASE)  is  determined  from  the  method  of  similar 
triangles  as  depicted  by  the  following  FORTRAN  equation: 

IP(ICASE)  =  LOWN(ICASE)*(EYEHEIGHT-MAXHEIGHT)/EYEHEIGHT 

The  value  of  the  other  coordinate  IP(IOTHR)  is  found  by  multiply¬ 
ing  IP(ICASE)  by  the  slope  of  the  scan  line. 


Z 


Figure  16.  Scan  Line  Start  Improvement. 
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SECTION  III 
THE  DATA  BASE  PROBLEM 


What  does  it  mean  to  develop  a  simple  method  for  modeling  the 
world  to  display  limited  resolution?  This  question  must  be  understood 
and  answered  before  one  can  be  guaranteed  a  solution  to  simply  model¬ 
ing  the  world.  Some  of  the  aspects  of  a  simple  real  world  model  are: 

1.  Capability  of  modeling  highly  complex  scenes  in  a  simple  way 
(i.e. ,  simple  computation  and  small  amount  of  data). 

2.  Need  to  limit  the  model's  detail  to  the  display's  resolution 
to  eliminate  aliasing. 

3.  Need  for  anti-aliasing  procedures  dealing  with  visible  edge 
boundaries  (i.e.,  looking  over  a  sequence  of  distinctly 
colored  hedge  rows  running  from  left  to  right  across  the 
viewing  window,  hence  partially  occulting  more  distant  hedge 
rows). 

4.  Capability  to  easily  match  the  Kell  factor  resolution  (i.e., 
approximately  3  display  pixels  per  scene  line  pair)  (13). 

5.  Capability  to  easily  incorporate  the  fact  that  resolvable 
detail  along  any  line  of  sight  subtends  a  constant  spherical 
angle.  Hence,  the  world  model's  detail  should  decrease  with 
range  from  the  eye. 

The  form  of  real  world  data  and  the  form  of  known  modeling 
methods  impacts  the  data  base  problem.  A  model  must  be  able  to  repre¬ 
sent  the  following  data  types: 

1.  Man  made  ground  cover  such  as 


a.  buildings 

b.  roads 

c.  structures 

d.  farm  fields 

e.  orchards 

f.  landscaping 

g.  rubble 


13 

Kell,  R.  0.;  Bedford,  A.  B. ;  and  Trainer,  M.  A.  "An  Experimental 
Television  System",  Proceedings  of  IRE,  Vol.  22,  No.  11,  p.  1247, 
November,  1934. 
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2.  Natural  ground  cover  such  as 

a.  desert 

b.  forest 

c .  swamp 

d.  lake  or  sea 

e.  stream 

f.  mountain 

g.  beach 

h.  field 


It  seems  most  reasonable  to  expect  different  modeling  techniques 
would  be  utilized  to  efficiently  model  these  data  types.  For  example, 
some  form  of  polynomial  seems  appropriate  to  the  undulation  of  terrain 
while  painted  planar  surfaces  seems  appropriate  to  many  buildings  and 
structures. 

The  modeling  methods  impact  two  aspects  of  the  data  base  problem: 
the  form  of  the  source  data  and  the  form  of  the  modeled  data  used  to 
calculate  the  scene.  The  forms  may  be  obviously  compatible  (i.e.,  a 
terrain  elevation  map)  or  clearly  require  a  mapping  or  translation 
(i.e.,  culture  or  texture  descriptors  describing  various  forms  of 
ground  cover,  but  without  exact  detail). 

The  REAL  SCAN  method  of  producing  a  realistic  scene  for  training 
has  as  one  of  its  goals,  the  capability  of  automatically  transforming 
real  world  data  into  the  computer  math  model  used  to  calculate  the 
display.  For  example,  one  might  imagine  photo-planimetry  could  be 
used  to  accurately  describe  a  high  detail  scene,  such  that  one  would 
obtain  detailed  elevation  and  color  data.  However,  one  is  also  aware 
that  few,  if  any,  parts  of  the  world  are  constant.  Vegetation  grows 
and  changes  color.  The  sun  produces  various  shading  and  shadowing 
effects.  Hence,  the  translation  of  real  world  data  to  any  computer 
math  model  will  probably  make  use  of  culture  classifiers  and  inter¬ 
mediate  modeling  to  fill  in  detail  suggested  by  photographs. 

It  is  important  to  consider  the  forms  of  the  original  data  and 
the  forms  of  the  math  models  so  that  the  REAL  SCAN  efforts  can  be 
placed  in  perspective.  Real  world  source  data  may  be  in  the  form  of: 

1.  Photographs,  suggesting  automatic  planimetric  conversion  via 
intermediate  models 

2.  Elevation  maps  on  a  regular  grid  with  culture  files  describ¬ 
ing  the  ground  cover,  suggesting  conversion  via  intermediate 
mode  Is. 

3.  Some  combination  of  1  and  2  above.  The  clear  need  for 
modeling  suggests  representative  terrain  could  be  directly 
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generated  from  the  intermediate  models,  and  placed  in  the 
form  of  the  real  time  computer  generated  math  model.  For 
example,  trees  could  be  modeled  via  Csuri  procedures  (14,15) 
giving  full  volumetric  modeling.  The  appearance  of  tree 
leaves  could  also  be  "grown"  on  the  surface  of  an  ellipsoid 
which  allowed  both  color  and  transparency  so  that  full  3-D 
effects  are  present  (16).  Without  the  complexity  of  volu¬ 
metric  modeling,  trees  could  also  be  grown  on  a  plane 
surface  which  allowed  color  and  transparency  but  the  full 
3-D  effect  would  not  be  present. 

These  examples  suggest  the  need  to  classify  various  modeling 
methods  generally  and  correlate  the  modeling  method  with  character¬ 
istics  of  the  real  world  data.  Current  CIG  methods  make  use  of  plane 
surfaces  to  model  the  training  scene.  Large  planar  surfaces  achieve  a 
substantial  degree  of  data  compression.  However,  complex  scenes 
suggest  that  planar  surfaces,  with  complex  texture  painted  on  the 
surfaces,  would  have  their  dimension  reduced  to  approximately  pixel 
size.  If  a  surface  dimension  approaches  four  pixels,  then  it  is  clear 
that  both  less  data  and  fewer  computations  would  be  required  if  the 
data  were  stored  in  ground  coordinates.  First  of  all,  two  variables 
need  not  be  stored  for  a  fixed  world  point  since  these  correspond  to 
the  address  of  the  data.  Secondly,  no  sorting  is  required  to  access 
data.  Finally,  the  same  model  could  be  used  to  interpolate  over  the 
surface,  but  the  color  data  in  real  world  coordinates  need  not  be 
calculated  except  if  the  data  is  visible.  These  arguments  against 
planar  surfaces  are  not  valid  when  the  scene  detail  is  sparse,  but  the 
breakpoint  where  minimal  REAL  SCAN  detail  requirements  matches  planar 
surface  modeling  has  not  been  determined. 

Some  of  the  ways  that  one  can  model  highly  complex  scenes  where 
two  coordinates  correspond  to  data  base  address  are: 

1.  Polynomial  coefficients  describing  elevation  or  color 
surfaces. 


14 

Csuri,  C. ;  Hackathorn,  R. ;  Parent,  R. ;  Carlson,  W.  and  Howard, 
M.  "Towards  an  Interactive  High  Visual  Complexity  Animation  System", 
SIGGRAPH  '79  Proceedings,  p.  289-299,  August,  1979. 

15 

Marshall,  R. ;  Wilson,  R. ;  and  Carlson,  W.  "Procedure  Models  for 
Generating  Three-Dimensional  Terrain",  SIGGRAPH  '80  Conference 
Proceedings,  pp.  254-259,  July,  1980. 

^Gardner,  G.  "Computer  Generated  Texturing  to  Model  Real  World 
Features",  Proceedings  of  the  1st  Interservice/Industry  Training 
Equipment  Conference,  pp.  239-245,  November,  1979. 
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2.  Interpolation  formula  using  the  data  base  grid  (i.e., 

Overhauser-Coons  patch,  etc.). 

3.  Function  coefficients  such  as  Fourier  coefficients  with  a 
trigometric  look  up  table. 

4.  Culture  map  dependent  upon  world  coordinate  and  data  type 

parameter  (i.e.,  creation  of  look  up  tables  for  various  data 
types  having  proper  statistical  properties  such  that  a 

modulo  index  of  the  world  address  also  corresponds  to  the 
look  up  table  address). 

5.  Use  of  signed  numbers  in  the  color  generation  models  to 

generate  nearly  arbitrary  curves  between  regular  grid  points 
(i.e.,  a  stream's  meandering  boundaries  can  be  generated  by 
forcing  a  parabolic  or  higher  order  function  to  interpolate 
a  regular  grid  such  that  the  function  changes  sign  to  indi¬ 
cate  blue). 

6.  Feature  maps  such  as  the  surfaces  of  buildings  or  struc¬ 

tures,  or  feature  patterns  (i.e.,  color  and  transparency  on 
an  ellipse  to  represent  a  tree  or  bush). 

These  are  modeling  schemes  which  have  been  considered  for  REAL 
SCAN.  However,  only  some  of  them  have  been  investigated  to  any  depth. 

REAL  SCAN  Data  Base  Models 

The  modeling  approaches  which  have  been  investigated  to  date  are 
all  based  upon  a  regular  grid  of  addresses  to  access  the  model. 
Further,  only  single  value  elevation  models  have  been  considered  to 
date.  The  models  are: 

1.  Functions  to  model  terrain  elevation,  such  as  Z(X,Y)=A(sin  W 
X)(sin  WY).  Reflectance  information  is  obtained  via  an 
arbitrary  sun  vector  and  assuming  the  surface  is  a  diffuse 
reflector. 

2.  Planar  surfaces  to  model  buildngs.  Reflectance  is  assigned 
to  the  surface  as  a  function  of  position,  creating  regular 
or  arbitrary  patterns. 

3.  Culture  maps  to  simulate  a  range  of  terrain  including 
forest,  field,  lake,  and  beach.  The  maps  are  interpolated 
for  both  elevation  and  color.  Reflectance  information  is 
obtained  via  an  arbitrary  sun  vector  and  assumina  the 
terrain  is  a  diffuse  reflector. 

The  recognition  of  decreased  resolution  with  range  has  been 
implemented  by  making  11  data  base  levels  in  our  hierarchy.  Hence,  if 
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one  is  in  hierarchy  1,  nearest  the  eye,  then  ground  coordinates  change 
in  units  (i.e.,  1,2, 3, 4, 5,  ...  an  increment  of  one).  If  the  scene's 
data  next  comes  from  hierarchy  2,  then  ground  coordinates  would 
increment  by  two's.  Hierarchy  boundaries  depend  upon  range  from  the 
eye  to  the  ground  coordinates.  The  change  between  hierarcy  1  and 
hierarchy  2  occurs  approximately  where  the  spherical  angle  subtended 
in  hierarchy  2  matches  the  desired  real  world  resolution  (i.e.,  we  are 
investigating  the  impact  of  about  two  ground  points  per  linear  pixel 
dimension  or  about  four  ground  points  per  pixel.) 

Details  of  the  REAL  SCAN  data  base  models  will  be  presented  later 
in  this  section.  At  this  point,  a  development  based  upon  the  sampling 
theorem  and  eye  point  motion  is  presented  to  generate  estimates  of 
potential  data  compression  and  memory  size  required  to  accommodate 
both  the  currently  generated  scene  and  a  gaming  area.  Appendix  B 
further  develops  memory  requirements  versus  gaming  area. 

Data  Base  Modeling  Estimates 

Let  us  consider  a  frequency  limited  function  such  that  the  short¬ 
est  period  (corresponding  to  the  highest  frequency)  is  defined.  The 
sampling  theorem  requires  at  least  two  points  per  shortest  period  to 
reconstruct  (i.e.,  closely  approximate)  the  original  function.  This 
may  be  interpreted  to  limit  the  extremums  between  sample  points  to  at 
most,  one  (i.e.,  no  more  than  one  maximum  or  minimum  between  sample 
points,  the  "or"  is  significant).  This  suggests  at  least  quadratic 
equations  are  needed  to  accurately  model  a  function  sampled  on  a 
regular  grid  having  maximum  grid  spacing.  But  the  theorem  also 
suggests  the  converse,  no  more  than  one  extremum  can  be  interpolated 
for  a  sampled  function. 

Let  us  digress  for  a  moment,  to  consider  the  number  of  Fourier 
coefficients  required  to  model  a  space  when  the  sampling  corresponds 
to  the  grid  spacing.  We  see  the  following  terms  sinx,  sin2x,  siny, 
sin2y,  (sinx)(siny) ,  (sinx)(sin2y) ,  (sin2x)(siny) ,  and  (sin2x)(sin2y). 
This  yields  8  trigometric  terms  compared  to  the  4  terms  defining  the 
original  grid.  Hence,  courser  spacing  than  specified  by  the  sampling 
theorem  can  only  be  considered  if  the  use  of  multiple  coefficients 
substantially  reduces  the  computation  requirements,  since  a  doubling 
of  data  base  size  is  required  for  comparable  accuracy  or  resolution. 

Let  us  now  return  to  considering  an  interpolated  function.  One 
can  set  a  lower  bound  to  the  number  of  interpolated  data  points  for  a 
scene  producing  display  limited  resolution.  Let  n  points  be  averaged 
per  pixel  linear  dimension  (i.e.,  REAL  SCAN  considers  n  =  2).  The 
Kell  factor  suggest  3  pixels  are  required  to  generate  a  line  pair. 
Hence,  3n  data  points  would  map  to  the  highest  resolvable  frequency  in 
the  display.  This  yields  3n/2  interpolation  points  per  smallest 
ground  detail  on  a  fixed  grid  data  base.  Hence,  if  the  dimension  of 
the  smallest  ground  detail  is  A  and  the  gaming  dimension  is  R,  then 
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.  2 
the  highest  resolution  hierarchy  need  have  no  more  than  (2R/(3nA)) 

data  points.  If  n  =  2,  A  =  1  cm  and  R  =  1  Km  then  (2R/(3nA))2  = 

g 

1.1x10  data  points. 

However,  if  one  assumes  that  detail  can  be  taken  from  culture 
memory  maps  (i.e.  ,  representing  waves  or  trees  or  fields,  etc.)  and 
that  an  inexpensive  memory  map  could  describe  about  10,000  points, 
then  the  amount  of  interpolation  increases  substantially.  If  we 
assume  the  culture  memory  map  detail  has  been  prefiltered  to  provide 
3n/2  points  per  length  for  the  highest  frequency  line  pair,  and  if  we 
assume  a  mapping  of  the  10,000  points  onto  an  M*M  size  interpolation 
grid  will  not  create  a  noticeable  repeating  pattern,  unless  the 
repeating  pattern  is  desired,  then  the  number  of  data  points  needed  to 

model  the  highest  resolution  hierarchy  is  (2MR/(300nA))2.  If  n  =  2, 

A  =  1  cm,  R  =  1  Km  and  M  =  10  then  (2MR/(300nA))2  =  1.1*107  data 
points.  The  use  of  cultural  mapping  functions  (i.e.,  memories) 
suggests  the  ability  of  achieving  0.3  cm  resolution  over  high 

resolution  gaming  areas  of  10  KM  *  10  KM  for  about  1.2*1010  data 
points.  The  corresponding  grid  space  would  be  9  cm  for  M  =  10,  n  =  2, 
A  =  0.3  cm.  While  the  grid  spacing  is  large,  and  suggets  a  moderate 
amount  of  data  compression,  the  9  cm  grid  spacing  requires  some 
method,  such  as  signed  texture  parameters,  to  realistically  map 
arbitrary  road,  stream,  or  building  boundaries. 

This  analysis  suggests  reasonable  estimates  of  data  compression 
will  likely  range  between  3  and  30  interpolations  per  data  grid  dimen¬ 
sion.  The  lower  bound  of  3  interpolations  seems  to  be  well  founded 
via  the  Kell  factor.  The  upper  bound  is  clearly  an  estimate  depending 
upon  both  the  cultural  mapping  method  and  subjective  appraisal  of  the 
data  bases  realism. 

Let  us  assume  a  data  grid  spacing  of  10  cm  corresponding  to  high 
detail  resolution  of  0.33  cm  with  a  culture  mapped  detail  interpola¬ 
tion.  Then  the  size  of  the  data  base  can  be  estimated  for  various 
sized  gaming  areas.  Let  us  further  allow  16  bits  of  elevation,  24 
bits  of  color  and  8  bits  of  culture  code.  Table  7  illustrates  the 
number  of  data  points  required  to  model  each  hierarchy  level  as  a 
function  of  the  area  covered  by  the  hierarchy  level.  All  levels 
beyond  the  first,  whether  10  or  20  or  more,  contribute  only  1/3  of  the 
first  level's  data  points. 

If  we  imagine  a  gaming  region  extending  to  the  horizon  (i.e.,  say 
about  80  KM)  such  that  a  10KM  x  10KM  high  resolution  region  forms  the 
center,  then  the  total  data  point  requirement  can  be  estimated  as 

1.34*10*®  data  points  in  15  levels. 
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TABLE  7.  10cm  GRID  DATA  POINTS 


Hierarchy 

Level 

10KM*10KM 

20KM*20KM 

40KM*40KM 

1 

1010 

* 

H- 

O 

H-* 

O 

1.6X1011 

2 

2. 5xl09 

1010 

4  *1010 

3 

6.25  *108 

2.5xl09 

1010 

4 

1.56  *108 

6.25  *108 

2.5x10° 

5 

3.9xl07 

1.56  *108 

6.25  *108 

6 

0.10  *108 

3. 9xlQ7 

1.56  *108 

7 

2.5  *106 

107 

3. 9x10 7 

8 

6.24xl05 

2.5  *106 

10  7 

9 

1. 56xl05 

6.24xl0S 

2.5  *106 

10 

3.9  *104 

1.  56xl0S 

6.24xl0S 

SUM 

1.33  *10 10 

5.33  *1010 

2.13X1011 

Using  6  bytes  per  data  points  yields  a  data  base  of  8.4  x  10 
bytes  to  describe  the  gaining  region.  This  data  base  is  within  the 
capability  of  video  disk  technology  (5). 

Appendix  A  derives  the  cell  memory  requirements.  The  formula  for 
the  minimum  cell  memory  is 

Mmin  *  (4+3n)  r2  Tc  (8a2)  +  4  VTr1sin(T(;/2)/a2  (50) 

where 


r^  =  distance  over  which  the  highest  cell  detail  exists  (meter). 

a  =  distance  between  highest  cell  detail  (meter). 

Tc  =  worst  case  field  of  view  (radian). 

V  =  velocity  of  the  eye  (meter/sec). 

5 

"Videodisc  Based  Storage  Technology",  Computer.  Vol.  13,  No.  6, 
pp.  87,  June,  1980. 
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T  =  the  time  to  transfer  data  from  disk  covering  the  predicted 
field  of  view  (sec). 

2nr.,  =  the  range  limit,  Rmax  (meter). 

For  example,  if  r^  s  10  meter,  a  =  0.1  meter,  Tc  =  60  ~  1  radian,  V  = 

50  meter/sec,  T  =  0.3  sec,  Rmax  =  2nr.  ~  20  kilometer,  and  n  =  11; 
3  A 

then  Mmin  =  80*10  data  points  or  480  kilobytes  of  memory  if  6  bytes 
are  used  to  describe  each  data  point.  Further  30,000  data  points 
would  need  to  be  transferred  in  the  0.3  second  interval  for  an  average 
disk  transfer  rate  of  750  kilobytes/sec.  Since  disk  transfer  rates 
exceeding  1  megabyte/sec  are  common,  one  can  conclude  that  a  minimum 
cell  memory  of  between  400  kilobytes  to  1  megabyte  will  be  required. 
The  cell  memory  can  be  larger  if  large  disk  blocks  are  needed  to  block 
out  the  virtual  address  space.  The  smaller  the  virtual  address  block 
the  more  nearly  one  can  size  cell  memory  to  the  minimum  required. 

Terrain  Modeling  with  Random  Numbers  (Noise) 

Terrain  modeling  is  done  by  means  of  random  number  files  in 
REAL  SCAN.  This  provides  the  ability  to  create  patterns  which  are 
described  by  only  a  few  parameters:  amplitude  distribution  and  filter 
frequency.  Figure  17a  illustrates  an  elevation  map  of  a  noise  file 
having  amplitudes  0  through  255.  Black  corresponds  to  0  and  white 
corresponds  to  255.  Figure  17b  illustrates  a  picture  of  a  diffusely 
reflective  surface  having  the  elevation  map  of  Figure  17a.  The  ways 
in  which  noise  files  are  created  and  an  introduction  to  the  method 
used  to  create  these  pictures  are  presented  in  this  section. 


(a)  (b) 


Figure  17.  Noise  Files. 


NAVTRAEQU I PCEN  80-0-0014-2 


Single  valued  arrays  of  random  numbers  have  been  created  to 
simulate  terrain  and  texture.  These  arrays  provide  a  data  base  to 
test  the  concepts  of  hierarchy  and  the  mapping  of  real  world  features 
by  patterns. 

The  program  TRYTEX  (Appendix  HC)  was  created  to  produce  this 
random  number  array.  Two  parameters  control  the  creation  of  the  array 
from  a  standard  random  number  generator.  The  first  is  the  frequency 
of  peaks  and  valleys  in  the  noise.  For  example,  terrain  would  be  a 
slowly  varying  pattern  while  detail,  such  as  trees  and  leaves,  would 
have  higher  frequencies.  The  filtered  array  is  an  array  that  has  this 
desired  spatial  frequency  distribution.  Another  controlled  parameter 
is  the  elevation  distribution.  The  elevation  distribution  of  the 
filtered  array  is  nearly  Gaussian.  A  redistribution  technique  was 
developed  to  change  the  filtered  array  to  one  of  four  possible  distri¬ 
butions:  uniform,  triangular,  parabolic,  or  cusp. 

To  generate  the  filtered  redistributed  array,  the  following 
information  is  required: 

1.  A  seed  for  the  random  number  generator 

2.  The  size  of  the  filter 

3.  The  size  of  the  final  array 

4.  Type  of  elevation  distribution 

5.  The  number  of  passes  through  the  filter 

The  following  technique  is  used  to  generate  the  filtered  array. 
First,  an  array  of  random  numbers,  called  the  random  array  is  created 
using  a  standard  random  number  generator.  Next,  an  array  called  the 
weighting  array  is  generated.  The  dimensions  of  the  weighting  array 
are  fs  x  fs  where  fs  is  the  filter  size.  To  compute  the  value  of  the 
element  (i,j)  in  the  filtered  array,  the  weighting  array  is  placed 
over  the  random  array  at  (i,j).  The  products  of  the  random  array 
values  and  the  weighting  array  values  are  summed  for  all  overlapping 
points.  The  sum  is  the  value  of  the  filtered  array  element. 
Figure  18  shows  the  point  (i,j)  of  the  filtered  array  being  computed. 
The  corresponding  point  (i.j)  in  the  initial  random  array  is  averaged 
with  all  the  points  within  the  square  surrounding  it.  There  are  many 
weighting  arrays  that  could  be  used.  The  three  that  were  investigated 
and  pictures  of  the  data  bases  they  generated  will  be  discussed  in 
later  sections. 

Any  number  of  passes  can  be  made  through  the  filter.  These  can 
occur  before  or  after  the  filtered  array  has  been  redistributed. 

Two  things  become  apparent.  First,  all  array  indices  are  integer 
so  the  filter  size  must  be  odd  if  a  center  point  is  used  to  character¬ 
ize  the  filter.  Secondly,  each  time  the  array  is  filtered,  a  number 
of  points  are  "lost"  since  there  aren't  enough  neighbors  to  compute  a 
weighted  average.  Because  of  this,  the  beginning  random  array  must  be 
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larger  than  the  final  array  by  a  number  of  points.  This  difference  is 
the  product  of  the  filter  size  and  the  number  of  passes  through  the 
filter.  The  array  size  before  filtering  is  called  the  working  size. 


FILTERED  ARRAY 


Figure  18.  Filtering  Concept. 


The  method  of  generating  the  filtered  array  in  the  program  TRYTEX 
is  more  efficient  than  outlined  above,  but  logically  the  same.  An 
array  of  dimensions  (filter  size  *  working  size)  is  filled  with  random 
numbers.  One  row  of  the  filtered  array  can  then  be  computed.  Next, 
the  top  line  of  this  random  array  is  destroyed,  the  remaining  lines 
are  renumbered  as  if  to  shift  them  up  one  line,  a  new  line  is  created 
in  the  deleted  lines  location,  but  numbered  as  if  it  were  inserted  at 
the  bottom.  The  next  line  of  the  filtered  array  is  then  computed. 

Once  the  random  array  has  a  desired  frequency  distribution,  it 
can  be  redistributed  to  one  of  the  four  amplitude  distributions. 

The  following  is  an  outline  of  the  exact  solution  for  an  ampli¬ 
tude  redistribution: 

1.  The  array  elements  are  sorted,  by  magnitude,  into  a  vector 
of  length  N*N,  the  dimensions  of  the  filtered  array. 

2.  The  number  of  values,  or  buckets,  the  final  distribution 
will  have  and  how  many  points  should  be  in  each  bucket  are 
determined. 

3.  Starting  with  the  first,  each  bucket  is  filled  with  points 
from  the  N*N  vector.  When  a  bucket  is  full,  the  vector 
value  that  marks  the  end  of  that  bucket  and  the  beginning  of 
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the  next  is  tabulated.  These  points  are  Coined  breakpoints 
and  mark  the  upper  and  lower  bounds  of  vector  values  that 
fall  into  each  bucket.  Figure  19  shows  breakpoints  being 
calculated  for  a  uniform  distribution.  Each  bucket  will 
hold  four  points.  The  first  three  breakpoints  are  al,  a5, 
and  a9. 


SORTED  ARRAY 


DISTRIBUTION  BUCKETS 


Figure  19.  Breakpoint  Calculation. 

Each  array  element  is  assigned  the  value  of  the  bucket  into  which 
it  fell  by  comparing  the  elements  value  to  the  list  of  breakpoints. 
Referring  again  to  Figure  19;  al,  a2,  a3,  and  a4  will  be  assigned  the 
value  1. 

2  2 

Such  a  procedure  requires  on  the  order  of  N  (N  +  l)/2  operations 
2 

for  the  sort  and  N  operations  for  the  assignment.  An  approximation 

2 

method  for  determining  breakpoints  which  requires  on  the  order  of  N 
operations  is  outlined  below: 

1.  The  number  of  buckets  in  the  final  distribution  (distribu¬ 
tion  buckets)  is  determined. 

2.  The  filtered  array  is  divided  into  ten  times  as  many  equally 
spaced  intervals  as  there  are  distribution  buckets.  Each 
interval  in  the  filtered  array  is  called  an  array  bucket. 
The  following  equation  is  used  to  compute  the  points  that 
mark  the  boundaries  of  the  intervals: 


bnd(1)  =  i[(max  -  min)/(10ndb)] 
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bnd(i)  is  the  point  that  marks  the  upper  bound  of 
interval  i  and  the  lower  bound  of  interval 
i  +  1. 

max  is  the  maximum  value  in  the  filtered  array 

min  is  the  minimum  value  in  the  filtered  array, 
ndb  is  the  number  of  distribution  buckets 

3.  The  number  of  elements  in  each  of  the  array  buckets  is 
determined.  This  is  accomplished  in  TRYTEX  by  scaling  the 
array  to  the  number  of  array  buckets  and  using  the  scaled 
values  as  an  index  for  a  vector.  This  vector  counts  the 
number  of  values  in  each  array  bucket.  The  distribution  of 
filtered  array  amplitudes  in  any  array  bucket  is  assumed  to 
be  uniform  between  the  breakpoints  associated  with  that 
array  bucket. 

The  FORTRAN  code  that  accomplishes  steps  (2)  and  (3)  is  shown 
below: 

C 

C 

C  G(K)  IS  THE  Kth  ARRAY  BUCKET 
C  BUF  IS  THE  FILTERED  ARRAY 
C  DEP  =  1/(FILTMAX  -  FILTMIN) 

C  FILTMAX  IS  THE  MAXIMUM  VALUE  IN  BUF 

C  FILTMIN  IS  THE  MINIMUM  VALUE  IN  BUF 

C  LIMT  IS  THE  NUMBER  OF  ARRAY  BUCKETS 
C 
C 
C 

C  CREATE  THE  DISTRIBUTION  ARRAY 

C 

DO  15  K  =  l.LIMT  +  1 
G(K)=0 

15  CONTINUE 

DO  21  I  =  1,N 
DO  21  J  =  1,N 

K=( BUF ( J , I )  -  FILTMIN)*DEP  +  1 
G(K)  =  G(K)  +  1 
21  CONTINUE 


4.  The  number  of  points  in  each  of  the  distribution  buckets  is 
determined. 

5.  Each  of  the  distribution  buckets  is  filled  by  taking  full 
array  buckets  or  portions  of  array  buckets,  and  again  deter¬ 
mining  where  the  breakpoints  should  occur  for  the  final 
distribution. 
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6.  Each  element  of  the  filtered  array  is  assigned  to  the  value 
of  the  distribution  bucket  between  whose  breakpoints  it 
falls. 

Step  one  indicates  that  the  number  of  array  elements  contained  in 
each  distribution  bucket  must  be  determined  for  any  of  the  possible 
distribution. 

The  following  variables  are  used  in  the  discussion  of  distribu¬ 
tion  bucket  size  determination: 

R  is  the  range  of  the  final  array  (or  the  number  of  distribution 
buckets) 

A  is  the  number  of  occurences  of  the  most  frequent  value 

N  is  the  dimension  of  the  filtered  array 

f  is  the  location  of  the  distribution  peak  as  a  fraction  of  R. 
UNIFORM  DISTRIBUTION 

A  uniform  distribution  has  the  frequency  diagram  shown  in 
Figure  20. 


y 


Figure  20.  Uniform  Distribution  Plot. 

The  equation  describing  this  curve  is: 

y(x)  =  A;  for  0  <  x  <  R  (51) 

Since  the  area  under  the  curve  is  A*R  and  the  total  number  of 
points  under  the  curve  is  N  and 

A  =  N2/R.  (52) 
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NU(i),  the  number  of  points  in  the  ith  distribution  bucket  (i.e. , 

shaded  area  in  Figure  20),  will  be  N^/R.  The  FORTRAN  code  that 
computes  this  is  shown  below: 

C 

C 

C  BUCK(I)  =  NU( i ) 

C 

C  UNIFORM 
C 

2100  TEMPI  =  (1. *N*N)/R 
00  2010  I  =  l.R 
BUCK(l)  =  TEMPI 
2010  CONTINUE 
GOTO  2114 


The  mathematical  development  of  the  triangular,  parabolic,  and 
cusp  distributions  is  developed  in  Appendix  I. 

The  number  of  points  in  each  distribution  bucket  for  a  particular 
distribution  has  been  determined.  The  following  procedure  is  used  to 
redistribute  the  filtered  array  to  this  new  distribution: 

1.  Start  with  the  first  distribution  bucket  and  the  first  array 
bucket. 

2.  The  size  of  the  array  bucket  is  compared  to  the  number  of  the 
points  that  will  fit  into  the  distribution  bucket: 

a.  If  all  the  points  from  the  array  bucket  will  fit  into  the 
distribution  bucket,  the  number  of  points  needed  to  fill 
the  distribution  bucket  is  decreased  by  the  number  of 
points  in  the  array  bucket.  The  above  comparison  is  made 
using  the  same  distribution  bucket  and  the  next  array 
bucket. 

b.  If  all  points  from  the  array  bucket  will  not  fit  into  the 
distribution  bucket,  enough  points  are  removed  from  the 
array  bucket  to  fill  the  distribution  bucket,  and  a 
breakpoint  is  determined  for  the  distribution  bucket. 
This  breakpoint  is  a  value  between  the  upper  and  lower 
bounds  of  the  array  bucket.  The  actual  value  depends  on 
the  fraction  o',  the  array  bucket  points  that  have  been 
removed  and  is  determined  as  follows: 

breakpoint  =  min  +  fraction(max  -  min) 
min  =  array  bucket  lower  bound 
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max  =  array  bucket  upper  bound 
fraction  =  fraction  of  array  bucket  used 

The  following  FORTRAN  code  computes  the  distribution  bucket 
breakpoints: 

C  FILTMIN  =  THE  MINIMUM  VALUE  OF  THE  FILTERED  ARRAY 

C  LIMT  =  THE  NUMBER  OF  ARRAY  BUCKETS 

C  EPSILON  =  THE  DISTRANCE  BETWEEN  EACH  ARRAY  BUCKET 

C 

C 

C  COMPUTE  THE  BREAKPOINTS 

C 

K  =  0 
A  =  0 

00  2800  I=1,QSIZE 
2750  IF(A. LT.BUCK(I))THEN 

K=K+1 

IF(K.GT. LIMT)G0T0  2800 
A=A+G(K) 

GOTO  2750 

ENDIF 

A=A-BUCK(I) 

B(IMK-A/G(K))*EPSILON+FILTMIN 
2800  CONTINUE 

B(QSIZE)=FILTMAX 

3.  When  all  the  distribution  buckets  are  full,  final  values  are 
assigned  to  the  array  elements.  By  comparing  the  present 
value  of  the  array  element  to  the  breakpoints  for  the  dis¬ 
tribution  buckets,  the  bucket  into  which  the  point  should  go 
can  be  found.  The  value  of  that  distribution  bucket  is  then 
assigned  to  the  array  element. 

WEIGHTING  ARRAYS 

The  following  subsection  is  a  discussion  of  three  weighting 
arrays  used  to  filter  the  random  array.  The  three  types  of  filters 
covered  are  the  simple  average  filter,  the  sin(x)*sin(y)  filter  and 
the  polar  filter.  Pictures  of  data  bases  created  using  each  filter 
are  included  with  the  discussion  of  that  filter.  Therefore,  a  brief 
introduction  of  the  types  of  pictures  generated  and  the  methods  used 
to  create  them  is  necessary.  Two  types  of  pictures  will  be  used  to 
illustrate  the  results,  the  altitude  map  and  the  sun  reflection  pic¬ 
ture.  Each  of  these  offers  different  information  about  the  data  base. 

The  easiest  picture  to  create  is  the  altitude  map.  The  highest 
elevations  are  white,  the  lowest  elevations  are  black,  and  other 
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points  are  various  shades  of  gray,  depending  on  their  elevation. 
Pictures  of  this  type  offer  little  information  about  relative  slopes 
or  how  the  pattern  will  appear  in  three  dimensions,  but  show  the  exact 
elevation  of  a  point. 

The  other  type  of  picture,  the  sun  reflection  picture,  places  the 
observer  directly  above  the  data  base.  The  light  source  can  be  placed 
anywhere  above  the  data  base.  Pictures  generated  using  this  routine 
give  light  intensities  that  depend  on  the  angle  between  the  reflecting 
surface  and  the  incoming  illumination.  Figure  21  illustrates  the 
vector  from  an  arbitrary  point  on  a  surface,  Z(x,y),  pointed  toward 
the  source  of  illumination.  This  gives  results  similar  to  a  diffuse 
object  lit  by  a  point  source.  This  technique  is  discussed  in  detail 
under  Reflection  From  Diffuse  Surfaces. 


Figure  21.  Sun  Angle  Geometry. 


All  the  pictures  that  follow  were  made  using  the  DICOMED.  Since 
the  DICOMED  is  capable  of  producing  256  different  light  intensities, 
the  number  of  distribution  buckets  is  set  at  256.  The  array  _>i.ze  for 
all  the  pictures  is  512  x  512. 
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The  first  and  simplest  filter  tried  was  the  straight  average 
filter.  All  the  weighting  array  elements  are  given  the  same  value. 
This  is  similar  to  a  moving  average  in  two  dimensions.  The  short¬ 
comings  of  this  particular  filter  can  easily  be  seen  by  looking  at 
Figures  22  and  23.  They  are  strongly  correlated  in  the  x  and  y  direc¬ 
tions.  Figure  22  is  the  altitude  map  of  a  512  x  512  array  made  with 
this  simple  filter.  Figure  23  is  a  sun  reflection  picture  of  the  same 
data  base,  with  the  sun  vector  pointed  from  the  top  to  the  bottom  of 
Figure  22  (i.e..  Figure  21  parameters  0  =  45°,  4>  =  90°). 


Figure  22.  Altitude  Map. 
Filter  Size:  25 
Distribution:  uniform 

Filter  Type:  simple  average 


Figure  23.  Sunlight  Picture. 
Filter  Size:  25 
Distribution:  uniform 

Filter  Type:  simple  average 
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The  first  filter  that  offered  an  acceptable  picture  was  the 
single  pulse  sin(x)*sin(y)  filter.  The  weighting  array  for  this 
filter  is  computed  using 

w(i ,  j)  =  sin[ni/(fs-*l)]  sin[nj/(fs+l)] 
where  fs  =  filter  size 

The  half  period  of  the  sine  function  is  one  greater  than  the  filter 
size  so  the  weighting  factor  for  all  points  inside  the  array  is  non¬ 
zero.  The  sine  weighting  array  for  a  filter  size  of  seven  is  shown  in 
Figure  24. 
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Figure  24.  Sine  Weighting  Array  for  Filter  Size  of  7. 

The  FORTRAN  code  for  computing  the  weighting  factors  of  the 
single  pulse  si n(x)*si n(y )  filter  follows: 

C  SETUP  THE  WEIGHT  FOR  FILTER  ARRAY 

5  WI  =  3. 14159/( I F  LT  SIZE  +  1) 

00  200  I  =  1 , 1 F  LT  SIZE 
ESI  =  SIN(WI*I) 

DO  200  J  =  1 , IFLTSIZE 
W(J,I)  =  FST*SIN(WI*J) 

200  CONTINUE 

It  can  be  shown  that  the  sin(x)*sin(y)  filter  does  not  possess 
full  polar  symmetry.  Looking  again  at  Figure  24,  the  weighting  factor 
of  the  point  (4,8)  (outside  the  square)  is,  of  course,  0.  It's  dis¬ 
tance  from  the  center  is  4  units.  The  point  (7,7)  has  a  weighting 
factor  of  .146,  but  its  distance  from  the  center  is  4.24.  This  is 
further  than  the  point  (4,8),  yet  its  weighting  factor  is  greater. 
This  appearance  of  "extra"  values  at  the  corners  of  the  sin(x)*sin(y) 
filter  leads  to  a  correlation  in  the  x  and  y  directions  and  causes 
visible  lines  in  the  pictures  in  these  directions.  Figures  2b  and  26 
were  generated  using  the  single  pulse  sin(x)*sin(y)  filter. 
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Figure  25.  Altitude  Map. 
Filter  Size:  25 
Distribution:  uniform 
Filter  Type:  sin(x)*sin(y) 


Figure  26.  Sunlight  Picture. 
Filter  Size:  25 
Distribution:  uniform 

Filter  Type:  si n(x)*si n(y) 


NAVTRAEQUIPCEN  80-D-0014-2 


A  third  filter,  with  full  polar  symmetry,  was  tried,  and  suc¬ 
ceeded  in  eliminating  the  horizontal  and  vertical  line  structures. 
The  weighting  factors  for  the  polar  filter  are  computed  as  follows: 
first,  the  distance  from  the  array  element  to  the  center  is  calcu¬ 
lated.  If  this  distance  is  greater  than  (fs  +  l)/2,  one-fourth  of  the 
polar  filters  period,  the  point  is  given  a  weighting  factor  of  zero. 
Otherwise,  the  array  element  is  given  a  value  from  the  following 
equation: 


w(i,j)  =  cosJ[(n/1s  +  1 ) ) ( ( i  -  c)2  +  (j  -  c)2))]  (52) 

where  (c,c)  is  the  center,  and  fs  is  the  filter  size. 

An  example  of  the  polar  weighting  array,  using  a  filter  size  of 
seven,  is  shown  in  Figure  27. 
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Figure  27.  Polar  Weighting  Array  Filter  Size  of  7. 


The  FORTRAN  code  to  compute  the  weighting  factors  (which  takes 
advantage  of  the  symmetry)  is  shown  below: 

C  SETUP  THE  WEIGHT  FOR  FILTER  ARRAY 

C 

FAC  =  3. 14159265/( I F  LT  SIZE  +  1) 

ICENT  =  I F  LT  SIZE/2  +  1 
I D I  AM  =  IFLTSIZE  +  1 
W(  ICENT, ICENT)  =  1. 

DO  200  J  =  ICENT  +  1, IFLTSIZE 
K  =  J  -  ICENT 
SQR  =  K*K 
KY  =  I D I AM  -  J 
DO  200  I  =  ICENT, J 


I 
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K  =  I  -  ICENT 
XK  =  SQRT(K*K  +  SQR) 
KX  =  IDIAM  -  I 
I F ( XK. GE . ICENT)THEN 

VAL  =0.0 
ELSE 

VAL  =  C0S(XK*FAC) 
ENDIF 

W(I,J)  =  VAL 
W(J,I)  =  VAL 
W(I ,KY)  =  VAL 
W(KY,I)  =  VAL 
W(J,KX)  =  VAL 
W(KX,J)  =  VAL 
W(KX,KY)  =  VAL 
W(KY,KX)  =  VAL 
200  CONTINUE 


Figures  28  and  29  were  created  using  the  polar  filter.  All  other 
parameters  remained  the  same  as  in  the  pictures  produced  for  the 
sin(x)*sin(y)  filter  of  Figures  25  and  26. 


Figure  28.  Altitude  Map. 
Filter  Size:  25 
Distribution:  uniform 
Filter  Type:  polar  filter 
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Figure  29.  Sunlight  Picture 
Filter  Size:  25 
Distribution:  uniform 
Filter  Type:  polar  filter 


REFLECTION  FROM  DIFFUSE  SURFACES 

The  following  is  a  detailed  discussion  of  the  algorithm  used  to 
create  the  sun  pictures.  The  intent  is  to  create  an  image  of  the  data 
base  that  appears  to  be  illuminated  by  a  point  source  of  light.  The 
light  source  is  an  infinite  distance  away,  so  the  angle  of  incidence 
of  the  light  is  the  same  at  all  points  in  the  data  base.  The  observer 
is  placed  directly  above  the  data  base.  The  amount  of  light  reflected 
to  the  observer  (i.e. ,  the  apparent  intensity)  depends  on  the  differ¬ 
ence  in  the  angle  of  the  surface  normal  and  the  incident  angle  of  the 
light.  This  approximation  is  exact  if  the  light  is  reflected  from  a 
perfect  diffuse  reflector. 

Using  vector  notation,  the  intensity  of  a  point  can  be  calculated 
as  follows: 


I  =  h*ds;  if  h*ds  > 


sunny  side) 
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1=0  ;  if  h*ds  <  0  (i.e.,  dark  side)  (54) 


where  h  is  the  vector  direction  to  the  sun 


and  3s  is  the  outward  vector  normal  from  the  surface. 


Letting  ds  =  ds/  3s,  3s  can  be  computed  by  taking  the  cross- 

product  of  any  two  vectors  tangent  to  the  surface  element,  3s.  The 
two  that  are  most  convenient  to  compute  are  the  two  parallel  to  the 
coordinate  axes. 

Given  the  surface  z  =  f(x,y),  two  tangent  vectors  at  the  point 
(Xo,Yo,f(Xo,Yo))  can  be  computed  by  considering:  =  f(x,Yo)  and 

z2  =  f(Xo,y).  This  produces  two  lines  on  perpendicular  planes,  both 

of  which  pass  through  the  point  (Xo,Yo,f(Xo,Yo)).  By  computing  the 
tangents  to  these  lines,  the  normal  to  the  surface  at  that  point  can 
be  computed. 


a  =  (l.O.dZj/dx) 

;  for  (x,y)  =  (Xo,Yo) 

(55) 

b  =  (0,l,dz2/dy) 

;  for  (x,y)  =  (Xo.Yo) 

(56) 

A 

• 

1 

A  A 

j  k 

A  A 

3s  =  a  x  b  =  1 

0  dZj/dx 

0 

1  dz2/dy 

(57) 

-dz^dx 

i  -  dz2/dy  j  +  k 

ds  ~  Jl  +  (dz-^dy)2*  (dz2/dx)2 

(58) 

For  a  discrete  value  data  base,  the  partial 
point  (Xo,Yo)  are: 

derivatives  at  the 

3z/9x  =  dz,/dx  = 

f(Xo+l,Yo)  -  f(Xo,Yo) 

(59) 
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3z/3y  =  dz2/dy  =  f(Xo,Yo+l)  -  f(Xo,Yo)  (60) 

The  sun  angles  are  entered  into  the  program  in  polar  coordinates. 
Only  two  angles  must  be  entered.  The  angle  of  the  sun  down  from  the  z 
axis  is  the  polar  angle,  0.  The  cylindrical  angle,  <t>,  is  the  angle 
from  the  x  axis  towards  the  y  axis  to  the  projection  of  the  sun  on  the 
X-Y  plane.  Figure  21  shows  these  angles  graphically. 


h  can  be  converted  to  its  rectangular  coordinates  as  follows: 


h.  =  |h|  sin0  cos<J> 

(61) 

hj  =  lh|  sin0  s i n<t> 

(62) 

h^  =  |h  1  cos0 

(63) 

Converting  Equation  (53)  to  its  rectangular 
yields 

coordinate  equivalent, 

I  =  (hj’dSj)  +  (hj-dSj)  +  (hR-dsk) 

(64) 

_ [hj _ 

I  =  /  Z  Z  [-(3z/3x)sin0  cos4>  - 

VI  +  (3z/3xr  +  (3z/3  yr 

(3z/3y)sin0  sin4>  +  cos0]  (65) 


h  can  be  used  as  a  scaling  factor  to  restrict  the  magnitude  of  the 
intensities  to  any  range. 

The  average  maximum  slope  in  the  scene  can  be  controlled.  This 
allows  noise  files  amplitude  range  to  be  normalized  to  a  predetermined 
value.  For  example,  all  test  noise  files  are  stored  as  byte.  This 
allows  for  256  different  elevations.  If  the  filter  size  for  a  partic¬ 
ular  noise  file  is  small  (e.g.,  3)  the  resulting  picture  will  contain 
close  tall  thin  projections.  The  amplitudes  of  the  noise  files  must 
be  scaled  if  the  apparent  slope  is  to  be  properly  controlled  to  simu¬ 
late  real  world  terrain  or  features.  The  method  chosen  to  accomplish 
this  is  by  slope  limiting. 

The  contour  of  the  data  base  is  estimated  to  be  sinusoidal,  as 
shown  in  Figure  30. 
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Figure  30.  Idealized  Filtered  Noise  Contour. 

The  equation  that  describes  Figure  30  is 

y  =  A  sin  (2n/T)t  (66) 

where  T  depends  on  the  filter  size.  To  determine  the  maximum  slope, 
differentiate  Equation  (66) 

dy/dt  =  ( 2nA/T ) cos ( 2nt/T )  =  0  (67) 

The  maximum  slope  occurs  at  T/2,  so  the  maximum  slope  is 

dy/dt  =  2nA/T  (68) 


T  can  be  estimated  by  counting  the  light  to  dark  transitions 
along  a  straight  horizontal  or  vertical  line  in  an  altitude  map  of  the 
data  base.  The  empiracally  determined  equation  that  relates  the 
period,  T,  to  the  filter  size,  fs,  is: 

T  =  1.6fs  =  period  (in  pixels)  (69) 

The  maximum  slope,  ms,  can  be  computed  from  Equations  (68)  and  (69) 

ms  =  2nA/(1.6fs)  =  3.93  A/fs  (70) 


89 


NAVTRAEQUIPCEN  80-D-0014-2 


In  order  to  properly  investigate  the  texture  created  by  filtered 
and  redistributed  noise,  one  must  simulate  the  slope  of  the  texture 
pattern,  as  that  pattern  will  be  scaled  in  a  real  world  scene.  Hence, 
an  estimate  of  the  real  world  slope  for  Figure  30  is  made.  This  is 
called  the  desired  slope,  md.  Then  one  can  calculate  a  slope  limiting 
factor,  SLF 

SLF  =  md/ms  =  0.2546  md  fs/A  (71) 

For  example  if  the  texture  is  to  represent  terrain  then  md  ~  0.1 
whereas  if  the  texture  is  to  represent  trees  then  1  <  md  <  10.  Since 
the  texture  resolution  has  been  set  to  8  bits,  the  slope  limiting 
factor  allows  one  to  compare  the  filtered  noise  patterns  with  photo¬ 
graphs  of  established  appropriate  scaling  parameters. 

Three  parameters  are  required  to  make  a  sunlight  picture  (i.e., 
Figures  26  or  29)  for  evaluating  filtered  noise  textures  as  real  world 
types.  The  parameters  are  the  polar  angle  of  the  sun  from  the  z  axis, 
0;  the  cylindrical  angle,  4>;  and  the  slope  limiting  factor,  SLF. 

The  following  sets  of  pictures  are  results  of  the  program  RLPCAL 
(i.e.,  RLPCAL  is  listed  in  Appendix  HB). 

Figure  31  shows  the  effect  of  changing  the  filter  size,  fs,  and 
the  elevation  distribution.  Figure  31a  has  a  filter  size  of  3  on  a 
uniform  elevation  distribution.  Figure  31b  has  a  filter  size  of  11  on 
a  cusp  distribution  having  few  low  elevations  and  many  high  eleva¬ 
tions.  Figure  31c  illustrates  a  filter  size  of  25  on  a  parabolic 
elevation  distribution  peaked  at  the  elevation  range  midpoint.  The 
cylindrical  angle,  4>,  is  90°  for  all  the  photographs  of  Figure  31. 
The  polar  angle,  0,  is  60°  for  Figures  31a  and  31b  and  45°  for 
Figure  31c.  The  slope  factor  used  to  scale  Figure  31a  to  simulate  a 
texture  somewhere  between  grass  and  leaves  is  0.125  yielding  a  desired 
slope  of  about  20.  Figure  31b  has  a  slope  factor  of  0.022  yielding  a 
desired  slope  of  about  1.0  for  simulating  grass  or  tree  texture. 
Figure  31c  has  a  slope  factor  of  0.0075  yielding  a  desired  slope  of 
about  0.15  for  simulating  terrain. 

Figure  32  illustrates  the  effect  of  varying  the  polar  angle.  All 
pictures  are  for  the  same  noise  file  and  all  other  parameters  constant 
(i.e.,  fs  is  25,  parabolic  distribution,  4>  is  90°,  SLF  is  0.125). 
There  is  no  effect  of  sun  shadowing  in  Figure  32,  only  the  effect  of 
changing  the  light  source  direction  from  45°  from  vertical  for 
Figure  32a  to  80°  from  vertical  for  Figure  32c. 
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31a 

Filter  Size,  fs  =  3 
Uniform  Distribution 
Polar  Angle,  0  =  60° 
Cylindrical  Angle,  <t>  =  90° 
Slope  Factor,  SLF  =  0.125. 


31b 

Filter  Size,  fs  =  11 
Cusp  Distribution 
Distribution  Peak,  f  =  1.0 
Polar  Angle,  0  =  60° 
Cylindrical  Angle,  <t>  =  90° 
Slope  Factor,  SLF  =  0.022 


31c 

Filter  Size,  fs  =  25 
Parabolic  Distribution 
Distribution  Peak,  f  =  0.5 
Polar  Angle,  0  =  60° 
Cylindrical  Angle,  $  =  90° 
Slope  Factor,  SLF  =  0.125 


Figure  31.  Sunlight  Pictures  as  a  Function  of  Filter  Size 
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Figure  33  illustrates  the  effect  of  varying  the  slope  factor, 
SLF.  All  pictures  are  of  the  same  file  (i.e.,  filter  size  of  25, 
polar  angle  of  60°,  cylindrical  angle  of  90°,  parabolic  distribution 
with  the  distribution  peak,  centered  about  the  elevation  range).  The 
slope  factor  for  Figures  33a  through  33c  are  respectively  0.0075, 
0.050  and  0.125. 

Figure  34  illustrates  the  effect  of  varying  the  cylindrical 
angle.  All  pictures  are  for  the  same  parabolic  distribution  file 
(i.e.,  filter  size  of  25,  polar  angle  of  60°,  and  slope  factor  of 
0.050).  The  cylindrical  angle  varies  from  90°  to  180°,  showing 
apparent  ridge  structure  dependent  upon  the  direction  to  the  light 
source. 
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33a 

Slope  Factor,  SLF  =  0.0075 


33b 

Slope  Factor,  SLF  =  0.050 


33c 

Slope  Factor,  SLF  =  0.125 


Filter  Size,  fs  ■=  25;  Cylindrical  Angle,  <J>  =  90°;  Polar  Angle,  0 
60°;  Parabolic  Elevation  Distribution;  Distribution  Peak,  f  =  0.50 


Figure  33.  Sunlight  Pictures  as  a  Function  of  Average  Texture  Slope 
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Cylindrical  Angle  4>  =  90c 


Cylindrical  Angle  <t>  =  135c 


Cylindrical  Angle  <J>  =  180e 


8 


7J 


Filter  Size,  fs  =  25;  Polar  Angle,  0  =  60° ,  Muue  M 
Parabolic  Elevation  Distribution;  Distribute  i  t-i* 


Figure  34.  Sunlight  Pictures  as  a  » 
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INTERPOLATION  FORMULA 

Two  methods  have  been  investigated  for  interpolating  data  on  a 
fixed  grid,  Overhauser-Coons  (17)  and  the  straight  line  patch.  Only 
the  straight  line  patch  method  has  been  used  to  create  simulated 
terrain,  since  it  requires  substantially  less  computation  than 
Overhauser-Coons  formula.  Appendix  N  develops  the  mathematics  for 
testing  the  elevation  error  associated  with  the  Overhauser-Coon 
approximation  to  a  given  six(x)*sin(y)  function.  Appendices  GB  and  GC 
list  the  programs  used  in  the  elevation  error  test.  Appendix  D 
develops  additional  interpolation  formula  for  further  evaluation. 

An  interpolation  function  is  used  for  reducing  the  size  of  the 
data  base  required  to  describe  a  single  value  surface.  The  function 
interpolates  the  height  of  points  on  a  surface  given  the  height  values 
of  points  adjacent  to  the  region.  A  surface  is  interpolated  by 
sectioning  the  surface  into  many  square  patches.  The  data  base 
required  is  a  sample  data  array  of  the  surface  containing  the  adjacent 
points  to  each  patch.  One  way  of  testing  the  interpolation  accuracy 
of  a  routine  is  by  evaluating  the  difference  of  the  interpolated  value 
and  the  exact  value  of  a  test  function,  FT(X,Y),  at  a  point.  Another 
way  is  by  evaluating  the  angular  difference  between  the  surface 
normals  for  the  exact  and  the  test  function.  The  maximum  error  is 
found  to  be  a  function  of  the  distance  between  the  sample  points  in 
the  data  array.  More  specifically,  the  smaller  the  distance  between 
the  sample  data  points,  the  smaller  the  error.  Therefore,  selection 
of  the  distance  between  the  sample  points  is  a  compromise  between  the 
need  for  data  base  reduction  and  the  tolerance  for  maximum  error. 

THE  INCREMENTAL  DISTANCES 

The  incremental  distances  within  the  patch,  t(X)  and  t(Y),  are 
determined  for  each  point  interpolated  within  the  patch.  Given  a 
point  (X,Y)  to  be  interpolated  within  the  patch,  the  incremental 
distance  t(X),  is  the  distance  from  the  point  to  the  boundary  line 
C2(Y),  Figure  35.  The  incremental  distance,  t(Y),  is  the  distance 
from  the  point  to  the  boundary  to  the  line  C1(X).  The  incremental 
distance  is  then  normalized  by  dividing  by  the  width  of  the  patch 
illustrated  in  Figure  35. 

Figure  35  illustrates  a  regular  patch  geometry.  The  points  P^, 
p5»  P8  and  P9  *)0und  the  Patch.  Only  the  four  bounding  patch  points 
are  needed  for  the  straight  line  interpolation  formula 


^Brewer,  J.  and  Anderson,  D.  "Visual  Interaction  with 
Overhauser-Coons  Curves  and  Surfaces",  Computer  Graphics,  Vol.  11,  No. 
2,  pp.  133-137,  Summer  1977. 
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Z(x,y)  =  Z2  +  (Z2  -  Zx)(x  -  Pg(x))/d  +  (Z3  -  Z^Cy  -  Pg(y))/d  + 

(Z4  -  Z3  -  Z2  +  Z^Kx  -  Pg(x))(y  -  Pg(y))/d2  (72) 

where 

d  is  the  patch  width 

Pg(x)  is  the  x  coordinate  of  point  Pg 

P8(y)  is  the  y  coordinate  of  point  Pg. 

-*{  [«—  width  of  patch 


Figure  35.  Square.  Interpolation  Patch  Geometry. 


The  Overhauser-Coons  (0-C)  interpolation  formula  requires  all 
twelve  points  Pj  through  P12>  The  beauty  of  the  0-C  formula  is  that 

it  generates  a  bi-cubic  function  possessing  slope  and  elevation  con¬ 
tinuity  everywhere  while  the  straight  line  approximation  exhibits 
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slope  discontinuity  at  the  patch  boundaries,  C(l)  through  C(4)  of 
Figure  35.  However,  the  0-C  interpolation  formula  is  more  complex 

Z(x,y)  =  Cl(x)B0(y)  -  Z1B0(x)B0(y)  +  C2(y)B0(x)  -  Z2Bl(x)B0(y)  + 

C3(x)Bl(y)  -  Z3B0(x)Bl(y)  +  C4(y)Bl(x)  -  Z4Bl(x)Bl(y)  (73) 

where 


M  • 

Cn(x)  =  I  V(n,i)  V  ax);  Overhauser  function 
i=l 


T  A  • 

Cn(y)  =  Z  V(n,i)  t*  1(y);  Overhauser  function 
i=l 


B0(p)  =  1  -  3t2(p)  +  2t3(p);  Coon's  blending  function 
Bl(p)  =  3t2(p)  -  2t3(p);  Coon's  blending  function 
t(x)  =  (x  -  Pg(x))/d;  normalized  x  interpolation  distance 
t(y)  =  (y  -  Pg(y))/d;  normalized  y  interpolation  distance 

Simulated  pictures  will  generate  a  subjective  measure  of  the 
quality  of  an  interpolation  formula.  However,  effective  evaluation 
must  be  based  upon  appropriate  numerical  measures  of  the  formula 
(i.e.,  elevation  error,  surface  normal  error,  texture  statistics, 
etc.).  If  appropriate  numerical  measures  can  be  discovered  then  only 
a  few  subjective  evaluations  need  be  made  for  a  few  types  of  scenes. 
The  numerical  measures  can  be  used  to  perform  a  large  volume  of 
analysis  via  computer.  The  computer  analysis  will  then  separate  and 
classify  the  quality  of  the  interpolation  function  for  mapping  various 
real  world  features.  Then  subjective  evaluations  can  be  performed  to 
verify  that  the  numerical  measures  actually  provide  valid  evaluations. 
The  computer  analysis  allows  analysis  to  be  performed  on  unique 
features  and  allows  the  objective  evaluation  of  a  large  amount  of  data 
and  ranking  by  the  means  of  the  numerical  measure. 

Only  one  numerical  measure  has  been  developed  to  date,  the  eleva¬ 
tion  error  measure.  Three  elevation  error  measures  are  calculated: 
maximum  error,  average  absolute  error,  and  rms  error.  Analysis  to 
date  does  not  indicate  any  of  the  three  superior  to  the  others,  since 
they  are  ordered  from  maximum,  average,  to  rms  and  typically  have 
ratios  about  12:5:4. 
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Figure  36  is  a  plot  of  the  normalized  rms  elevation  error  for 
both  the  straight  line  interpolation  formula  and  the  Overhauser-Coons 
interpolation  formula  as  a  function  of  normalized  patch  size.  The 
function  interpolated  is  Asin(x)*sin(y).  The  normalized  error  is  rms 
error  divided  by  A.  The  patch  size  is  normalized  to  the  Nyquist  rate 
(i.e. ,  patch  size,  d,  divided  by  half  the  period  of  the  trigometric 
term). 

Figure  36  indicates  the  sample  space  must  be  about  9  times  the 
Nyquist  rate  to  achieve  a  IX  error  for  the  straight  line  interpola¬ 
tion,  or  about  four  times  the  Nyquist  rate  for  0-C.  If  a  10%  eleva¬ 
tion  error  is  tolerable  the  sampling  interval  is  about  three  times  the 
Nyquist  rate  for  the  straight  line  interpolation  and  about  1.8  times 
for  the  0-C  interpolation  formula. 

Further,  work  needs  to  be  done  to  create  subjective  picture 
evaluations  correlated  with  elevation  error  measures.  The  surface 
normal  error  measure  also  needs  to  be  created  and  evaluated  against 
interpolation  formula  such  as  those  developed  in  Appendix  D. 


Times  Nyquist  Rate 

10  5  2.5  1 


rms 

Elevation 

Error 


Patch  Size/Half  Period 


Figure  36.  rms  Elevation  Error  versus  Normalized  Patch  Size. 
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SECTION  IV 

ANTI-ALIASING  FILTER  METHODS 


Realistic  scene  creation  requires  the  elimination  of  CIG  display 
defects  induced  by  the  quantization  effects  of  the  display  and  defects 
due  to  the  sampling  of  the  data  base.  If  the  data  base  used  is  of 
greater  resolution  than  that  of  the  display,  then  the  elimination  of 
image  defects  by  the  processing  of  high  density,  high  resolution  data 
may  be  defined  as  filtering.  REAL  SCAN  attempts  to  match  the  computed 
scene  detail  to  the  display  limit  in  two  ways;  first,  by  providing 
prefiltered  hierarchical  data  base  and,  second,  by  slightly  over- 
sampling  the  detail  limited  data  base.  Scene  detail  is  projected  back 
to  the  display  at  sub-pixel  accuracy  but  is  limited  to  display  no 
higher  resolution  than  can  properly  be  resolved  on  the  display.  REAL 
SCAN  offers  an  approach  to  the  high  pass-low  pass  filter  decision 
because  data  sorts  are  not  required  as  in  planar  CIG  systems.  High 
pass  edge  accentuation  is  used  when  scene  detail  does  not  exceed  the 
Kell  factor  limit  of  3  pixels  per  line  pair,  while  low  pass  edge 
laboring  is  used  when  scene  detail  does  exceed  the  Kell  factor  limit. 
Contiguous  data  being  processed  to  a  display  pixel  sequentially  allows 
one  to  make  the  high  pass-low  pass  decision  simply  and  with  negligible 
ambiguity. 

Final  Filter 

In  the  Initial  REAL  SCAN  algorithm  simulation,  the  subsystem 
which  receives  scene  Information  from  other  system  components  and 
processes  this  information  for  screen  display  is  named  the  Final 
Filter.  The  task  of  the  Final  Filter  is  to  compensate  for  the 
unwanted  display  artifacts  produced  by  the  sampled  data  base  points, 
which  are  projected  to  display  screen  pixel  locations.  The  Final 
Filter  will  process  the  data  base  information  such  that  the 
reflectance/color  of  the  projected  points  is  distributed  on  the 
display  screen  in  a  manner  that  results  in  an  image  which  reproduces 
the  necessary  visual  cues,  thus  appearing  real  to  the  eye. 

In  general,  the  Final  Filter  must  provide  data  compression  that 
Is  not  only  desirable  from  the  economical  and  real  time  computation 
view  points,  but  is  dictated  by  the  mathematics  of  the  physical 
effects  of  human  sight.  Further,  the  proper  filter  must  be  able  to 
distinguish  between  detail  beyond  the  capability  of  the  display  and, 
hence,  act  as  a  low  pass  filter;  yet,  where  visibility  and  perspective 
provide  significant  detail,  the  filter  must  accentuate  the  detail. 
The  goal  Is  to  accomplish  these  ends  using  simple  algorithms  approx¬ 
imating  the  Ideal  case.  Simplicity,  based  on  knowledge  and  simulation 
results,  allows  speed  and  economy. 
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The  Final  Filter  requires,  as  input  from  the  REAL  SCAN  system, 
the  screen  coordinates  and  the  reflectance/color  information  for  each 
data  base  point  projected  to  the  screen.  A  reflectance/color  buffer 
is  used  for  the  filter  manipulations  and  eventual  output  of  the 
filtered  image  to  the  display  device.  The  filter  development  pre¬ 
sented  is  for  black  and  white  image  generation  but  each  filter  may  be 
readily  extended  to  color  image  generation.  Therefore,  the  data  base 
information  required  by  the  final  filter  will  be  the  screen  coord¬ 
inates  and  the  grey  scale  reflectance  value  of  the  sampled  data  base 
points.  The  output  device  for  the  filter  analysis  is  a  D I COWED  D-47 
Image  Recorder  which  was  used  to  produce  all  of  the  images  on  Polaroid 
film.  Picture  generation  with  the  DICOMED  is  discussed  in  Section  VI. 

Display  Defects 

When  two  areas  of  varying  color  or  intensity  in  a  scene  are 
adjacent,  the  resulting  contrast  between  the  areas  produces  a  visual 
boundary  which  will  appear  as  a  line  or  a  curve.  The  extent  to  which 
this  boundary  is  evident  to  the  eye  is  a  function  of  the  rate  of 
change  of  the  contrast  with  respect  to  the  spacial  dimensions  (18). 
These  boundaries  are  a  fundamental  component  of  image  definition.  To 
gain  realism  in  a  CIG  display,  these  boundaries  must  be  reproduced 
without  inducing  defects.  Also,  in  order  to  display  images  that 
appear  authentic,  sufficiently  detailed  data  base  must  exist. 
However,  unwanted  visual  effects  appear  when  displaying  samples  of 
such  a  data  base  on  a  finite  element  display  device  (19,  20,  21).  The 
quantization  effects  of  the  display  device  along  with  the  sampling 
error  produced  from  accessing  the  data  base  are  the  cause  of  these 
effects,  known  as  aliasing.  Only  high  detail  of  spacial  frequency 
less  than  one-half  the  sampling  frequency  can  be  reproduced  without 
aliasing  (22).  The  quantization  of  the  display  device  limits  the 
detail  that  can  be  reproduced  since  each  pixel  in  the  display  can  have 
only  one  color  value.  The  effects  of  this  quantization  and  sampling 

18 

Crow,  F.  "The  Use  of  Gray  Scale  for  Improved  Raster  Display  of 
Vectors  and  Characters",  SIGGRAPH  '80  Proceedings,  pp.  286-293,  July, 
1980. 

19 

Crow,  F.  "The  Aliasing  Problem  in  Computer  Generated  Shaded 
Images",  Communications  of  the  ACM,  November,  1977. 

*°Catmull,  E.  "A  Hidden- Surface  Algorithm  with  Anti-Aliasing", 
Computer  Graphics,  pp.  6-10,  1979. 

^Weiman,  C.  "Continuous  Anti-Aliased  Rotation  and  Zoom  of  Raster 
Images",  SIGGRAPH  '80  Proceedings,  pp.  286-293,  July,  1980. 

22 

Oppenheim,  A.  V.  and  Schafer,  R. 

Prentice  Hall,  Englewood  Cliffs,  New  Jersey, 
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error  are  seen  as  jagged  or  "staircased"  edges  when  trying  to  display 
a  high  spacial  frequency  contrast  boundary.  Also,  low  frequency 
patterns  which  are  "aliases"  of  the  high  frequency  data  base  will  be 
present  in  the  display  (i.e. ,  Moire  fringes). 

Aliasing  effects  can  be  reduced  by  two  means,  either  increase  the 
resolution  of  the  display  device  along  with  the  sampling  frequency 
beyond  the  limits  of  the  data  base's  resolution,  or  limit  the  spacial 
frequency  of  the  data  base  information  to  be  displayed  below  aliasing 
bounds.  The  first  suggestion  is  limited  by  technology,  cost  and 
computational  efficiency  of  the  sampling  algorithm.  The  alternate 
technique  is  to  filter  high  resolution  information  to  display  resolu¬ 
tion.  The  filtering  is  not  easily  defined,  but  two  classes  stand  out: 

1.  Alias  elimination  requires  that  the  spacial  spectral  content  of 
the  scene  cannot  exceed  the  display's  capability.  This  require¬ 
ment  imposes  range  versus  spacial  frequency  constraints. 

2.  Pixels  with  data  from  nonspacially  related  data  base  points  (i.e. 
nonocculting,  nonneighbors)  must  possess  the  "average"  as  seen  by 
the  eye.  More  accurately,  the  data  must  be  prefiltered  to  com¬ 
pensate  for  pixel  granularity  and  its  effects  on  perception. 

Final  Filter  Tests 

In  order  to  test  the  Final  Filter  algorithms  and  evaluate  their 
effects  on  scene  image  display  defects,  a  test  data  base  is  needed 
which  will  induce  display  defects.  To  induce  aliasing  in  a  display,  a 
data  base  must  contain  information  of  spacial  frequency  on  the  order 
of  and  exceeding  half  the  sampling  spacial  frequency.  To  create 
staircasing,  straight- high- contrast  boundaries  at  oblique  angles  to 
the  display's  pixel  geometry  must  be  present.  A  test  data  base  was 
created  and  will  be  discussed  in  detail.  This  data  base  will  be  used 
to  evaluate  the  effects  of  the  Final  Filter  algorithms  on  these 
display  defects,  by  generating  a  high  resolution,  1024x1024  pixel, 
images  of  the  test  data  base  and  comparing  it  to  lower  resolution 
images  (i.e.,  512x512  or  fewer  pixels).  The  comparison  procedure  will 
consist  of  subjective  viewing  of  both  the  high  resolution  reference 
image  and  the  low  resolution  filtered  images. 

The  test  data  base  consists  of  a  set  of  radial  lines  converging 
to  a  point.  The  lines  consist  of  alternating  areas  with  differing 
grey  contrasts  that  have  constant  angular  widths.  The  point  pf  line 
convergence  is  fixed  at  a  display  corner.  This  limits  the  display  to 
ninety  degrees  of  alternating  lines.  The  contrast  of  the  alternating 
areas  Is  varied  from  a  maximum  (i.e.,  black  and  white  adjacent  areas) 
to  zero  (i.e.,  grey  to  grey  adjacent  areas)  as  a  linear  function  over 
the  ninety  degrees  of  display  angle.  This  contrast  test  has  a  further 
advantage  of  keeping  the  average  intensity  of  any  gross  region  con¬ 
stant.  The  straight  contrast  boundaries,  which  vary  in  angular 


103 


NAVTRAEQUIPCEN  80-0-0014-2 


orientation  to  the  display  pixel  orientation,  induce  the  desired 
staircasing.  By  letting  these  lines  converge  to  a  point,  the  lines 
become  smaller  in  width  until  they  are  beyond  the  resolution  of  the 
display.  Therefore,  attempting  to  display  this  high  frequency  infor¬ 
mation  will  induce  alias  patterns. 

The  radial  line  data  base  is  generated  in  FORTRAN  code  by  first 
dividing  the  ninety  degrees  of  display  into  128  areas  of  equal  angular 
width.  This  specific  angular  width,  given  the  FORTRAN  variable  name 
TEST1,  was  choosen  since  it  produces  clearly  evident  aliasing  defects. 
The  data  base  is  sampled  once  for  each  display  pixel.  Each  sample 
point  has  associated  with  it  the  angle  between  the  line  formed  from 
the  sample  point  to  the  corner  of  line  convergence  and  the  line  formed 
by  the  display  edge  containing  the  corner  of  Tine  convergence.  This 
is  the  angle  called  TEST2.  The  number  of  the  angular  line  is  computed 
by  an  integer  divide  of  TEST2  by  TEST1.  If  this  number  is  even,  the 
reflectance  value  of  the  sample  point  will  be  between  black  and  grey 
as  determined  by  TEST2,  where  a  TEST2  value  of  zero  produces  black  and 
a  TEST2  value  of  ninety  degrees  produces  grey.  If  TEST2  divided  by 
TEST1  is  odd,  the  reflectance  of  the  sample  point  will  be  between 
white  and  grey  as  determined  by  TEST2,  where  a  TEST2  value  of  zero 
produces  white  and  a  TEST2  value  of  ninety  degrees  produces  grey.  The 
DEC  FORTRAN  IV  PLUS  code  implementation  of  the  radial  line  data  base 
is  given  below.  The  variable  IR  represents  the  reflectance  value  of 
the  sample  point  IX, IY.  The  display  corner  associated  with  IX=1  and 
IY=1  is  the  corner  of  radial  line  convergence. 

C 
C 

C . - . 

C 

C  RADIAL  LINE  DATA  BASE 

C 

PI=3. 14159 
TESTl=PI/256 

TEST2=ATAN2( IX- . 99999 , IY- . 99999) 

K=TEST2/TEST1 
IF((K/2)*2.NE.K)  GOTO  100 
IR=(-254./PI)*TEST2+255 
GOTO  200 

100  IR=(254. /PI )*TEST2 

200  CONTINUE 

C 
C 
C 
C 


p:«. _ 
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$LINK/EXE=TSTBW- 

DRAO: [UTILITY. OICONEO]BLKDAT , DBA1: [P8734. SAH]SRCAMERA,  - 
TSTBW.DRAO: [UTILITY. OICOMEO]DICOMED/LIB 

Each  pixel  element  contains  one  sample  point  from  the  data  base. 


37a 

1024x1024  resolution 


37b 

512x512  resolution 


37c 

256x256  resolution 


Figure  37.  Radial  Line  Aliasing  versus  Contrast  Ratio. 
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Filtering 

For  the  Initial  image  generation  tests,  it  was  desired  to  display 
the  data  projected  from  the  sampled  data  base  with  minimal  computation 
and  manipulation  of  the  raw  data  such  that  an  idea  of  the  REAL  SCAN 
system's  characteristics  may  be  seen.  Since  the  REAL  SCAN  simulation 
algorithms  project  varying  numbers  of  data  base  points  to  each 
particular  screen  pixel,  a  reflectance  value  is  computed  as  a  function 
of  all  the  projected  data  base  points  in  each  pixel  in  order  to  see 
graphically  the  system's  characteristics. 

The  initial  function  used  was  to  assign  a  pixel  reflectance  value 
equal  to  the  sum  of  the  reflectance  values  for  all  points  that  are 
projected  to  the  same  pixel  divided  by  the  number  of  points  which 
contributed  to  the  reflectance  sum  for  that  pixel.  Therefore,  the 
distribution  of  reflectance  information  from  each  projected  data  base 
is  confined  to  only  the  particular  pixel  into  which  the  point  was 
projected. 

Mathematically  we  can  describe  this  as  follows,  if  we  define  the 
screen  pixel  i,j,  then 


REFLECTANCE  FOR  PIXEL  i,j  = 


DATA  BASE  POINT  i,j,n 


where  the  system  will  project  all  the  data  base  points  from  i,j,l  to 
i,j,N  to  pixel  i,j.  This  algorithm  is  referred  to  as  Filter  1. 

The  Filter  1  as  described  was  developed  into  FORTRAN  code  which 
is  compatible  with  the  REAL  SCAN  algorithms  previously  developed.  The 
Final  Filter  system  requirements  are: 

INPUT:  -Pixel  Address  in  Screen  Coordinates 

-Reflectance  Value  of  Projected  Data  Base  Point 
-Flag  to  determine  when  Scene  Generation  is 
Complete 

OUTPUT:  -Screen  Buffer  containing  a  Single  Reflectance 

Value  for  each  Pixel  Element 

INTERNAL:  -Count  Buffer  to  count  the  number  of  Data  Dase 
Points  projected  to  each  Pixel 

A  flowchart  of  the  algorithm  is  given  in  Figure  38. 
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Figure  38.  Flowchart  of  Filter  1. 


The  DEC  FORTRAN  IV  PLUS  code  implementation  of  the  flowchart  of 
Figure  38  is  given  as  follows  for  use  with  a  512x512  pixel  display 
device. 


INPUT  VARIABLES/ARRAYS  - 

IXBS  -  screen  horizontal  coordinate 
IYBS  -  screen  vertical  coordinate 
IRBW  -  reflectance  value  from  0  to  255  for 
pixel  at  IXBS, IYBS 

IFINISHED  -  flag  to  designate  when  scene 
generation  is  complete 

OUTPUT  VARIABLES/ARRAYS  - 

ITEMBUF(512,512)  -  buffer  containing  the  reflectance 

values  for  the  screen  scene  image 
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INTERNAL  VARIABLES/ARRAYS  - 

ICNT(512,512)  -  byte  buffer  containing  the  count  of 
points  projected  to  each  screen  pixel 


c - - - - — . 

C 

IF(IFINISHED.EQ.l)  GOTO  100 
ITEMBUF(IYBS, IXBS)=ITEMBUF(IYBS,IXBS)  +  IRBW 
ICNT(IYBS, IXBS)=ICNT(IYBS, IXBS)  +  1 
RETURN 

100  DO  200  J=l,512 

DO  200  1=1,512 

KDIV=ICNT(I,J) 

IF( ICNT ( I , J). EQ. 0)  KDIV=1 

ITEMBUF(I , J)=(ITEMBUF(I , J)+KDIV/2)/KDIV 

200  CONTINUE 

RETURN 
C 

C . . - . - . 

c 

c 


The  images  shown  in  this  report  use  the  FORTRAN  code  from  label 
"100"  to  label  "200"  listed  for  Filter  1.  This  code  is  contained  in 
PGFINFIL. FOR  listed  in  Appendix  EE.  The  code  listed  above  label  "100" 
has  been  modified  as  described  in  the  discussion  of  the  Log  Load 
Filter  to  follow. 

Scenes  were  produced  with  fewer  than  one  projected  data  point  per 
typical  pixel  to  subjectively  evaluate  the  trade-off  between  display 
quality  and  scene  calculation  time.  Those  pixels  with  no  data  are 
called  "missed"  pixels.  In  order  to  assign  reflectance  values  to  the 
"missed"  pixels,  a  complementary  filter  was  developed  which  is 
referred  to  as  Fill  Filter. 

Fill  Filter  uses  the  reflectances  assigned  to  each  pixel  by  Log 
Load  Filter  and  computes  a  reflectance  value  for  a  "missed"  pixel  as  a 
function  of  the  "missed"  pixels  eight  nearest  neighbors.  The  assigned 
reflectance  value  for  a  "missed"  pixel  is  determined  by  summing  the 
reflectance  values  of  the  missed  pixel's  eight  nearest  neighbors  who, 
themselves,  are  not  "missed"  and  dividing  by  the  number  of  pixels 
which  contributed  to  the  reflectance  sum. 

Mathematically  this  operation  can  be  described  as  follows,  for 
screen  pixel  i,j,  then 
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REFLECTANCE  FOR  PIXEL  i,j  = 


k=i+l  m=j+l 

l=i-i  U-i  "XEL  M 


N 


(75) 


where  N  is  the  number  of  pixels  contributing  non-zero  values  to  the 
reflectance  sum.  Also,  if  pixel  i,j  is  on  a  display  boundary  or 
corner,  then  the  reflectance  sum  is  computed  from  the  pixel's  five  or 
three  nearest  neighbors  respectively. 

Fill  Filter  has  the  following  requirements: 

INPUT:  -Dimensions  of  Display  Device  in  Pixels 

-Screen  Reflectance  Buffer  Containing 
a  Single  Reflectance  Value  per  Pixel 
-Count  Buffer  of  Number  of  Projected 
Data  Base  Point  for  each  Pixel 

OUTPUT:  -Screen  Reflectance  Buffer  containing 
a  Single  Reflectance  Value  per  Pixel 

The  DEC  FORTRAN  IV  PLUS  code  implementation  of  Fill  Filter  is 
given  below  for  use  with  512x512  pixel  device. 

C 
C 

C  INPUT  VARIABLES/ARRAYS  - 

C  NLIN  -  vertical  screen  dimension  in  pixels 

C  NELE  -  horizontal  screen  dimension  in  pixels 

C  ITEMBUF(512,512)  -  buffer  containing  the 

C  reflectance  values  for  each  pixel 

C  ICNT(512,512)  -  buffer  containing  the  count 

C  of  points  projected  to  each  pixel 

C 

C  OUTPUT  VARIABLES/ARRAYS  - 

C  ITEMBUF(512,512)  -  buffer  containing  the 

C  reflectance  values  for  each  pixel 

C 
C 
C 
C 

C . 

C 

C  SCENE  IS  FILTERED  TO  FILL  ANY  HISSED  PIXELS 

C 

DO  111  IYBS=NLIN,1,-1 
DO  222  IXBS=NELE,1,-1 
IF(ICNT(IXB$,IYBS). NE. 0)  GOTO  220 
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440 

300 


220 

222 

111 


C 

C 

C 

C 

C 


JC0UNT=0 

JSUM=0 

DO  300  K=IYBS-1,IYBS+1 

IF((K. LT. 1).0R. (K.GT.NLIN))  GOTO  300 
DO  440  L=IXBS-‘1,IXBS+1 

IF((L. LT.1).0R. (L.GT.NELE))  GOTO  440 
IF(ICNT(L,K). EQ.O)  GO  TO  440 
JC0UNT=JC0UNT+1 
JSUM=JSUM+ITMEBUF(L,K) 

CONTINUE 

CONTINUE 

ITEMBUF( IXBS , I YBS)=JSUM/JCOUNT 
ICNT(IXBS,IYBS)=-1 
CONTINUE 
CONTINUE 
CONTINUE 
ENDIF 


The  code  listed  above  is  contained  in  PGFINFIL.FOR  found  in 
Appendix  EE. 

The  results  of  Fill  Filter  on  images  with  varying  densities  of 
missed  pixels  can  be  seen  in  the  data  base  images  of  Appendix  H  where 
Fill  Filter  is  also  referred  to  as  Filter  2. 

During  initial  tests,  statistical  analysis  of  the  density  of 
projected  data  base  points  showed  that  a  wide  variation  occurred. 
This  variation  was  a  function  of  the  viewing  vector  and  data  base 
characteristics  such  that,  whenever  the  normal  vector  to  the  data  base 
surface  and  the  viewing  vector  approached  ninety  degrees,  a  peak  in 
data  density  projected  to  a  pixel  would  occur  (i.e.,  looking  at  the 
edge  of  a  sheet  of  paper).  As  a  means  of  suppressing  these  peaks  in 
density  a  filter  algorithm  compatible  with  Filter  1  and  Fill  Filter 
was  developed,  referred  to  as  Log  Load  Filter,  which  permits,  only  a 
logarithmically  derived  sampling  of  those  projected  points  to  a  pixel 
to  be  allowed  to  actually  contribute  to  scene  generation.  A  count  is 
kept  on  the  number  of  projected  points  to  each  pixel  from  a  single 
scan  line.  The  reflectance  and  count  buffers  are  only  loaded  with 
points  that  correspond  to  the  Nth  power  of  two  projected  points  where 
N  is  an  integer  starting  with  zero.  This  lets  only  the  first,  second, 
fourth,  eighth,  etc.,  projected  point  contibute  to  the  data  base 
image.  The  Log  Load  Filter  also  limits  the  number  of  data  base  points 
projected  to  any  one  pixel  to  126  total  from  all  scan  lines  by  testing 
the  current  pixel  count  before  accumulating  new  points. 
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The  Log  Load  Filter  reduced  the  peak  number  of  points  projected 
to  a  pixel  from  above  100  to  approximately  16  depending  on  the  scene 
parameters.  The  following  is  the  DEC  FORTRAN  IV  PLUS  code  for  the 
implementation  of  the  Log  Load  Filter.  The  variables  IXSO  and  IYSO 
must  be  initialized  to  zero  as  shown  by  the  DATA  statement  below. 


C 

C 

C . 

C 

DATA  IXSO, IYSO  /0,0/ 
C 

C . 


INPUT  VARIABLES/ARRAYS  - 

IXBS  -  horizontal  screen  coordinate 
IYBS  -  vertical  screen  coordinate 
IR  -  data  base  reflectance  value 

OUTPUT  VARIABLES/ARRAYS  -  NONE 


C . - . . 

c 

KC0UNT=KC0UNT +1 

I F( ( IXBS. NE . IXSO). OR. (IYBS.NE. IYSO))  THEN 
IP0WER=2 
KC0UNT=1 
IXSO=IXBS 
IYSO=IYBS 
GOTO  100 

ELSE  IF(IPOWER.EQ.KCOUNT)  THEN 
IP0WER=2*IP0WER 
100  CALL  OATABASE 

IF(ICNT( IYBS, IXBS)  .GT.126  )  RETURN 

IF((IXBS.GE. (IFILDIN  +  1)).0R. (IXBS. LE.O))  THEN 
RETURN 

ELSE  IF((IYBS.GE. (IFILDIM+1)).0R. (IYBS. LE. 0))THEN 
RETURN 

ENDIF 

ITEMBUS( IYBS , IXBS)=ITEHBUS( IYBS , IXBS)+IR 

ICNT( IYBS , IXBS)=ICNT( I YBS , IXBS)+1 

ENDIF 


C 
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The  code  listed  above  is  contained  in  PGLOGLOAD.FOR  found  in 
Appendix  EF.  The  three  dimensional  images  using  the  REAL  SCAN  algo¬ 
rithms  shown  in  this  report  use  the  Log  Load  Filter. 
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SECTION  V 

REAL  SCAN  ARCHITECTURE 


This  section  develops  estimates  of  the  processing  requirements 
for  a  high  detail,  real  time,  computer  image  generation  system  based 
upon  REAL  SCAN  algorithms.  Further  those  processing  requirements, 
which  are  sufficiently  well  defined  at  the  present  stage  of  algorithm 
development,  are  carried  to  a  feasible  architecture.  Figure  39  ill  us- 
trates  the  computation  sequence  and  the  buffer  memories  needed  to 
ensure  smooth  processing.  We  assume  a  large  disk  store  containing  the 
data  base  which  describes  the  gaming  area.  The  analysis  of  a  hier- 
archial  data  base  carried  out  in  Appendix  B  indicates  that  a  gaming 
area  of  50  km  x  50  km  will  require  a  disk  memory  on  the  order  of 
5  1011  bytes  of  disk.  Video  disk  technology  suggests  this  requirement 
can  be  met. 

REAL  SCAN  computes  the  current  eye  location  and  orientation  which 
defines  the  viewing  window.  Further,  REAL  SCAN  makes  a  prediction 
based  upon  the  present  motion  vector  parameters  (velocity,  accelera¬ 
tion,  control  surfaces,  etc.)  of  the  eye  locaton  and  orientation 
during  the  next  0.1  sec  to  1.0  sec.  This  prediction  allows  one  to 
down  load  the  potential  data  base  parameters  into  a  high  speed  cell 
memory.  The  cell  memory  is  a  high  speed  virtual  memory  which  accepts 
actual  ground  coordinates  in  the  gaming  area  at  the  various  hier¬ 
archical  levels,  to  acquire  the  appropriate  data  base  parameters  from 
physical  locations  in  the  cell  memory.  The  data  in  the  cell  memory 
consists  of  altitude  or  elevation  information/parameters,  color/ 
reflectance  and  texture  code  parameters. 

Figure  39  indicates  the  cell  memory  is  first  accessed  to  deter¬ 
mine  the  elevation  of  a  point  along  a  scan  line.  This  elevation/ 
height  at  a  world  coordinate  is  used  to  determine  if  the  point  is 
visible  or  occulted  by  some  nearer  point.  If  the  point  is  visible, 
then  Figure  39  indicates  that  the  pixel  coordinates  to  which  this 
visible  point  would  project  are  calculated,  if  this  is  a  power  of  two 
point  (i.e.,  first,  second,  fourth,  eighth,  sixteenth,  ...  2"  th), 
then  the  second  set  of  cell  parameters  are  used  to  calculate  the  color 
and  intensity  of  the  visible  point. 

The  visible  point's  color  is  then  conceptually  projected  to  the 
display  screen.  The  physical  operation  is  shown  in  Figure  39  as  an 
accumulation  of  color  and  intensity  data  Into  a  ping-pong  frame  buffer 
addressed  according  to  the  display  screen's  coordinates.  In  the 
current  system,  the  final  filter  Is  the  averaged  accumulation.  How¬ 
ever,  REAL  SCAN  anticipates  the  use  of  a  point  spread  filter  function 
to  allow  for  weighted  averages  of  the  visible  points  projected  to  the 
screen  and  a  high  pass  filter  edge  accentuator  -  low  pass  filter  edge 
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blurrer.  The  high  pass  -  low  pass  test  is  based  upon  the  rate  of 
color  change  along  a  scan  line.  If  data  variation  occurs  at  a  rate 
exceeding  the  kell  factor  display  limit  (i.e.,  3  pixels  to  display  a 
line  pair)  then  the  data  is  low  pass  filtered.  However,  if  data 
variations  along  a  scan  line  occur  at  less  than  the  kell  factor 
display  limit,  then  edges  are  enhanced. 


Cell  Memory 


Elev. 

Calc. 


Visibility 


Color 

Calc. 


Log 

Filter 


Projection 

Calculation 
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Processing/hardware  estimates  for  REAL  SCAN  evolve  into  two 
areas: 

1.  The  data  rates  between  the  blocks  of  Figure  39. 

2.  The  numbers  of  instructions  required  to  perform  a  processing 
function  (i.e. ,  calculate  elevation,  determine  visibility, 
project,  calculate  color,  etc.) 

System  Parameters 

REAL  SCAN  assumes  that  multiple  world  points  will  be  calculated 
for  each  display  pixel.  The  current  algorithms  are  set  for  about  four 
world  points  projected  to  one  pixel.  Further  testing  is  needed  to 
establish  over  sampling  and  filtering  requirements. 

A  512  x  512  display  has  been  used  to  typify  a  viewing  window/ 
screen.  Clearly,  the  higher  the  detail  required,  the  more  complex  the 
hardware.  REAL  SCAN  assumes  display  limited  resolution  will  be  calcu¬ 
lated  from  the  real  world  data  base.  Hence,  if  two  systems  were  to  be 
compared,  one  having  twice  the  number  of  pixels  as  another,  with  both 
operating  at  the  same  computed  displey  rate;  then  the  system  display¬ 
ing  twice  the  data  would  requre  about  twice  the  hardware. 

Let  us  consider  a  CIG  system  having  the  following  system  specifi¬ 
cations: 

1.  Display  of  512  x  512  pixels  per  screen. 

2.  Display  rate  of  60  full  scenes  of  512  x  512  pixels  per 
second. 

3.  Computation  rate  of  about  4  world  points  per  display  pixel 
and  an  upper  bound  of  8  world  points  per  pixel  along  a  scan 
line. 

These  specifications  further  Imply  a  REAL  SCAN  system  having 
about  2  scan  lines  passing  through  each  pixel.  Hence,  an  upper  bound 
between  16  and  32  exists  for  the  number  of  world  points  projected  to  a 
pixel,  dependent  upon  screen  orientation. 

One  can  estimate  the  following  system  characteristics  based  upon 
the  system  specifications: 

1.  The  average  data  rate  of  points  passing  to  the  screen/ 
display  frame  buffer  is  512  x  512  [pixels  per  display]  *4 
[points  per  pixel]  *60  [displays  per  sec]  or  60  mega  points 
per  second.  Each  point  consists  of  3  bytes  of  color. 
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2.  The  worst  case  computation  rate  at  either  the  elevation  or 
visibility  processor  is  1,024  [full  scan  lines  per  display]* 
10  [hierarchies]  *1,024  [world  points  per  hierarchy]  *  60 
[displays  per  sec]  or  600  mega  points  per  sec. 

3.  The  worst  case  computation  rate  at  the  color/intensity 
processor  is  1,024  [full  scan  lines  per  display]  *  [512  x 
512  pixels  per  scan  line]  *  8  [world  points  per  pixel  per 
scan  line]  *  60  [displays  per  sec]  or  240  mega  points  per 
sec. 

4.  The  average  computation  rate  at  the  color/intensity  pro¬ 
cessor  Is  about  1/4  the  worst  case  rate  or  60  mega  points 
per  sec  since  2  world  points  per  pixel  per  scan  line  is  the 
system  goal. 

5.  The  worst  case  projection  processor  computation  would  corre¬ 
spond  to  the  600  mega  points  per  sec  of  the  visibility  pro¬ 
cessor  if  all  points  are  visible.  However,  the  need  for 
REAL  SCAN  assumes  a  high  resolution-high  detail  scene. 
Hence,  one  anticipates  substantial  occulting  with  the  use  of 
local  slope  over  a  calculation  grid  for  allowing  larger 
intervals  between  "safe"  computations  along  a  scan  line  as 
one  samples  the  space  far  from  the  eye. 

The  system  characteristics  have  been  presented  in  terms  of  REAL 
SCAN  however,  they  define  bounds  for  any  CIG  system  attempting  to 
provide  high  resolution  imagery  according  to  the  specification. 

The  REAL  SCAN  system  of  Figure  39  does  not  partition  along  scan 
lines.  Hence,  the  largest  degree  of  parallelism  which  one  can  achieve 
is  about  1,024  parallel  pipelined  processors  (i.e. ,  one  pipe  line  per 
scan  line).  Appendix  C  discusses  the  use  of  intermediate  projection 
planes,  which  allow  parallel  processing  for  one  scan  line  on  the  order 
of  the  number  of  intermediate  planes.  The  hardware  estimates  in  this 
section  are  based  on  Figure  39,  where  a  scan  line  defines  the  longest 
train  of  sequential  steps. 

The  shortest  time  Interval  for  calculating  one  point  along  a 
worst  case  scan  line  is  600  *  10°  [points  per  sec  per  display]  *  1,024 
[scan  lines  per  display]  or  1.6  microsec  per  point.  This  corresponds 
to  1/10  the  Interval  needed  to  create  the  display  specification  of  60 
mega  points  per  sec.  Since  microcomputer  Instruction  times  are 
currently  longer  than  800  nanosec,  the  processing  pipe  line  cannot  be 
made,  In  1982,  from  micro  computers  such  as  8080,  6800,  68000  or  8086. 
Microprocessors  (I.e.,  bit  slice  arrays)  currently  operate  at  micro 
programmed  Instruction  times  of  100  nanosec  (I.e.,  AMD  29xx  family). 
Hence,  It  is  clear  that  the  pipe  lined  processing  segments  which  make 
up  one  scan  line  will  be  made  from  bit  slice  or  faster  technology. 
Efficient  use  of  bit  slice  technology  suggests  that  each  processor  In 
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the  pipe  line  will  execute  a  short  program.  A  time  interval  of 
between  1.6  microsec  to  16  microsec  guarantees  short  programs. 

A  worst  case  estimate  of  the  number  of  small  and  dedicated  100 
nanosec  processors  can  be  made  as  follows: 

1.  The  worst  case  data  rate  is  600  mega  points  per  sec. 

2.  An  estimate  of  the  number  of  optimized  bit  slice  instruc¬ 
tions  needed  to  perform  REAL  SCAN  is  500  instructions  per 
point  (i.e. ,  between  250  and  1000  instructions  per  point). 

3.  The  number  of  processors  is  therefore  600  *  106  [points  per 

sec]  *  10~7  [sec  per  instruction]  *  500  [instruction  per 

point]  or  3  x  10*  processors.  The  processors  could  fit  in 
20  cabinets  each  holding  about  70  boards  if  about  7  pro¬ 
cessors  can  be  placed  on  one  12  inch  x  12  inch  board. 
Clearly  more  work  remains  to  both  reduce  the  number  of 
points  which  need  to  be  processed  and  the  number  of  instruc¬ 
tions  per  point.  The  biggest  computational  burden  here 
resides  in  determining  elevation,  color  and  intensity  for  a 
complex  display  limited  scene. 

The  detail  of  the  pipelined  processors  will  not  be  considered 
further  since  this  detail  requires  a  relatively  fixed  but  necessarily 
optimized  REAL  SCAN  algorithm.  REAL  SCAN  is  evolving  in  a  number  of 
ways,  all  aimed  at  achieving  the  specified  ultimate  computation  rate 
of  60  mega  points  per  sec.  However,  the  detail  of  the  Frame  Buffer, 
or  of  the  general  bus  controller  structure  directing  data  from  the 
processing  string  to  the  Frame  Buffer  can  be  more  nearly  specified  for 
an  architecture.  Hence,  a  preliminary  architecture  for  the  Frame 
Buffer  and  the  processor  to  Frame  Buffer  control  is  developed  next. 

The  cell  memory  is  not  developed  further,  since  it  is  a  virtual 
memory  system  and  virtual  memory  systems  are  available.  Further, 
since  an  intermediate  plane  memory  is  recommended  as  an  Improvement 
over  the  REAL  SCAN  system  of  Figure  39,  it  is  clear  that  the  cell 
memory  requirements  and  data  transfer  speeds  are  likely  to  change 
substantially.  This  also  obviates  the  need  for  carrying  the  cell 
memory  architecture  further  than  estimating  its  size  as  (i.e., 
Appendix  A)  and  defining  Its  addressing  structure  as  virtual. 

Frame  Buffer  and  Bus  Control 

Figure  40  Illustrates  the  Interface  between  the  Frame  Buffer  and 
the  processors.  A  ping-pong  Frame  Buffer  consists  of  two  buffers. 
Each  buffer  contains  a  full  display  frame  (i.e.,  one  scene).  While 
the  ping  side  is  accumulating  one  picture  via  scan  line  coordinates, 
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Figure  40.  Data  Rates  from  the  Processors  to  the  Display. 

the  pong  side  is  displaying  a  picture  via  screen  master  scan  coord¬ 
inates.  Hence,  the  function  of  the  ping  and  pong  memories  switch  once 
per  frame  cycle.  Clearly  this  operation  is  most  easily  accomplished  if 
the  memory  I  Cs  have  separate  data  input  and  data  output  terminals. 
The  data  rates  between  these  elements  is  also  shown  on  Figure  40. 

The  architecture  developed  below  assumes  some  form  of  concentra¬ 
tion,  such  that  the  data  rate  from  the  concentrator  does  not  exceed 
about  2  times  the  specification  of  60  mega  points  per  sec.  Then  an 
architecture  for  accomplishing  the  routing  of  pixel  data  from  the 
concentrator  to  the  addressed  cell  of  the  Frame  Buffer  is  developed. 
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A  modification  to  this  Frame  Buffer  architecture  is  presented  at 
the  end  of  this  section.  This  modification  allows  for  partial  data 
accumulation  to  pixel  locations  to  be  performed  at  the  Concentrators. 
Concentrators  would  be  housed  in  cabinets  with  the  Processors.  Hence, 
the  inter-cabinet  Concentrator  to  Frame  Buffer  bus  speed  requirements 
are  reduced  by  the  modification. 

Once  the  number  of  pages  of  Frame  Buffer  memory  has  been  deter¬ 
mined,  an  architecture  is  developed  for  performing  the  final  filter 
function  on  the  output  of  the  Frame  Buffer. 

ARCHITECTURE 

If  one  allows  a  budget  of  4  microsec.  to  calculate  one  point  for 
one  Concentrator  pipe  line  feeding  data  to  the  Frame  Buffer;  then, 
using  a  data  rate  of  128  mega  points  per  sec.,  as  the  architecture 
design  goal  from  the  Concentrator  to  the  Frame  Buffer,  yields  512 
Concentrator  pipe  lines.  Since  the  Frame  Buffer  consists  of  two  full 
displays,  each  512  x  512  pixels;  each  pixel  having  no  more  than  14 
bits  per  color  and  no  more  than  6  bits  to  hold  the  accumulated  count 
of  points  per  pixel,  then  the  Frame  Buffer  memory  size  Is  less  than 
1.6  mega  byte. 

Let  us  assume  that  one  cabinet  will  accommodate  the  memory  rout¬ 
ing,  Frame  Buffer,  and  D/A  converters.  Since  multiple  cabinets  will 
be  required  to  house  the  processors,  it  is  clear  that  a  signal  bus 
between  cabinets  will  be  required  to  pass  data  from  the  Concentrators 
to  the  Frame  Buffers.  Table  8  indicates  the  maximum  number  of  wires 
needed  to  communicate  60  mega  points  of  data  to  the  Frame  Buffer 
Router  at  a  rate  of  128  mega  points  per  sec. 


TABLE  8.  CONCENTRATOR  TO  FRAME  BUFFER  BUS  PARAMETERS 

Da  a  Interval 


(Data  Only) 

Bus  Dimension 
(Data  and  Address) 

on  Bus 
nanosec 

310 

540 

100 

460 

810 

150 

620 

1080 

200 

770 

1350 

250 

930 

1620 

300 

Table  8  assumes  24  bits  of  data  and  a  negligible  number  of  con¬ 
trol  lines  (i.e. ,  less  than  3  control  lines)  are  needed  on  a  data  only 
bus.  If  the  bus  must  pass  the  address  each  time  rather  than  more 
simply  encode  the  address  Increments  on  the  control  lines,  then  18 
bits  of  address  is  also  required  per  point.  Table  8  indicates  that 
one  can  budget  about  800  lines  to  the  Concentrator  -  Frame  Buffer  bus, 
or  eight  100-pair  connections. 
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The  number  of  pages  of  memory  can  be  estimated  for  various  speed 
memories  based  upon  512  x  512  pixels  accumulating  at  a  rate  of  128 
mega  points  per  sec.  Table  9  illustrates  various  memory  partitions  as 
a  function  of  the  sum  of  memory  read,  memory  write,  and  accumulate 
time,  which  is  termed  the  Frame  Buffer  cycle  time. 


TABLE  9.  PAGES  OF  MEMORY  VERSUS  FRAME  BUFFER  CYCLE  TIME 


Memory 

Pages 

Words  per  Page 
*1024 

Frame  Buffer 
Cycle  Time 
nanosec 

Year 

when 

Inexpensive 

26 

10 

200* 

1984 

38 

7 

300 

51 

5 

400 

1982 

64 

4 

500 

76 

3.3 

600 

90 

2.8 

700 

102 

2.5 

800 

1980 

128 

2 

1000 

*The  recently  announced  (23)  2^*4  static  RAM  TMS2149  operates 
at  a  maximum  read  time  of  35  nanosec.  The  TMS2149  costs  $8.45  in  lots 
of  100. 


If  T  is  the  Frame  Buffer  cycle  time  and  n  is  the  number  of  pages, 
then  128  mega  points/sec  =  n/T.  Memory  cycle  times  appear  to  be 
decreasing  by  a  factor  of  2  about  every  two  years.  In  the  1979-1980 
time  frame  inexpensive  memory  had  a  cycle  time  of  300  to  800  nanosec. 
One  anticipates  inexpensive  memory  in  the  1982-1983  time  frame  will 
have  cycle  times  of  100  to  400  nanosec.  The  routing  control  and  Frame 

Buffer  architecture  will  be  developed  for  64  memory  pages  having  4 
pixels  per  page.  Each  page  of  memory  will  be  able  to  accumulate  a 
data  point  back  into  a  pixel  location  in  less  than  500  nanosec. 

Figure  41  illustrates  the  Concentrator  to  routing  and  accumulat¬ 
ing  side  of  the  Frame  Buffer.  To  most  easily  develop  and  explain  the 
architecture,  it  will  be  assumed  that  both  address  and  data  are  passed 
per  point  to  the  router. 


^"Electronic  Products"  Vol.  24,  No. 
Communications,  Inc.,  Garden  City,  New  York, 


10,  Hearst  Business 
p.  80,  January,  1982. 
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Figure  41.  Block  Diagram  of  Concentrator,  Routing  and  Frame  Buffer. 

The  following  symbology  is  used  in  Figure  41: 

1.  C  is  a  Concentrator.  There  are  512  Concentrators  indicated 
in  Figure  41  operating  at  4  microsec  per  point.  The  bus 
structure  indicates  16  Concentrators  feed  one  C. Control  bus. 

2.  C. Control  (Concentrator  Controller)  is  a  router  taking  32 
Concentrator's  data  (i.e.,  potentially  64  scan  lines  or  a 
strip  of  about  32  pixels  wide)  and  decoding  the  4  most 
significant  address  bits  to  identify  one  of  16  page  groups 
of  memory.  There  are  16  C.  Controllers  indicated  in 
Figure  41. 

3.  M. Control  is  a  memory  controller  which  accesses  each 
C. Control  for  data  on  a  single  bus  shared  among  the  16 
C.Controlers.  There  are  16  M. Controllers  indicated  in 
Figure  41. 

4.  Mem  is  the  actual  Frame  Buffer.  There  are  4  pixels  per 
page  at  14  bits  per  each  of  the  three  colors  and  one  6  bit 
counter  to  record  the  number  of  points  accumulated  into  a 
pixel.  Each  memory  controller  services  4  pages  of  memory. 
Figure  41  indicates  a  total  of  64  pages  of  memory. 

Figure  42  illustrates  the  architecture  for  a  Memory  Controller 
with  its  four  pages  of  memory.  There  are  16  buffers  shown,  one 
between  each  Concentrator  Controller. 

Each  Concentrator  Controller  has  one  output  bus  which  enters 
ever  Memory  Controller's  buffer  1.  It  is  assumed  that  the  Concentra¬ 
tor  Controller  is  in  the  Memory  Buffer  cabinet.  Hence,  the  32  busses 
shown  in  Figure  41  connecting  the  Concentrators,  go  between  cabinets 
and  are  budgeted  at  250  nanosec  per  word,  whereas  the  16  busses 
between  the  Memory  Controllers  are  budgeted  at  100  nanosec  per  word. 
The  Memory  Controller  is  budgeted  to  accumulate  data  into  memory  at 
350/4  nanosec  or  87.5  nanosec  Since  all  pipe  lines  are  budgeted  to 
operate  on  data  at  a  rate  slightly  faster  than  the  pipe  line  accepts 
the  data,  the  elimination  of  bottlenecks  is  guaranteed  for  Figure  41. 
Figure  42  indicates  that  the  color  adder  is  budgeted  with  350/4 
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Figure  42.  Block  Diagram  of  the  Memory  Controllers 


nanosec  of  accumulation  delay.  An  adder  producing  its  14  bit  sum  in 
87  nanosec  or  less  can  be  shared  without  contention  between  about  4 
pages  of  memory. 

The  controller  of  Figure  42  performs  the  following  functions: 

1.  Check  16  buffers  at  one  time  using  a  priority  decode  such 
that  the  oldest  buffer  has  the  highest  priority. 

2.  Accumulate  the  contents  from  highest  priority  buffer  into 
its  pixel  on  the  free  page  in  memory.  There  must  be  at 
least  one  free  page  of  the  four  available.  However,  it  is 
possible  that  all  buffers  currently  have  their  ready  word 
targeted  to  an  active  page  in  memory.  Even  if  all  buffers 
initially  point  to  the  same  page  in  memory,  after  4  words 
have  been  accumulated  from  4  buffers,  all  the  memories 
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should  be  cycling  among  the  buffers  and  accumulating  pixels. 
An  average  data  rate  is  guaranteed  by  addressing  conti gous 
screen  pixels  to  one  of  the  64  pages  in  memory.  Figure  43 
illustrates  a  page  numbering  scheme  for  placing  geometric¬ 
ally  near  pixels  in  unique  memory  pages.  All  pixels  labeled 
1  are  on  page  1.  All  same  page  pixels  have  at  least  an  8 
pixel  space  separation  from  a  geometric  neighbor  also  tar¬ 
geted  for  page  1.  Pages  1,  2,  3,  and  4  are  controlled  by 
the  same  Memory  Controller. 
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Figure  43.  A  Mapping  of  Memory  Pages  to  Display  Space. 

A  two-step  controller  is  best  hardwired.  It  is  clear  that  the 
function  of  accumulation  will  not  change  (i.e. ,  Mem(  Addrs  )<-Mem  (Addrs) 
+  Buffer  Data;  CNT(Addrs)«-CNT  (Addrs)  +  1). 

One  final  comment  about  Figure  42,  the  16  Buffs  are  assumed  to  be 
FIFO's  (i.e.,  First-In-First-Out  devices).  Hence,  they  automatically 
load  data  from  a  C. Control  bus  when  the  data  available  flag  says 
"load". 

The  buffers,  Buff  1  and  Buff  2,  need  be  no  more  than  dual  regis¬ 
ters  which  ping-pong  between  loading  data  from  a  Concentrator  group 
and  passing  the  data  to  the  FIFO  buffer,  OUT.  The  Buff's  serve  one  of 
the  functions  performed  by  FIFO's,  to  allow  asynchronous  operation 
between  stages. 


NAVTRAEQUIPCtN  80-D-0014-2 


Destination 


Decode 


Figure  44.  Block  Diagram  of  Concentrator  Control  of  Figure  41. 

Figure  44  illustrates  one  of  the  C. Control  elements  of  Figure  41. 

The  control  in  Figure  44  alternates  access  to  the  OUT  buffer 
between  Buff  1  and  Buff  2,  and  commands  OUT  to  load  if  the  accessed 
Buff  has  data  available.  This  architecture  assumes  each  Buff  has 
tri-state  outputs.  Hence,  the  control  function  can  be  placed  in  the 
following  algorithm: 

1.  Deactivate  Buff  2  tri-state  drivers;  activate  Buff  1  tri¬ 
state  drivers;  determine  if  Buff  1  has  data. 

2.  Load  data  to  OUT  if  Buff  1  has  data. 

3.  Deactivate  Buff  1  tri-state  drivers;  activate  Buff  2  tri¬ 
state  drivers;  determine  if  Buff  2  has  data. 

4.  Load  data  to  OUT  if  Buff  2  has  data;  go  to  step  1. 

The  OUT  buffer  output  is  connected  to  one  port  of  each  M. Control, 
as  shown  in  Figure  42.  Figure  44  indicates  that  the  address  bits  (e.g. 
each  of  the  2  least  significant  row  and  column  pixel  locators)  are 
decoded  to  identify  which  M. Control  will  receive  the  data.  This  decode 
is  activated  if  the  data  available  (D.A. )  line  of  OUT  is  activated. 
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The  architecture  of  Figure  44  allows  for  asynchronous  operation 
between  Concentrator  groups  and  Memory  Controllers.  The  architecture 
is  simple  and  most  reasonably  would  be  hardwired  due  to  the  100  nano- 
sec.  transfer  requirement. 

At  this  point,  it  is  appropriate  to  review  the  architecture  of 
Figure  41  and  investigate  the  reordering  of  at  least  part  of  the 
accumulation  function.  If  all  accumulation  could  be  accomplished  at 
the  Concentrators  of  Figure  40,  then  the  data  rate  into  the  Frame 
Buffer  would  be  less  than  16  mega  points  per  sec,  a  savings,  by  a 
factor  of  8,  over  the  architecture  just  presented  since  a  128  mega 
point  per  sec  rate  was  utilized  to  account  for  bursts  of  data.  Let  us 
investigate  an  architecture  for  accumulating  data  at  a  Concentrator, 
buffering  these  accumulations  and  then  sequentially  passing  them  to 
the  Frame  Buffer. 

ALTERNATE  CONCENTRATOR  ARCHITECTURE 

In  order  to  accumulate  scan  line  data  at  a  Concentrator  in  a 
reasonably  small  buffer  memory,  one  must  accomplish  the  following: 

1.  The  scan  lines  must  be  grouped  to  a  Concentrator  according 
to  the  geometric  region  being  calculated,  to  facilitate 
accumulation. 

2.  A  simple  address  decoding  scheme  must  exist  to  transform  a 
strip  swept  across  the  screen  into  buffer  addresses,  to 
facilitate  accumulation  with  a  buffer  memory  which  is  but  a 
fraction  of  the  display  size. 

If  a  Concentrator  accumulation  stage  is  introduced,  then  the  rate 
of  data  concentration  at  a  concentrator  of  Figure  41  will  not  change, 
however  the  rate  at  which  accumulated  pixel  information  will  be  passed 
to  the  C. Control  will  decrease  by  about  a  factor  of  8  (i.e. ,  note 
however,  that  the  width  of  the  bus  from  C  to  C. Control  will  increase). 
Hence,  by  decreasing  the  number  of  busses  from  32  to  16,  the  data  rate 
shown  in  Figure  41  will  decrease  from  a  word  every  250  nanosec  to  a 
word  every  1  microsec  on  the  average.  Further,  since  picture  data 
would  be  accumulated  at  a  concentrator,  the  order  which  picture  data 
will  be  placed  on  the  inter-cabinet  bus  can  be  controlled,  such  that 
all  memory  planes  are  active  (i.e.,  the  average  data  rate  is  main¬ 
tained  without  substantial  contention  of  data  destined  for  any  one 
page  of  memory  and  hence  the  FIFO's  of  C. Control  and  M. Control  can  be 
eliminated).  All  accumulation  will  not  be  possible  at  the  concentra¬ 
tors,  unless  they  share  data.  Since  a  frame  buffer  is  required  to 
hold  a  full  scene,  interconnection  between  the  concentrators  is  not 
warranted. 

Figure  45  illustrates  an  architecture  which  satisfies  all  the 
requirements.  Eight  scan  line  concentrators  servicing  a  connected 
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region  of  the  world  are  accumulated  to  a  simply  transformed  memory. 
As  the  scan  lines  pass  over  a  region  of  the  scene  and  start  projecting 
information  to  other  screen  pixels,  the  data  accumulated  into  "old" 
pixels  can  be  routed  toward  the  Frame  Buffer.  Figure  45  allows  one 
accumulated  data  for  one  pixel  to  be  routed  forward  every  3000  nano¬ 
sec.  The  last  stage  is  a  double  buffered  accumulator  allowing  pixel 
data  from  any  of  the  four  accumulation  memories  to  be  routed  to  a 
C. Control,  if  from  the  interior  of  its  wedge;  or  to  be  accumulated 
with  its  neighbor,  if  from  a  wedge  boundary. 
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Figure  45.  Concentrator  Accumulation  Architecture 

The  address  decode  portion  of  Figure  45  can  be  simply  accomp¬ 
lished  defining  two  axes: 

1.  Screen  axes  Xs,  Ys 

2.  Accumulation  memory  axes  X^,  Y^. 

Pixel  data  is  computed  in  terms  of  Xs,Ys  but  stored  in  the  accumula¬ 
tion  memory  of  Figure  45  in  terms  of  X.,  Y..  One  of  the  screen  axes 
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W1  1  vary  more  rapidly,  call  this  the  ICASE  axis.  If  Xs  is  the  ICASE 
axis  let  =  M0D(Mx,Xs),  where  Hx  Is  the  address  length  along  the  X 

ax^s  of  the  memory.  Nodular  arithmetic  is  suggested  for  the  ICASE 
axis  since  accumulated  data  is  routed  forward  as  the  scan  line  moves 
to  succeeding  screen  pixels.  Let  the  axis  associated  with  the  more 
slowly  varying  coordinate  change  be  called  IOTHR.  Then  if  Ys  is  the 
IOTHR  axis  Y.  =  M0D(My,Ys  -  <*Xs),  where  a  corresponds  to  the  slope, 
AYs/AXs,  of  ar wedge. 

Figure  46  illustrates  an  address  decode  from  physical  space  to 
Concentrator  accumulation  memory  space.  The  ICASE  axis  corresponds  to 
Xs.  The  slope  is  nearly  45°. 


Figure  46.  Memory  Nap  of  Screen  Coordinates  to  Accumulation  Addresses 


The  address  decode  for  translating  the  Concentrator  accumulation 
memory  back  into  screen  coordinates  can  be  accomplished  by  maintaining 
two  base  registers.  These  base  registers  can  be  either  at  the  Double 
Buffer  of  Figure  45  or  at  C. Control  of  Figure  41.  The  conversion  is 

Xs  =  XA  +  Nx  (76) 

Ys  -  Y^  +  aXs  +  Ny  (77) 

where  Nx,  Ny  corresponds  to  an  initialization  offset  plus  an  integer 

number  of  memory  dimensions  Mx  and  Mty  respectively.  Figure  46  illus¬ 

trates  that  line  a  in  screen  coordinates  maps  to  the  line  My/2  in 
accumulator  space.  My  need  be  no  larger  than  Mx  according  to  Fig¬ 
ure  46.  My  must  be  at  least  as  large  as  the  number  of  pixels  swept  by 
a  group  plus  about  4  to  allow  for  address  decode  round  off.  However, 
Mx  =  My  =  M  allows  for  shifting  between  ICASE  and  IOTHR  axes  with 

minimum  effort.  For  example,  a  1*  memory  allows  M  =  32  which  provides 
at  least  4  group  widths  for  a  screen  wedge. 
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The  addressing  scheme  for  unloading  the  Double  Buffer  of  Figure 
45  is  simplest  if  the  1CASE  axis  coordinate  is  held  constant  with  the 
IOTHR  axis  varying.  For  example,  if  Xs  is  the  fast  axis,  then  unload¬ 
ing  would  be  accomplished  by  Xg  =  X^  +  and  holding  X^  constant 

until  a  full  segment  of  Ys  =  Y^  +  aXs  +  Ny  pixels  had  been  unloaded  to 

the  next  stage.  Unloading  of  data  would  be  associated  with  clearing 
the  count  for  data  points  for  that  pixel  to  zero,  as  well  as  clearing 
the  three  intensities  associated  with  the  pixel. 

The  Accumulation  Memory  of  Figure  45  needs  to  have  a  speed  of 
about  500*300/3500  =  428  nanosec.  The  maximum  word  length  is  14  bits 
per  color  plus  6  bits  for  count  or  6  bytes.  A  memory  speed  for  read, 
accumulate,  write  of  better  than  400  ns  would  allow  the  use  of  one 

Ir 

high  speed  accumulation  buffer  at  1  words  of  6  bytes  per  word.  This 
high  speed  memory  would  be  arranged  with  32  address  per  axis.  How¬ 
ever,  less  than  24  address  would  be  needed  for  the  IOTHR  axis,  if  one 
uses  2  scan  lines  per  pixel. 

The  general  structure  of  Figure  41  is  not  changed  by  allowing 
concentration  accumulation,  however  the  routing  complexity  is  reduced. 
Figure  47  illustrates  the  impact  of  concentrator  accumulation  on  the 
routing  of  data  to  the  Frame  Buffer. 


Figure  47.  Block  Diagram  of  Routing  and  Frame  Buffer  Architecture 
with  Concentrator  Accumulation. 

The  reduced  data  rates  desired  have  been  achieved  in  Figure  47. 
Further,  the  routers  (i.e.,  M. Control  and  C. Control)  have  the  number 
of  interconnecting  busses  reduced,  but  the  bus  width  has  been 
increased.  The  data  bus  for  one  point  in  Figure  41  was  24  bits.  The 
data  bus  in  Figure  47  is  3*14  +  6  =  48  bits.  Hence,  the  apparent 
factor  of  8  reduction  in  data  rate  (i.e.,  words  per  sec)  is  actually 
only  a  factor  of  4  (i.e.,  bits  per  sec).  Some  slight  improvement  is 
possible  if  the  count  (i.e.,  number  of  data  points  contributing  to  a 
pixel)  is  limited  to  4  bits  of  representation.  That  is  all  colors  are 
divided  by  count  and  multiplied  by  the  largest  allowed  count  value 
(i.e.,  one  may  encode  the  transmission  of  count  such  that  0  means  one 
data  point  and  15  means  16  data  points).  The  rescaled  color  and  the 
maximum  count  would  be  routed  to  the  frame  buffer.  The  width  of  the 
data  bus  in  the  case  count  is  bounded  by  16,  is  3*12  +  4  =  40  bits. 
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PONG  FRAME  BUFFER  ARCHITECTURE 

The  last  element  to  be  described  for  the  REAL  SCAN  architecture 
is  the  Display  side  of  the  Frame  Buffer.  The  Display  side  of  the 
Frame  Buffer  is  the  "Pong"  memory  of  Figure  39  plus  the  Final  Filter. 
The  Final  Filter  takes  the  accumulated  color  per  pixel  and  divides 
this  accumulation  by  the  count  (i.e. ,  the  number  of  data  points  which 
make  up  the  accumulated  color).  In  this  way,  edge  blurring  and  stair¬ 
casing  is  at  least  partially  eliminated  from  the  displayed  scene. 
Figure  48  illustrates  the  Display  side  of  the  Frame  Buffer. 


PONG  Hem.  Pages 


Color:  Ping 


COUNT 


Color:  Pong 


Figure  48.  Block  Diagram  of  Display  Side  of  the  Frame  Buffer. 


The  Frame  Buffer  memory  is  arranged  in  pages.  Figure  48  indicates 
that  "n"  pages  of  the  "pong"  side  of  the  Frame  Buffer  are  read  in 
parallel  into  the  ping  color  register  and  corresponding  count  regis¬ 
ter.  There  is  one  color  location  and  one  pixel  count  for  each  of  the 
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pages  of  memory  written  to  the  color/count  registers.  Each  6  bit 
count  value  is  inverted  by  a  high  speed  ROM  and  then  the  product  is 
formed  of  each  of  the  3  colors  (red,  green,  blue)  by  using  three  of 
the  Mult's  per  pixel.  This  product  (i.e. ,  one  word  per  color)  corre¬ 
sponds  to  the  average  color  to  be  diplayed  at  a  pixel.  The  product  is 
loaded  back  into  the  "ping"  color  register. 

During  the  time  the  ROM  is  inverting  count  and  the  average  color 
is  being  formed,  the  "pong"  Frame  Buffer  locations  just  read  are  being 
cleared  to  zero.  Clearing  the  count  and  color  per  pixel  location  at 
this  time  allows  proper  accumulation  during  the  ping  cycle,  and  can  be 
accomplished  without  further  burden  on  Frame  Buffer  access  time. 

Current  thinking  utilizes  8  bits  per  color  since  color  tests, 
which  we  have  performed,  indicate  that  discernable  Mach  banding  occurs 
at  somewhere  between  6  and  7  bit  resolution  for  display  intensities 
available  on  the  DICOMED.  If  one  were  to  use  REAL  SCAN  with  a  device 
capable  of  four  times  the  DICOMED1 s  apparent  display  intensity,  then 
one  would  need  about  a  10  bit  D/A  result. 

The  averaged,  and  hence  correct,  pixel  color  is  multiplexed  via 
the  MUX  to  the  3  high  speed  D/A  converters  for  driving  the  RGB  dis¬ 
play.  The  availability  of  tristate  registers  eliminates  the  need  for 
a  physical  mutiplexer,  since  the  "pong"  register  output  can  be  selec¬ 
tively  enabled. 

The  number  of  pages  of  "pong"  memory  which  need  to  be  averaged  in 
parallel  can  be  calculated  as  follows: 

1.  Determine  the  pixel  interval 

2.  Determine  the  averaging  calculation  time  (i.e. ,  sum  of 
"pong"  memory  fetch,  ROM  read,  multiply,  and  "ping"  register 
write) 

3.  The  minimum  number  of  memory  pages  is  the  integer  greater 
than  the  ratio  of  average  calculation  time  and  pixel 
interval . 

For  example,  if  the  pixel  interval  is  100  nanosec  and  the  pong 
memory  fetch  is  200  nanosec,  the  ROM  read  is  100  nanosec,  the  multiply 
is  150  nanosec,  and  the  "ping"  register  write  is  10  nanosec;  then  the 
number  of  Frame  Buffer  pages  is  5.  Figure  47  indicates  that  loading 
the  Frame  Buffer  places  a  requirement  of  at  least  16  pages.  Hence,  16 
pages  of  memory,  operating  with  the  parallel  function  speeds  above, 
could  present  a  new  pixel  every  28  nanosec. 

The  architecture  presented  in  this  section  demonstrates  the 
feasibility  of  the  Frame  Buffer  concept  to  create  high  detail  dis¬ 
plays.  However,  work  still  remains  to  define  an  optimum  REAL  SCAN 
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algoritha  for  calculating  the  data  base  in  real  time.  When  an  optiaua 
data  base  calculation  algorithm  is  determined,  then  the  detailed 
processor  and  concentrator  structure  should  be  determined.  The  Frane 
Buffer  places  a  burden  of  only  one  display  tiae  delay  on  the  pipelined 
process.  Hence,  if  the  pipelined  processors  have  negligible  pipeline 
delay  and  they  can  load  the  "ping"  of  aeaory  in  one  display  tiae,  then 
REAL  SCAN  potentially  has  only  two  display  tiae  delays  between  identi¬ 
fying  the  eye  location  and  creating  the  last  display  pixel  (i.e. ,  one 
to  load  the  "ping”  aeaory  and  one  to  display  the  "pong"  aeaory). 
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SECTION  VI 

PICTURE  GENERATION  SOFTWARE 


The  purpose  of  this  section  Is  to  document  four  routines  that  are 
used  In  conjunction  with  the  DICOMED  D47  Image  Recorder  (DICOMED)  and 
our  Image  Parameter  Text  Generation  routines.  The  four  DICOMED 
routines  are  entitled: 

1.  DICBWSA.FOR  (DICOMED  Black  and  White  Stand  Alone  routine) 

2.  DICCOLSA. FOR  (DICOMED  Color  Stand  Alone  routine) 

3.  SDICBW. FOR  (Subroutine  DICOMED  Black  and  White) 

4.  SDICCOL. FOR  (Subroutine  DICOMEO  Color) 

DICBWSA.FOR  and  DICCOLSA. FOR  are  to  be  used  with  previously  generated 
data  that  Is  stored  on  disk  or  magnetic  tape  (mag  tape).  SDICBW. FOR 
and  SDICCOL. FOR  are  subroutines  that  may  be  Incorporated  Into  data 
generation  routines  for  Immediate  output  to  the  DICOMED.  These 
routines  are  In  the  P8734  directory  of  NTEC's  VAX- 11/780.  Related 
topics  also  Included  In  this  section  deal  with  the  DICOMED  Itself  and 
the  DICOMED  driver  routines  written  by  Jeff  Rubin  prior  to  1979.  Also 
included  are  techniques  for  using  options  available  on  the  DICOMED. 

This  section  assumes  some  knowledge  of  FORTRAN  code  and  VAX- 
11/780  command  language.  Equations  are  given  in  FORTRAN  code  and 
FORTRAN  program  listings  are  included.  Several  VAX- 11/780  command 
language  procedures  are  included.  This  section  updates  a  former  P8734 
DICOMEO  report  dated  14  December  1979  which  describes  limited  black 
and  white  use  of  the  DICOMED.  It  is  recommended  that  the  reader  read: 

IMAGE  RECORDERS 
Models  D46  and  D47 
Operation  and  Programming  Manual 

This  document  describes  the  general  use  of  the  DICOMED.  A  copy  is 
located  In  the  NTEC  Computer  Lab  (N-74). 

In  the  following  paragraphs,  FORTRAN  variables  are  identified  by 
all  capital  letters,  e.g. ,  COLOR,  ITEMBUF(512/512).  VAX-11/780  files 

names  are  identified  by  their  name  and  file  specification,  e.g., 
DICBWSA.FOR,  RANIM.EXE,  SRCAMSA.COM.  Words  that  reference  FORTRAN 
statements  are  in  single  quotes  ('),  e.g.,  'called'  for  subroutine 
calls,  'included'  for  INCLUDE  statements.  INCLUDE  statements  allow  a 
file  to  be  'included'  in  the  FORTRAN  compilation.  INCLUDE  is  usually 
used  for  data  declarations,  variables,  and  arrays  that  are  common  to 
different  routines. 


NAVTRAEQUIPCEN  80-D-0014-2 


Appendix  DA  through  DI  is  the  documentation  of  a  text  generator 
for  the  DICOMED.  The  text  generator  allows  information  about  the 
picture  to  be  printed  as  part  of  the  photograph. 

The  OICOMED  D47  Image  Recorder  is  used  to  translate  binary  data 
into  Polaroid  or  35mm  photographs.  One  binary  data  word  is  assigned 
to  each  picture  element  (pixel)  in  the  photograph.  The  set  of  binary 
data  words  for  a  photograph  is  referred  to  as  picture  data.  Each  data 
word  may  have  either  6  or  8  bits  of  accuracy.  Six  bits  implies  64 
intensities,  8  bits  implies  256  intensities.  The  DICOMED  driver 
routines,  written  by  Jeff  Rubin  prior  to  1979,  only  allow  for  the  use 
of  8  bit  data  words.  Eight  bit  data  is  referred  to  as  a  FORTRAN  byte 
data  word  and  has  a  range  from  -128  to  127.  Zero  (0)  corresponds  to 
black,  127  to  grey,  -128  to  grey  +1,  and  -1  to  white  in  the  normal 
output  mode.  Black  becomes  white  and  white  black  in  the  complement 
mode.  Rubin's  routines  only  allow  normal  mode  output.  If  the  gener¬ 
ated  picture  data  ranges  from  0  to  255,  a  shift  should  be  performed  as 
follows  to  avoid  a  FORTRAN  overflow  error. 

IR  =  <  data  >  !0  <  data  <  255 

ISHIFT  =  256  *  (IR/128) 

BUFl(IXBS)  =  IR  -  ISHIFT 

where  BUF1  is  a  byte  array  and  IXBS  is  the  data's  location  in  that 
array. 

Stand  Alone  Routines 

Stand  alone  routines  are  used  when  the  data  has  been  previously 
generated  by  another  program  and  stored  in  a  disk  or  mag  tape  file. 
Stand  alone  routines  require  that  the  picture  data  be  read  into  the 
program  in  order  to  be  output  as  a  picture.  Two  stand  alone  routines 
exist:  DICBWSA.FOR  for  black  and  white,  DICCOLSA.FOR  for  color. 

DICBWSA. FOR 

DICBWSA.FOR  is  the  DICOMED  Black  and  White  Stand  Along  routine 
which  allows  the  output  of  previously  generated  black  and  white 
picture  data.  The  following  is  a  step-by-step  procedure  for  using 
DICBWSA.FOR.: 

1.  Store  the  picture  data  in  a  VAX  FORTRAN  data  file.  These 

files  are  disk  files  entitled  F0R0nn.DAT.  where  nn  is  an 
integer  between  10  and  99.  A  number  between  1  and  10  may  be 
used,  but  there  is  a  risk  of  interfering  with  system  assigned 
devices. 

2.  Set  up  the  DICOMED  using  the  DICOMED  start  up  procedure 
described  in  Appendix  AA. 


NAVTRAEQUIPCEN  80- D- 00 14- 2 


3.  Compile  DICBWSA.FOR. 

4.  Link  DICBWSA.FOR  with  the  DICOMED  driver  routines:  @  DICBWSA. 
The  @  executes  a  VAX  command  procedure  entitled  DICBWSA.COM. 
DICBWSA.COM  is  listed  here. 

$LINK/EXE=[P8734]DICBWSA  - 

DIC : BLKDATA , [ P87G4]0ICBWSA ,  - 
DIC: DICOMED/LIB 

5.  DICBWSA  is  now  ready  to  run: 

RUN  DICBWSA 

6.  A  terminal  session  showing  the  compile,  link,  run,  and 
response  to  requests  from  DICBWSA  is  shown  here  for  refer¬ 
ence.  Normal  type  represents  computer  response,  boldface 
represents  user  response. 

$  FOR  DICBWSA 
$  9DICBWSA 
$  RUN  DICBWSA 

GENERAL  STAND  ALONE  BLACK  AND  WHITE  DICOMED  ROUTINE 

THE  PICTURE  DIMENSIONS  ARE  SET  AT  512,512 
ENTER  TYPE  OF  FILM:  P0LAR0I0=0.  35mm=l. 

0 

DO  YOU  WISH  TO  FILTER  THE  DATA?  (YES=1) 

1 

THE  RESOLUTION  IS  SET  AT  3. 

IS  A  READ  REQUIRED?  (YES=1) 

1 

ENTER  THE  FILE  YOU  WANT  TO  READ  ITEMBUF 
25 

READING  ITEMBUF  FROM  FILE  25 

READING  INT2  FROM  FILE  25 

FILLING  ANY  MISSED  PIXELS 
MISSED  PIXEL  AT  IXBS,IYBS=  512  512 

SENDING  DATA  TO  THE  DICOMED 
THE  END 

DO  YOU  WANT  TO  DO  ANOTHER  PICTURE?  (YES=1) 

0 

FORTRAN  STOP 
$  PURGE  DICBWSA.* 


The  output  is  on  Polaroid  black  and  white  Type  52  film.  An  example  is 
shown  in  Figure  49.  The  program  listing  of  DICBWSA.FOR  is  given  in 
Appendix  CB. 
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Figure  49.  Output  from  DICBWSA. 

DICCOLSA. FOR 

DICCOLSA.FOR  is  the  OICOMEO  Color  Stand  Alone  routine  which 
allows  for  the  output,  of  previously  generated  color  picture  data,  to 
the  DICONEO.  Step-by-step  use  of  DICCOLSA.FOR  is  given  here: 

1.  Store  the  picture  data  in  a  VAX  FORTRAN  data  file.  These 
files  are  disk  files  entitled  F0R0nn.DAT,  where  nn  is  an 
integer  between  10  and  99.  A  number  less  between  1  and  10 
may  be  used,  but  there  is  a  risk  of  interfering  with  system 
assigned  devices. 

2.  Complete  the  OICOMED  start  up  procedure  described  in 

Appendix  AA. 

3.  Compile  DICCOLSA.FOR: 

$  FOR  DICCOLSA 

4.  Link  DICCOLSA  with  the  OICOMED  driver  routines: 

$  ©DICCOLSA 

The  ©  executed  the  VAX  command  procedure  DICCOLSA.COM  is  listed  here: 

$LINK/EXE=[P8734]DICC0LSA  - 
DIC: BLKDAT , [P8734]DICC0LSA ,  - 
DIC: DICOMED/LIB 

5.  DICCOLSA  is  now  ready  for  execution: 

A  typical  terminal  session  is  illustrated  here  (regular  type 
is  computer,  bold  face  is  user): 

$  FOR  DICCOLSA 
$  ©DICCOLSA 
$  RUN  DICCOLSA 
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GENERAL  STAND  ALONE  COLOR  DICOMED  ROUTINE 

THE  PICTURE  DIMENSIONS  ARE  SET  AT  512,512 
ENTER  TYPE  OF  FILM:  P0LAR0ID=0.  35mm=l. 

0 

DO  YOU  WISH  TO  FILTER  THE  DATA?  (YES=1) 

1 

THE  RESOLUTION  IS  SET  AT  3. 

ENTER  THE  NUMBER  OF  DICOMED  PASSES 
2 

IS  A  READ  REQUIRED?  (YES=1) 

ENTER  THE  FILE  YOU  WANT  READ  ITEMBUF 
30 

READING  ITEMBUF  FROM  FILE  30 

READING  INT2  FROM  FILE  30 

FILLING  ANY  MISSED  PIXELS 
SENDING  NEUTRAL  DATA  TO  THE  DICOMED 
SENDING  GREEN(l) ,RED(2) ,BLUE(3)=  1 

SENDING  GREEN(l) ,RED(2) ,BLUE(3)=  2 

SENDING  GREEN(l) ,RED(2),BLUE(3)=  3 

PASS  1  COMPLETED 
SENDING  NEUTRAL  DATA  TO  THE  DICOMED 
SENDING  GREEN(l) ,RED(2) ,BLUE(3)=  1 

SENDING  GREEN(l) ,RED(2) ,BLUE(3)=  2 

SENDING  GREEN(l) , RE0(2) , BLUE(3)=  3 

PASS  2  COMPLETED 
THE  END 

DO  YOU  WANT  TO  DO  ANOTHER  PICTURE?  (YES=1) 

0 

FORTRAN  STOP 

The  output  from  the  terminal  session  is  given  in  Figure  50. 

The  FORTRAN  listing  of  DICCOLSA.FOR  is  given  in  Appendix  CC. 


Figure  50.  Output  from  DICCOLSA. 
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SUBROUTINES 

DICOMED  output  routines  are  used  when  the  picture  data  is  to  be 
sent  directly  to  film  and  not  necessarily  written  to  disk  or  mag  tape. 
SDICBW.FOR  is  used  when  only  black  and  white  picture  data  is  being 
sent  to  the  DICOMED.  SDICC01.F0R  is  used  for  sending  color  picture 
data  to  the  DICOMED. 

SDICBW. FOR 

SDICBW.FOR  (Subroutine  DIComed  Black  and  White)  can  be  used  where 
the  picture  data  is  generated  and  a  photograph  is  desired  immediately. 
The  main  program  which  reference  the  subroutine  SDICBW  must  have  the 
following  declarations  inserted  at  the  beginning  of  its  FORTRAN  code: 

INTEGERS  ITEMBUR(512,512) ,  INT2(512,526) 

BYTE  ICNT(512,512) 

EQUIVALENCE  (ICNT.INT2) 

COMMON  ITEMBUF.ICNT 

Three  parameters  must  be  sent  to  SDICBW.FOR  via  a  FORTRAN  sub¬ 
routine  'call'  statement  as  follows: 

CALL  SDICBW(IMOV, IFLT, IAN) 

where  Table  10  defines  the  agruments. 


TABLE  10.  SDICBW  ARGUMENTS 


VARIABLE 

VALUE 

DEFINITION 

IMOV 

0 

The  type  of  film  is  Polaroid 

1 

The  type  of  film  is  35mm 

IFLT 

0 

Do  NOT  filter  missed  pixels 

1 

DO  filter  missed  pixels 

IAN 

0 

Do  NOT  make  a  duplicate  photograph 

1 

DO  make  a  duplicate  photograph 

A  short  test  routine  has  been  written  to  demonstrate  the  use  of 
SDICBW. FOR. 
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TEST  ROUTINE  FOR  SOICBW.FOR 
HOWEVER,  THE  DATA  IS  READ  INSTEAD  OF  GENERATED. 

INTERGER*2  ITEMBUF(512,512) ,  INT2(512,256) 

BYTE  ICNT  (512,512) 

EQUIVALENCE  (ICNT.INT2) 

COMMON  ITEMBUF.ICNT 

READ  (20,1000)  ((ITEMBUF(I,J),  1=1, 512), J=l, 512) 

READ  (20,1000)  ((INT2(I,J), 1=1, 512), >1,256) 

1000  FORMAT  (66A2) 

IM0V=0 
IFLT=1 
IAN=0 

CALL  SDICBW(IMOV,IFLT,IAN) 

STOP 
END 

SDICCOL. FOR 

SDICCOL.FOR  (Subroutine  OlComed  COLor)  can  be  used  when  immediate 
color  photographs  are  desired  from  the  calling  routine.  The  following 
FORTRAN  "include'  statement  must  be  inserted  at  the  beginning  of  the 
main  routine's  FORTRAN  code: 

INCLUDE  "[P8734]DICBUF. FOR " 

A  listing  of  DICBUF.FOR  is  shown  here: 

INTEGER*2  ITEMBUF(512 ,512,3), INT2(512 , 256) 

BYTE  NEUTRAL( 512 , 512) , ICNT(512 , 512) 

EQUIVALENCE  (ICNT.INT2) 

COMMON  ITEMBUF, NEUTRAL, ICNT 

SDICCOL.FOR  requires  four  parameters  from  the  calling  routine.  The 
FORTRAN  'call'  statement  used  is  as  follows: 

CALL  SDICCOL( IMOV , IFLT , IPASS , IAN) 


where  Table  11  defines  the  arguments. 
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TABLE  11.  SDICCOL  ARGUMENTS 
VARIABLE  VALUE  DEFINITION 


The  type  of  film  is  Polaroid 
The  type  of  film  is  35mm 

Do  NOT  filter  missed  pixels 
DO  filter  missed  pixels 

x  is  the  number  of  times  data  is  duplicated 
on  the  film  to  give  good  color  pictures  (normal 
is  2) 

Do  NOT  make  a  duplicate  photograph 
00  make  a  duplicate  photograph 


Image  Parameter  Text  Generation  Routines 

During  testing  of  the  REAL  SCAN  algorithms,  numerous  scene  images 
are  created  on  both  Polaroid  and  35mm  film.  The  scene  parameters 
which  are  used  by  the  routines  along  with  the  date  and  time  of  scene 
generation  must  be  correctly  identified  with  each  picture. 

The  following  is  a  description  of  the  operation  of  the  DEC 
FORTRAN  IV  PLUS  routines  which  create  a  field  of  alphanumeric  text 
containing  the  scene  and  data  base  parameters.  The  text  field  is 
output  by  a  separate  DICOMED  control  routine  adjacent  to  the  scene 
image.  The  operation  of  each  of  the  text  generation  routines  will  be 
described  and  the  input/output  variables  and  arrays  will  be  iden¬ 
tified.  The  routines  documented  in  this  subsection  are: 

1.  DATACHAR. FOR 

2.  DICCHAR. FOR 

3.  CHCONV. FOR 

Included  will  be  inputs  and  outputs  from  an  example  execution  of 
the  data  base  test  routine  in  EGLPICMAN. FOR.  The  routine  used  for  the 
DICOMED  control  in  the  example  is  from  DICCAMMAN. FOR  and  the  data  base 
used  is  from  EGLDATA.FOR.  Program  listings  for  DATACHAR. FOR, 
DICCHAR. FOR,  CHCONV. FOR,  DICCAMMAN. FOR,  EGLPICMAN. FOR,  AND  EGLDATA.FOR 
are  included  in  Appendices  DB,  DC,  DD,  DE,  DF,  DG  respectively. 

OPERATIONAL  OVERVIEW 

The  image  parameter  text  generation  routines  are  subroutines 
which  must  be  called  by  a  separate  DICOMED  control  routine.  Either 


IMOV 

IFLT 

I  PASS 


0 

1 

0 

1 


IAN 


0 

1 
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the  scene  generation  control  routine  or  the  OICOMED  control  routine 
must  transfer  the  data  base  parameters  to  the  text  generation 
routines.  The  text  generation  routines  then  output  the  text  adjacent 
to  the  scene  image. 

The  text  routines  generate  the  output  text  for  the  DIC0f£D  con¬ 
trol  routine  through  the  manipulation  of  three  arrays,  ICH,  ASCH,  and 
ITEXT.  ICH,  dimensioned  as  BYTE  ICH(7,9,51),  contains  the  character 
set  consisting  of  51  characters.  Each  character  s  7  elements  wide  by 
9  elements  in  length.  ASCH,  dimensioned  as  BYTE  ASCH(17,39),  defines 
the  entire  text  field  as  17  character  spaces  wide  by  39  character 
spaces  in  length.  For  ASCH(I,J),  an  index  value  of  I  equal  to  1 
defines  the  leftmost  and  an  I  equal  to  17  defines  the  rightmost  column 
of  the  text  field.  An  index  value  of  J  equal  to  1  defines  the  top  row 
of  the  text  field.  ASCH  is  coded  with  the  decimal  ASCII  code  for  each 
character  in  the  text  field.  ITEXT,  dimensioned  as  BYTE  ITEXT(170, 
512),  is  the  output  array  from  the  text  generation  routines.  For 
ITEXT(I,J),  index  values  of  I  equal  to  1  and  I  equal  to  170  defines 
the  leftmost  and  rightmost  elements  of  the  first  and  last  character 
spaces  in  row  J,  respectively,  and  index  values  of  J  equal  to  1  and  J 
equal  to  512  defines  the  top  and  bottom  elements  of  the  first  and  last 
character  spaces  in  column  I,  respectively.  ITEXT  defines  each 
element  of  the  7  by  9  characters  identified  by  ASCH  as  an  array 
element  of  ITEXT  over  the  entire  text  field. 

The  character  ASCII  codes  of  ASCH,  for  the  text  which  is  fixed, 
and  the  character  set  of  ICH  are  initialized  via  DATA  statements. 
Array  ASCH  is  loaded  with  all  of  the  input  text  variables  by  either 
the  image  generation  control  routine  or  the  DICOMED  control  routine. 
The  text  generation  routines  input  array  ASCH  via  a  common  block  of 
memory.  ITEXT  is  then  created  from  ASCH  by  accessing  the  character 
ASCII  code  in  each  element  of  ASCH  and  filling  the  corresponding 
elements  of  ITEXT  with  the  character  of  ICH  pointed  to  by  ASCH.  As  an 
example,  let  ASCH  have  as  element  ASCH(3,20)=81.  This  defines,  in  the 
text  field,  that  the  character  space  3rd  from  left  to  right  and  the 
20th  from  top  to  bottom  has  the  decimal  ASCII  code  81,  which  is  the 
letter  "Q".  The  63  elements  corresponding  to  that  character  space  in 
ITEXT  are  filled  with  the  7  by  9  element  character  construction  for 
"Q"  as  defined  by  ICH.  Once  ITEXT  is  filled  from  ASCH,  control  is 
returned  to  the  DICOMED  control  routine  which  uses  ITEXT  to  print  the 
text  adjacent  to  the  scene  image.  Figure  51  gives  a  functional  block 
diagram  of  the  text  generation  routines  operation  in  conjunction  with 
the  image  generation  routines. 
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Figure  51.  Flowchart  of  Image  Generation  and  Text  Routine  Integration. 


DATACHAR. FOR 

The  FORTRAN  file  DATACHAR. FOR  contains  no  executable  statements. 
DATACHAR. FOR  has  only  three  DATA  statements,  which  are  used  to  init¬ 
ialize  the  character  set  array  ICH  and  the  character  text  array  ASCH. 
The  statements  are  executed  in  Subroutine  DICCHAR  via  the  FORTRAN 
statement  INCLUDE  DATACHAR. FOR.  Due  to  the  size  of  ICH  and  the  con¬ 
straint  placed  upon  the  FORTRAN  code  by  the  DEC  FORTRAN  IV  PLUS 
compiler  limit  of  a  maximum  of  99  lines  of  continuation,  ICH  must  be 
initialized  in  two  parts.  This  is  performed  by  dimensioning  ICH1 
(7,9,22)  and  1CH2(7,9,29)  and  equivalencing  them  to  ICH  via  the 
FORTRAN  statement  below: 

EQUIVALENCE  (ICH, ICH1) ,( ICH( 1 , 1 , 23) , ICH2) 

This  allows  the  use  of  a  DATA  statement  for  ICH1  and  a  DATA  statement 
for  ICH2  to  accomplish  the  initialization  of  ICH. 

The  DATA  statements  for  ICH1  and  ICH2  in  DATACHAR. FOR  initialize 
each  of  the  51  characters  of  ICH(7,9,51)  by  defining  each  element  in 
each  character  as  either  -1  or  0.  The  constants  -1  and  0,  expressed 
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ji 


in  byte  form,  represent  the  maximum  and  minimum  intensities,  respec¬ 
tively,  that  can  be  output  by  the  DICOMED.  A  -1  designates  white  and 
0  designates  black  as  seen  on  photographs  produced  on  the  DICOMED. 
The  character  set  defined  by  ICH  is  shown  in  Appendix  DH  with  each 
character  having  an  asterisk  for  a  displayed  element  and  a  space  for 
elements  not  being  displayed.  The  character  constructions  shown  in 
Appendix  DH  are  used  since  their  low  degree  of  similarity  among  char¬ 
acters  with  similar  symbols  leads  to  a  high  degree  of  recognition. 
Also,  shown  in  Appendix  DI  are  some  of  the  possible  variations  in 
letter  constructions. 

The  third  DATA  statement  in  DATACHAR.FOR  initialized  ASCH  with 
the  text  information  which  is  fixed.  ASCH  is  initialized  with  the 
decimal  ASCII  code  for  each  character  in  the  fixed  text  and  with  the 
decimal  number  0  for  character  spaces  which  are  to  be  left  blank. 
Figure  52  shows  the  array  ASCH  after  initialization. 
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0  83 
0  0 


0  0  0 
0  0  0 
0  0  0 
88  61  0 
89  61  0 

65  61  0 

66  61  0 

67  61  0 

78  67  82 

0  0  0 
0  0  0 

83  73  90 

84  89  80 
72  79  82 
86  69  82 

0  0  0 
0  84  82 

83  73  90 

84  89  80 
72  79  82 
86  69  82 

0  0  0 

71  82  65 

83  73  90 

84  89  80 

72  79  82 
86  69  82 

0  0  0 
0  0  0 
83  67  65 
65  88  73 
0  0  0 
0  0  0 
83  76  79 
83  73  90 
0  0  0 

85  78  0 

70  73  82 
83  69  67 


0  46 
0  46 
0  46 
61  0 
0  0 
84  69 
69  61 
69  61 
90  61 
84  61 
0  0 
69  69 
69  61 
69  61 
90  61 
84  61 
0  0 

83  83 
69  61 

69  61 
90  61 

84  61 
0  0 
0  7b 

76  69 
83  0 

0  0 

70  73 
80  69 
69  61 

0  0 
83  72 
83  84 
79  78 


82  82 
0  0 


83  47 
0  0 


47  76 
0  0 


65  75 
61  0 
83  84 
0  0 
69  76 
61  0 
0  0 
0  0 
65  68 
58  0 

68  58 


65  73 
0  0 


82  79 
0  0 


69  65 
0  0 


0  0 
0  0 


67  75  83 
0  0  0 


86  69  83 
0  0  0 
0  0  0 


82  61 
0  0 
68  83 
0  0 
0  0 
0  0 
79  87 
0  0 
0  0 


0  0 
0  0 


Figure  52.  ASCII  Codes  for  Text  Initialized  in  ASCH( 1=1-17, J=l- 39) 
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01CCHAR. FOR 

The  FORTRAN  file  DICCHAR.FOR  contains  subroutine  DICCHAR  which 
performs  the  character  text  generation.  Subroutine  DICCHAR  requires 
as  input,  from  an  external  source,  all  of  the  text  variables  and 
arrays  listed  in  Table  12  for  the  generation  of  the  text  field. 


TABLE  12.  TEXT  VARIABLES 
INPUT  VARIABLES: 

NAME  TYPE  COMMENT 


A 

REAL 

Sun  Vector  X  Component 

B 

REAL 

Sun  Vector  Y  Component 

C 

REAL 

Sun  Vector  Z  Component 

IX 

1*4 

X  Position  of  Scene  Center 

JY 

1*4 

Y  Position  of  Scene  Center 

NCR 

1*2 

Database  Coordinate  Scale  Factor 

LSCAL 

1*4 

Lake  Height  Scale  Factor 

IWAVSCAL 

1*4 

Lake  Coordinate  Scale  Factor 

INPUT  ARRAYS: 


NAME  TYPE  COMMENT 


FL0SL(8)  CHAR*1  Field  Scale  Factor 

FLDS2(9)  CHAR*1  Field  Size  Factor 

GRAH0R(9)  CHAR*1  Grass  Ground  Scale  Factor 

GRASZ(9)  CHAR*1  Grass  Noise  Filter  Size 

GRATP(9)  CHAR*1  Grass  Noise  Type 

GRAVER(9)  CHAR*1  Grass  Height  Factor 

R0CH0R(9)  CHAR*1  Rock  Ground  Scale  Factor 

R0CSZC9)  CHAR*1  Rock  Noise  Filter  Size 

R0CTP(9)  CHAR*1  Rock  Noise  Type 

R0CVER(9)  CHAR*1  Rock  Height  Factor 

SUNFT(8)  CHAR*1  Sun  Shadow  First  Factor 

SUNSD(7)  CHAR*1  Sun  Shadow  Second  Factor 

SUNSH(3)  CHAR*1  Sun  Shadow?  yes  or  no 

TERH0R(9)  CHAR*1  Terrain  Ground  Scale  Factor 
TERSZ(9)  CHAR*1  Terrain  Noise  Filter  Size 

TERTP(9)  CHAR*1  Terrain  Noise  Type 

TERVER(9)  CHAR*1  Terrain  Height  Factor 

TITLE(15)  CHAR*1  Title  Character  String 


All  of  the  variables  and  arrays  input  by  subroutine  DICCHAR  are 
either  input  from  the  user,  computed  by  either  the  DICOMED  control 
routine  or  the  image  generation  control  routine,  or  defined  by  the 
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data  base.  The  variables  and  arrays  are  of  two  types,  character 
string  and  numeric.  The  numeric  variables  must  be  converted  to 
character  string  arrays  via  'calls'  to  subroutine  CHCONV.  The  text 
input  variables  which  are  character  strings  are  loaded  into  their 
positions  in  ASCH  by  the  routine  that  input  the  text  variables  via  the 
following  equivalence  statement  found  in  the  input  routine. 

EQUIVALENCE  (ASCH(7,4) ,XP0S(1)) , 

*  (ASCH(7,5),YP0S(1)),(ASCH(8,6),SUNA(1)), 

*  (ASCH(8,7),SUNB(1)),(ASCH(8,8),SUNC(1)), 

*  (ASCH(8 , 9) ,NCRCH( 1) ) , (ASCH(9 , 12) ,TERSZ( 1) ) , 

*  (ASCH(9 , 13) ,TERTP(1) ) , (ASCH(9 , 14) ,TERH0R( 1)) , 

*  ( ASCH(9 , 15) , TERVER(l)) , ( ASCH(9 , 18) , ROCSZ(l) ) , 

*  (ASCH(9,19),R0CTP(1)),(ASCH(9,20),R0CH0R(1)), 

*  ( ASCH(9 ,21 ) , R0CVER( 1) ) , (ASCH( 9,24) ,GRASZ( 1) ) , 

*  (ASCH(9,25),GRATP(1)),(ASCH(9,26),GRAH0R(1)), 

*  (ASCH(9,27) ,GRAV£R(1) ) ,(ASCH( 10,30) ,LAKSC(1)) , 

*  ( ASCH( 13,31), LAKAS( 1) ) , ( ASCH( 10,34) , FLDSL( 1) ) , 

*  ( ASCH( 9 , 35 ) , F LDSZ ( 1 ) ) , ( ASCH( 14,37), SUNSH( 1 ) ) , 

*  ( ASCH( 10,38), SUNFT(l)) , ( ASCH( 11,39), SUNSD( 1) ) , 

*  (ASCH(2,1) ,TITLE(1)) ,(ASCH(2,2) .CHDATE) , 

*  (ASCH(12,2) ,CHTIM) 

The  converted  character  strings  are  loaded  in  their  positions  in  ASCH 
by  the  use  of  an  identical  FORTRAN  equivalence  statement  by  subroutine 
DICCHAR  to  the  equivalence  statement  described  above. 

Figure  53  shows  array  ASCH  with  the  ASCII  codes  for  each  fixed 
initialized  character  translated  into  its  alphanumeric  symbol  and  the 
input  character  strings  in  their  corresponding  positions. 
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1  2  3  4  5  6  7  8  9  10  11  12  13  14  15  16  17 


1  (— * 
2  (— - 
3  X 

5  Y 

6  A 

7  B 

8  C 

9  N 
10 

11 

12  S 

13  T 

14  H 

15  V 

16 

17 

18  S 

19  T 

20  H 

21  V 

22 

23  G 

24  S 

25  T 

26  H 

27  V 

28 

29 

30  S 

31  A 

32 

33 

34  S 

35  S 

36 

37  S  U 


. TITLE(15) . 

CHDATE*9 . )  (-- 

=  ( - XP0S(9) — 

=  ( . YP0S(9) — 

=  .  ( . SUNAC9) 

=  .  ( . SUNB(9) 

=  .  ( . SUNC(9) 

C  R  =  ( . NCRCH(9)- 

TERRA  I  N 


CHTIM*5 - ) 

- ) 

- ) 

. ) 

. ) 

. ) 

. ) 


s 

I 

Z 

E 

=  ( . 

- TERSZ(9)- 

T 

Y 

P 

E 

=  ( . 

- TERTP(9)- 

H 

0 

R 

Z 

=  ( . 

- TERH0R(9)- 

V 

E 

R 

T 

=  ( . 

- TERVER(9)- 

T 

R 

E 

E  S  /  R 

0  C  K  ! 

S 

I 

Z 

E 

=  ( - 

. R0CSZ(9)- 

T 

Y 

P 

E 

=  ( . 

- R0CTP(9)- 

H 

0 

R 

Z 

s  ( - 

- R0CH0RC9) 

V 

E 

R 

T 

=  (" - 

. R0CVER(9) 

G 

R 

A 

S 

S  /  L  E 

A  V  E 

S 

I 

Z 

E 

=  ( - 

. - uRASZ(9) 

T 

Y 

P 

E 

=  (— - 

. GRATP(9) 

0  R  Z  = 
E  R  T  = 


-GRAH0R(9)- 

-GRAVER(9)- 


LAKE 

C  A  L  E  =  ( . 

X  I  S  S  T  R  = 


F  I  E  L  0 
L  0  P  E  =  (* 
I  Z  E  =  (-— 


■LAKSC(8) . ) 

(-LAKAS(5) . ) 


— FLDSL(8)- 
■FLDSZ(9)— 


N  SHADOW 

I  R  S  T  :  ( . 

ECONO:  (- 


•SUNFT(8)- 

-SUNSD(7)- 


Figure  53.  Array  A$CH(I=l-17,J=l-39)  with  Character  Strings 
Relative  Positions. 
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Subroutine  DICCHAR  executes  the  generation  of  the  image  parameter 
text  by  performing  the  function  illustrated  in  Figure  54. 
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The  FORTRAN  code  is  shown  below  for  an  example  of  an  integer 
variable  conversion  'call'  and  for  a  real  variable  conversion 
call.  The  integer  variable  being  converted  is  IX  and  the  real 
variable  being  converted  is  A. 

C 

C . 

C 

C  INTEGER  CONVERSION  EXAMPLE  FROM  SUB  DICCHAR 

C 

IFGT=0  !  SET  CONVERSION  TYPE  FLAG  FOR  INT. 

ITST=IX  !  IX  IS  VARIABLE  FOR  CONVERSION 

CALL  CHCONV  !  CALL  CONVERSION  SUBROUTINE 
IF(ISNT.EQ.l)  ASCH(6,4)=45  !  NEG. SIGN 

IF(ISNT.EQ.O)  ASCH(6,4)=0  !  NO  SIGN  FOR  POS. 

DO  10  K=l,9  !  LEADING  ZERO  SUPPRESS  IDENT 

IND=K 

IF(BCHTST(IND).NE.48)  GOTO  11 

10  CONTINUE 

11  KK=0 

DO  12  K=IND,9  !  FILL  ASCH  VIA  EQUIV. 

KK=KK+1 

12  XPOS(KK)=CHTST(K) 

DO  13  K=KK+1,9 

13  XPOS(K)=SUNA(10)  !  SUNA(IO)  IS  0  CONSTANT 

C 

C . 

C 

C  REAL  CONVERSION  EXAMPLE  FROM  SUB.  DICCHAR 

C 

IFGT=1  !  SET  CONVERSION  TYPE  FLAG 

RTST=A  !  A  IS  VARIABLE  FOR  CONVERSION 

CALL  CHCONV  !  CALL  CONVERSION  SUBROUTINE 
IF(ISNT.EQ.l)  ASCH(6,6)=45  !  NEG. SIGN 
IF(ISNT.EQ.O)  ASCH(6,6)=0  !  NO  SIGN  FOR  POS. 

DO  40  K=7,l,-1  !  TRAILING  ZERO  SUPPRESS  IDENT 
IND=K 

IF(BCHTST(K).NE.48)  GOTO  41 


40 

CONTINUE 

41 

KK=0 

DO  42  K=1,IND  ! 
KK=KK+1 

FILL  ASCH  VIA  EQUIV. 

42 

SUNA( K)=CHTST ( K) 

DO  43  K=KK+1 , 9 

43 

C 

c— — 

SUNA( K)=SUNA( 10 ) 

!  SUNA(IO)  IS  0  CONSTANT 

C 
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2.  The  VAX/VMS  system  subroutines  DATE  and  TIME  are  'called'  to 
generate  the  character  strings  for  the  date  and  time  in  the 
text  field. 

3.  ITEXT  is  filled  with  the  character  constructions  of  ICH  for 
each  character  is  ASCH.  The  characters  of  ICH  are  arranged 
in  order  of  ascending  ASCII  codes  such  that  only  a  shift  of 
decimal  42  is  needed  to  determine  the  character  index  of  ICH, 
which  is  the  third  index  "z"  in  ICH(x,y,z),  from  the  char¬ 
acter's  decimal  ASCII  code  in  ASCH.  Once  the  third  index  of 
ICH  is  determined,  the  character's  7  by  9  construction  is 
filled  in  the  appropriate  elements  of  ITEXT.  Each  character 
space  in  ASCH  has  a  corresponding  10  element  wide  by  13 
element  long  space  in  ITEXT.  This  leaves  3  elements  of  ITEXT 
for  spacing  between  the  characters  and  4  elements  of  ITEXT 
for  spacing  between  text  field  lines.  If  the  input  character 
string  contains  spaces,  which  have  decimal  ASCII  code  32,  as 
ITEXT  is  being  created,  the  characters  in  ASCH  which  are 
spaces  are  changed  to  decimal  0,  since  no  construction  for  a 
space  occurs  in  ICH.  When  an  element  of  ASCH  has  the  value 
0,  all  7  by  9  corresponding  elements  of  ITEXT  are  assigned 
the  value  0.  In  the  case  where  the  text  generation  routines 

are  linked  with  an  image  generation  routine  which  allows  for  T1’ 

the  generation  of  more  than  one  scene  during  each  execution,  Vi 

the  array  ITEXT  is  generated  for  the  first  image  and  then  for 
subsequent  scenes  only  those  parameters  which  can  change  are 
updated.  Array  ITEXT  is  structured  such  that  the  scene 
parameters,  which  may  change  for  each  scene,  are  filled  in 
ITEXT  prior  to  the  data  base  parameters,  which  will  not 
change  for  each  execution  of  the  scene  generation  routines. 

ITEXT  is  created  via  a  nested  FORTRAN  DO  loop  whi;h  fills 
each  text  line  in  ITEXT  from  the  top  to  the  bottom  of  the 
text  field.  Therefore  ITEXT  can  be  filled  and  updated  using 
a  variable  to  designate  the  last  line  of  ITEXT  to  be  filled. 

This  ending  line  number  variable,  called  IEND3,  is  initial¬ 
ized  to  39  in  the  DATA  statement,  DATA  IEND3/39/,  for  the 
first  complete  generation  of  ITEXT. 

After  the  DO  loop  is  completed,  IEND3  is  assigned  the  value  9  which 
allows  for  the  updating  of  the  scene  parameters  in  lines  1  through  9 
of  the  text.  The  FORTRAN  code  which  creates  ITEXT  is  listed  below. 

C 

C . . - . . 

c 

DO  100  Kl=l, IEND3 
DO  200  K2=l,17 

IF(ASCH(K2,K1). EQ. 32)  ASCH(K2,K1)=0 
K3DEX=(K1-1)*13  +  2 
K4DEX=(K2-1)*10 
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ICHDEX=ASCH(K2,Kl)-42 
DO  300  K3=l , 9 
DO  300  K4=l,7 

IF(ASCH(K2,K1).  EQ.O)  THEN 
ITEXT( K4+K4DEX , K3+K3DEX)=0 
ELSE 

ITEXT ( K4+K4DEX , K3+K3DEX )= 
ICH(K4 , K3 , ICHDEX) 

ENDIF 


300 

CONTINUE 

200 

CONTINUE 

100 

CONTINUE 

IEND3=9 

C 

C- 

C 


4.  Return  to  DICOMED  control  routine  and  pass  output  array  ITEXT 
via  the  common  block  of  memory  C0MM0N/CHR3/  ITEXT. 

CHCONV. FOR 

The  FORTRAN  file  CHCONV. FOR  contains  subroutine  CHCONV  which 
performs  the  conversion  of  integer  variables  to  character  strings  and 
the  conversion  of  real  variables  of  magnitude  less  than  one  to  char¬ 
acter  strings.  Subroutine  CHCONV  is  only  called  by  subroutine  DICCHAR 
and  returns  to  only  subroutine  DICCHAR. 

All  of  the  input  and  output  variables  used  by  Subroutine  CHCONV 
are  listed  in  Table  13. 


TABLE  13.  CHARACTER  CONVERSION  VARIABLES 


INPUT  VARIABLES: 

NAME  TYPE  COMMENT 


IFGT  1*4  Flag  for  Real  or  Integer  Convert 

ITST  1*4  Integer  Variable  for  Conversion 

RTST  1*4  Real  Variable  for  Conversion 

OUTPUT  ARRAYS  AND  VARIABLES: 

NAME  TYPE  COMMENT 


BCHTST  BYTE  ASCII  String  from  Conversion 
ISNT  1*4  Sign  Flag  for  Conversion 
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Subroutine  CHCONV  performs  the  conversion  from  numeric  variables 
to  character  strings*  by  performing  the  functions  illustrated  in 
Figure  55. 


Figure  55.  Function  Flowchart  for  Subroutine  CHCONV. 

Each  function  of  Figure  55  is  detailed  as  follows: 

A.  The  sign  flag,  ISNT,  and  the  output  array,  BCHTST,  are 
cleared  to  zero. 

B.  Conversion  type  flag,  IFGT,  is  tested  to  transfer  control  to 
the  integer  conversion  section  of  subroutine  CHCONV  if  IFGT 
equals  0  or  to  the  real  conversion  section  of  subroutine 
CHCONV  if  IFGT  equals  1. 

C.  The  conversion  variable  is  tested  for  sign  and  the  sign  flag 
ISNT  is  assigned  the  value  of  1  if  the  conversion  variable  is 
negative  or  0  if  the  conversion  variable  is  positive. 
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D.  The  conversion  is  then  performed.  For  converting  integer 
values,  the  digit  corresponding  to  the  10  raised  to  the  "i" 
power,  called  D;  is  given  by 

Di  =  INT  [V/101]  -  INT  [V/101+1]  *  10  (78) 

where  "V"  is  the  integer  value  being  converted  and  INT[X] 
defines  the  operation  of  taking  the  integer  value  of  argument 
"X".  The  FORTRAN  code  which  executes  the  conversion  for 
integer  variables  is  listed  below. 


ITST=IABS(ITST) 

IR1=ITST 
IR2=ITST 
DO  10  1=1,9 

IR1=IR1/10 

NUtt=IR2-IRl*10 

IR2=IR2/10 

BCHT ST( 10- 1 )=NUM+48  !  48  ADDED  TO  GET  ASCII 

CONTINUE 


The  conversion  is  carried  out  by  first  taking  the  magnitude 
of  the  variable  to  be  converted,  called  ITST,  and  assigning 
it  to  two  local  variables,  called  IRi  and  IR2.  A  loop,  with 
loop  counter  I,  is  entered  which  first  takes  the  value  of  IRI 
and  assigns  it  the  value  of  IR1/10,  where  an  integer  divide 
is  used.  The  digit  which  occupies  the  (1-1)  power  of  10, 
called  NUM,  is  determined  by  subtracting  IR1*10  from  IR2. 
IR2  is  integer  divided  by  10  to  prepare  for  the  next  pass 
through  the  loop.  The  ASCII  code  for  the  digit  in  NUM  is 
calculated  by  adding  decimal  48  to  NUM.  This  value  is  stored 
in  BCHTST(IO-I).  Nine  passes  through  the  loop  determines  the 
string  of  9  characters  which  represents  the  value  of  ITST. 
If  the  value  of  ITST  is  less  than  9  digits  leading  spaces  are 
created  in  BCHTST. 

For  real  variables  of  magnitude  less  than  one,  the  value  of 
the  "-i"  digit,  called  D.  is 

D.  =  INTCVnO1]  -  INTCVMO1"1]  *  10  (79) 

where  "V"  is  the  real  variable  being  converted  and  INT[X]  is 
as  defined  above.  The  FORTRAN  code  which  executes  the  con¬ 
version  is  listed  below. 
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C 

C . . . 

c 

RTST=ABS(RTST) 

IR1=0 

DO  20  1=1,7 
RTST=RTST*10 
IR1=IR1*10 
NUM=RTST-IR1 

BCHT ST ( I )=NUM+48  !  48  ADDED  TO  GET  ASCII 

IRI=RT$T 
20  CONTINUE 
C 

C . 

c 

The  conversion  is  carried  out  by  first  taking  the  magnitude 
of  the  fraction  to  be  converted,  called  RTST.  The  local 
variable  IR1  is  initialized  to  0.  This  initialization  sets 
the  value  of  IR1  equal  to  the  integer  portion  of  RTST.  A 
loop,  with  loop  counter  I,  is  entered  which  shifts  RTST  and 
IR1  one  digit  to  the  left  by  multiplying  both  RTST  and  IR1  by 
10.  This  sets  IR1  equal  to  the  integer  portion  of  RTST  with 
the  exception  that  the  units  digit  of  IR1  is  guaranteed  to  be 
zero.  Then  the  10  raised  to  the  (-1)  power  digit  of  RTST, 
called  NUM,  can  be  determined  by  subtracting  IR1  from  RTST. 
Decimal  48  is  added  to  NUM  to  get  the  ASCII  code  for  the 
digit  in  NUM  and  this  value  is  assigned  to  BCHTST(I).  IR1  is 
then  assigned  the  value  of  RTST  in  order  to  set  up  for  the 
next  pass  through  the  loop.  The  conversion  loop  is  executed 
7  times  to  obtain  7  digits  of  the  real  variable  in  RTST. 

E.  Subroutine  CHC0NV  returns  to  subroutine  DICCHAR  and  passes 
the  character  string  output  array  BCHST(9)  and  sign  flag  ISNT 
to  subroutine  DICCHAR  via  the  common  block  of  memory  defined 
by  the  following  FORTRAN  statement:  C0MM0N/C0NV/  IFGT,ITST, 
RTST, BCHTST, ISNT. 

OPERATION  EXAMPLE 

The  text  generation  routines  with  an  example  of  the  DIC0MED 
outputs  are  illustrated  by  using  the  following  routines,  EGLPICMAN. 
FOR,  EGLDATA.FOR,  DICCAMMAN. FOR,  in  conjunction  with  the  text  gener¬ 
ation  routines  of  DATACHAR. FOR,  DICCHAR. FOR,  and  CHC0NV.F0R. 

The  FORTRAN  file  EGLPICMAN. FOR  contains  program  EGLPICMAN  which 
is  a  data  base  test  program.  Program  EGLPICMAN  generates  a  512  by  512 
resolution  scene  by  accessing  the  data  base  once  for  each  of  the  (512, 
512)  display  locations.  This  results  in  an  image  which  has  the  effect 
of  viewing  the  data  base  from  infinity.  The  relative  viewing  altitude 
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is  determined  by  the  data  base  sample  point  spacing,  called  NCR. 
Program  EGLPICMAN  takes  as  input  the  parameters  defined  in  Table 
14. 


TABLE  14.  DATA  BASE  TESTING  PARAMETERS 


NAME 

TYPE 

COMMENT 

IX 

1*4 

X  OFF-SET  TO  SCENE  CENTER 

JY 

1*4 

Y  off-set  to  scene  center 

NCR 

1*2 

Sample  Point  Spacing 

TZDEG 

REAL 

Polar  Sun  Angle  From  Z  Axis 

TXDEG 

REAL 

Cylindrical  Sun  Angle  From  X  Axis 

Program  EGLPICMAN  generates  a  512  by  512  by  3  array  called  IBUFX  which 
contains  the  three  color  reflectance  values  for  the  scene  that  is  used 
by  subroutine  BPDICCAM  to  create  the  DICOMED  scene  image. 

The  FORTRAN  file  DICCAMMAN. FOR  contains  subroutine  BPDICCAM  which 
is  a  DICOMED  output  routine  for  the  scene  generated  in  program 
EGLPICMAN.  Subroutine  BPDICCAM  takes  the  text  array  ITEXT(170,512) 
and  fills  the  neutral  output  array  NEUTRAL  (682,512)  as  shown  below. 

C 

C . 

C 

C 

DO  114  KSR=1 , 512 
DO  114  KSM=1 , 170 

NEUTRAL(KSM+512,513-KSR)'ITEXT(KSM,KSR) 

114  CONTINUE 
C 
C 

C . 

C 


The  array  NEUTRAL  is  then  output  to  the  DICOMED  image  recorder 
along  with  the  color  scene  array  IBUFX. 

In  the  following  example  the  commands  used  are  valid  for  execu¬ 
tion  of  a  DEC  VAX11/780  using  VAX/VMS  operating  system.  The  compiler 
being  called  is  the  DEC  FORTRAN  IV  PLUS  compiler.  Listed  below  are 
the  necessary  compile  and  link  commands: 
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$  FORTRAN  EGLPICMAN 
$  FORTRAN  EGLDATA 
$  FORTRAN  DICCAMMAN 
$  F0RTRAN/C0NT=99  OICCHAR 
$  FORTRAN  CHCONV 

$  LINK/EXE=EGLPICMAN  EGLPICMAN, EGLDATA, DICCHAR,  - 
CHCONV, DICCAMMAN, DRAO: [UTILITY. DICOMED]BLKDAT,  - 
DRAO: [UTILITY. DICOMED]DICOMED/LIB 


As  an  example  of  the  user  conversation  with  the  text  routine,  a 
sample  execution  of  EGLPICMAN.EXE  as  generated  from  the  routines 
discussed  is  shown.  The  user  responses  are  shown  enclosed  in  bold¬ 
face,  and  are  followed  by  hitting  "RETURN". 

$  RUN  EGLPICMAN 
READING  NOISE 
DONE  READING  NOISE 

WOULD  YOU  LIKE  THE  IMAGE  PARAMETER  TEXT  GENERATES? 

YES=1,  N0=0 

1 

ANSWER  THE  FOLLOWING  QUESTIONS  WITH  A  CHARACTER 
STRING  OF  LENGTH  SPECIFIED  BY  (LENGTH) 

ENTER  TITLE  (15) 

TEST  RUN 

ENTER  TERRAIN  NOISE  PARAMETERS 
SIZES  (9) 

512,512 
TYPES  (9) 

PARB  F=  5 

HORIZONTAL  SCALES  (9) 

733,2483 

VERTICAL  SCALES  (9) 

8  31 

ENTER  TREES/ROCKS  NOISE  PARAMETERS 
SIZES  (9) 

512,512 
TYPES  (9) 
rpgi  CRF1 

HORIZONTAL  SCALES  (9) 

7  ,  31 

VERTICAL  SCALES  (9) 

0.5  ,  2.5 

ENTER  GRASS/LEAVES  NOISE  PARAMETERS 
SIZES  (9) 

512,512 
TYPES  (9) 

UNIFORM 
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HORIZONTAL  SCALES  (9) 

1  ,  31 

VERTICAL  SCALES  (9) 

0.03,0.12 

ENTER  FIELD  SLOPE  (8) 

31,10=77 

ENTER  FIELDS  SIZE  (9) 

25  ,  31 

IS  SUN  SHADOW  PRESENT  IN  THE  DATA  BASE?  YES  OR  NO 
NO 

TYPE  XOFF-SET  TO  SCENE  CENTER 
25575 

TYPE  YOFF-SET  TO  SCENE  CENTER 
298750 

TYPE  SAMPLE  POINT  SPACING, AN  INTEGER 
128 

Type  the  polar  sun  angle  from  the  Z  axis  (DEGREES) 
30 

Type  the  cylindrical  sun  angle  from  the 
X  axis  t' yard  the  Y  axis  (DEGREES) 

120 

X,Y=  25575  298750  SCALE=  128  NOISE?=  0 
ST0P=1,  CONTINUED 
0 

SHALL  WE  MAKE  A  PICTURE?  (YES=1) 

1 

/ 

DATA  WILL  BE  OUTPUT  TO  THE  DICOMED 
ENTER  TYPE  OF  FILM:  P0LAR0ID=0;  35mm=l 
0 

ENTER  THE  NUMBER  OF  DICOMED  PASSES 

2 

CREATING  TEXT  ARRAY 
SENDING  NEUTRAL  DATA  TO  THE  DICOMED 
SENDING  GREEN(1),RED(2),BLUE(3)=  1 

SENDING  GREEN(1),RED(2),BLUE(3)=  2 

SENDING  GREEN(1),RED(2) ,BLUE(3)=  3 

PASS  1  COMPLETED 

SENDING  NEUTRAL  DATA  TO  THE  DICOMED 
SENDING  GREEN(l) ,RED(2) ,BLUE(3)=  1 

SENDING  GREEN(1),RED(2),BLUE(3)=  2 

SENDING  GREEN(1),RED(2) ,BLUE(3)=  3 

PASS  2  COMPLETED 

THE  END 

DO  YOU  WANT  TO  DO  ANOTHER  PICTURE? (YES=1) 

0 

FORTRAN  STOP 
$ 
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Before  answering  the  11  $T0P=1 , CONTINUED"  with  a  "0"  the  OICOMED 
Image  Recorder  must  be  loaded  with  the  appropriate  film,  and  adjusted. 
The  image  shown  in  Figure  56  was  created  by  the  above  terminal  session 
example. 


Figure  56.  Image  Generated  by  Sample  Run. 
RECOMMENDATIONS 

The  image  parameter  text  generation  routines  require  the  user  to 
Input  the  text  information  concerning  the  data  base  scale  factors. 
Since  these  are  available  to  the  text  routines,  the  necessary  modifi¬ 
cations  to  the  existing  text  generation  routines  should  be  made  such 
that  program  data  can  be  obtained  from  the  data  base  routine  and  not 
inpi/t  by  the  user.  This  would  eliminate  the  need  for  the  user  to 
recall  the  data  base  scale  factors  at  execution  time.  The  sun  vector 
components  should  be  eliminated  from  the  display  and  the  sun  angles 
from  which  the  sun  vector  was  computed  should  be  displayed,  since  the 
sun  angles  are  more  easily  interpreted  than  the  sun  vector  components. 
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SECTION  VII 

CONCLUSIONS  AND  RECOMMENDATIONS 


The  purpose  of  this  section  is  to  summarize  the  accomplishments 
of  the  REAL  SCAN  research  effort,  to  define  tasks  which  can  impact  the 
development  of  real-time  computer  image  generation  of  display  limited 
resolution,  and  to  recommend  a  course  of  further  research. 

Accomplishments 

The  REAL  SCAN  research  effort  has  accomplished  the  following: 

1.  Developed  integer  algorithms  operating  on  an  integer  data 
base,  where  the  data  base  address  corresponds  to  the  data's 
location.  These  integer  algorithms  produce  display  limited, 
high  detail  scenes. 

2.  Demonstrated  that  a  hierarchial  ground  referenced  data  base 
is  possible.  Further,  the  averaging  of  detail  from  high 
detail  levels  of  the  hierarchy  to  low  detail  levels  yields 
CIG  pictures  and  movies  where  aliasing  or  image  defects  are 
difficult  to  ascertain.  Figure  57  illustrates  a  typical 
photo  of  the  block  city  data  base. 

3.  Demonstrated  negligible  aliasing  occurs  for  a  ground  refer¬ 
enced  data  base  when  calculated  via  integer  algorithms  at  the 
rate  of  about  four  ground  points  per  display  pixel. 
Appendix  M  and  Figure  57  illustrate  REAL  SCAN  aliasing. 


Figure  57.  One  Frame  of  City  Block  Motion  Picture. 
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4.  Demonstrated  the  size  of  the  ground  referenced  data  base  for 
a  hierarchial  system  only  adds  about  33.4%  additional  memory 
requirement  over  and  above  the  high  detail  memory.  Yet  the 
computational  load  is  limited  to  the  display  resolution.  The 
total  memory  required  for  an  80km  by  80km  gaming  area  is 
between  1011  to  1012  bytes.  Appendices  A  and  B  derive  memory 
requirements.  Section  II  develops  an  estimate  for  a  high 
detail  central  gaming  region  bounded  by  a  region  of  decreas¬ 
ing  resolution  extending  to  the  horizon. 

5.  Developed  OICOMED  routines  to  generate  pictures.  Section  VI 
and  Appendices  AA  through  CE  document  the  use  of  the  DICOMED. 

6.  Made  color  pictures  which  indicate  that  a  course  elevation 
map  with  a  superimposed  hierarchy  of  culture  file  detail  can 
produce  desired  high  detail  realistic  scenes.  Figure  58 
illustrates  a  3-D  image  of  terrain  produced  with  filtered 
noise  files.  A  course  elevation  map  with  superimposed  detail 
suggests  a  total  memory  requirement  of  10  to  1000  mega  bytes 
for  an  80Km  by  80Km  gaming  area. 


V 


Figure  58.  Simulated  Terrain  from  Noise  Files. 


7.  Developed  methods  to  simulate  terrain  texture  and  produce 
culture  files.  Further,  methods  have  been  developed  to  test 
the  simulated  culture  files.  Section  III  describes  the 
methods  of  filtering  and  redistributing  noise.  Appendix  BC 
lists  the  color  test  programs.  Appendices  HA  through  HC  list 
the  texture  production  software. 

8.  Developed  processing  requirements  and  architectural  con¬ 
straints  for  a  CIG  system  producing  display  limited  resolu¬ 
tion.  Section  V  develops  the  architectural  constraints  and 
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provides  a  REAL  SCAN  structure  based  on  parametric  con¬ 
straints  which  provide  a  modular  system.  Any  display  limited 
C1G  system  producing  512  x  512  anti-aliased  pixels  60  times 
per  second  will  require  an  integer  computation  rate  of  about 
5xl09  operations  per  sec.  It  is  estimated  that  current 
bit-slice  technology  requires  about  20  well  designed  cabinets 
to  achieve  5xlC9  operations  per  sec.  Since  this  world  based 
scan  line  geometry  does  not  match  the  display  geometry,  a 
simple  and  small  buffer  scheme  was  invented  to  accommodate 
the  geometry  transformation. 

9.  Developed  algorithm  improvements  for  speeding  up  the  scene 
calculation  process.  Appendices  E,  F,  G,  H,  J  and  0  document 
six  algorithm  improvements. 

10.  Developed  the  intermediate  plane  concept  which  impacts  all 
CIG  procedures.  This  concept,  derived  in  Appendix  C,  shows 
that  a  set  of  planes  "painted"  with  the  scene  volume  between 
two  adjacent  planes  and  projected  to  the  near  plane,  can 
substantially  reduce  the  real-time  scene  computational  load. 
The  intermediate  planes  are  established  at  distances  such 
that  resolvable  parallax  error  does  not  occur.  If  the  reso¬ 
lution  of  a  pixel  is  1/500,  and  if  resolvable  parallax  is 
1/1000,  then  the  number  of  intermediate  planes  required  is  no 
less  than  the  scaled  eye  displacement,  in  resolution  units, 
between  intermediate  plane  updates.  Hence,  if  the  scaled 
range  to  the  nearest  point  is  1000  and  if  1000  units  of 
motion  (i.e. ,  45°  change  with  respect  to  near  field  to  far 
field  parallax)  is  allowed  then  1000  intermediate  planes 
would  be  required  to  hold  approximately  10s  data  points 
(i.e.,  about  4  intermediate  plane  data  points  per  pixel). 
Hence,  if  the  relative  near  field  to  far  field  angular  dis¬ 
placement  per  1/60  sec  is  4.5°,  then  the  intermediate  planes 
need  be  calculated  at  only  0.1  the  rate  of  the  full  scene. 
Hence,  a  display  10  times  as  complex  as  current  technology 
can  be  obtained  by  means  of  a  modest  buffer  memory. 

11.  Two  black  and  white  movies  were  produced  by  flying  through 
the  block  data  base.  The  first  movie  produced  128  frames 
with  about  four  ground  points  per  pixel.  The  second  movie 
computed  the  intermediate  128  frames  for  a  total  of  256 
frames.  Since  the  block  data  base  repeats  over  a  4  x  4  grid, 
the  movie  frames  were  repeated  for  about  a  2-minute  movie. 
These  movies  did  not  show  noticeable  aliasing  problems. 

Advantages/Oisadvantages  of  REAL  SCAN 

The  REAL  SCAN  algorithms  have  been  derived  for  producing  scenes 
to  display  limited  resolution  in  as  simple  a  way  as  possible.  In  this 
regard  REAL  SCAN  computation  grows  linearly  with  display  capability. 
A  conventional  CIG,  without  Z  depth  buffer,  has  a  computational  load 
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basically  separable  into  two  parts:  (1)  detail  which  grows  linearly 
with  detail  and  (2)  sorting  which  grows  as  the  square  of  detail  using 
current  hardware  (i.e. ,  n  log  n  for  optimum  sorting  hardware).  More¬ 
over,  REAL  SCAN  uses  integer  arithmetic  whereas  conventional  CI6  uses 
floating  point  arithmetic.  Therefore,  REAL  SCAN  can  perform  most 
operations  with  scaled  12  bit  integers  or  24  bit  intermediate  results. 
Whereas,  floating  point  must  be  performed  with  48  bit  or  more  pre¬ 
cision,  even  though  a  512*512  display  requires  geometric  accuracy  of 
only  9  bits.  Further,  floating  point  operations  are  clearly  more 
complex  than  integer  operations,  requiring  number  alignment  before  and 
after  operations. 

However,  while  REAL  SCAN  appears  to  offer  an  advantage  for  com¬ 
puting  complex  scenes,  conventional  CIG  appears  to  offer  an  advantage 
for  computing  low  detail  scenes.  This  advantage  occurs  because  REAL 
SCAN  over  samples  all  visible  ground  points  to  eliminate  aliasing 
across  straight  line  boundaries,  while  conventional  CIG  just  deter¬ 
mines  the  line  in  screen  coordinates  and  then  the  anti-aliasing  gray 
scale  can  be  set  up  with  an  integer  multiply  and  add.  Hence,  if  one 
visible  floating  point  projection  and  line  determination  corresponds 
to  about  30  pixels  (i.e.,  give  or  take  a  factor  of  4)  then  conven¬ 
tional  CIG  will  require  less  hardware  for  real  time  simulated  scenes. 

If  conventional  real  time  CIG  were  to  use  intermediate  projection 
planes  in  place  of  a  Z  depth  buffer,  then  a  factor  of  approximately  10 
more  scene  complexity  should  be  available  for  negligible  extra 
hardware. 

The  current  REAL  SCAN  algorithms  do  not  allow  for  multiple  eleva¬ 
tion  scenes,  such  as  a  bridge,  or  an  Eiffel  Tower.  This  limitation 
must  be  removed  if  REAL  SCAN  is  to  compete.  However,  it  is  not  known 
whether  the  number  of  elevations  per  ground  point  should  be  limited, 
or  if  some  method  similar  to  conventional  planar  data  bases  should  be 
incorporated  to  compute  multi-elevation  data. 

REAL  SCAN  seems  to  offer  an  advantage  in  terms  of  the  number  of 
interpolation  algorithms  which  can  be  used.  Conventional  CIG  is 
limited  to  surfaces  of  quadratic  order  or  less  if  contours  are  to  be 
determined  from  a  fixed  number  of  points  independent  of  the  view 
vector.  However,  this  advantage  is  partially  offset  by  the  fact  that 
a  real  time  system  cannot  afford  a  complex  interpolation  algorithm. 
The  data  base  complexity  problem  is  still  open.  However,  all  conven¬ 
tional  CIG  suggests  that  a  data  base  which  is  limited  to  planes  yields 
cartoon  type  imagery  without  sufficient  detail  for  nap  of  the  earth 
flight  training. 

Any  CIG  system  which  models  the  world  via  available  DMA  data  is 
going  to  have  an  advantage  for  data  base  creation.  REAL  SCAN  forsees 
two  methods  of  ground  based  models.  Both  models  or  interpolation 
means  are  directly  derivable  from  DMA  via  computer.  It  appears  that 
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no  one  has  demonstrated  an  inexpensive  and  automated  means  for  produc¬ 
ing  a  high  detail  ground  model  made  up  of  planar  surfaces  when  the 
CIG's  computational  limits  are  imposed.  REAL  SCAN  does  not,  and 
cannot  have  this  problem,  since  the  interpolation  algorithms  are  tied 
to  fixed  grid  world  coordinates  (i.e. ,  interpolation  is  clearly 
bounded  in  terms  of  display  resolution).  Hence,  automated  data  base 
generation  appears  to  be  the  most  sizeable  advantage  that  REAL  SCAN 
has  over  conventional  CIG  especially  if  one  desires  display  limited 
resolution. 

The  use  of  intermediate  projection  planes  may  eliminate  this 
advantage  for  REAL  SCAN.  Suppose  one  utilizes  complex  ground  based 
interpolation  formula  automatically  derived  from  DMA  data.  Then  this 
data  can  be  regularly  projected  through  a  “view  point"  (i.e.,  where 
the  view  point  is  not  the  eye,  but  is  in  the  vicinity  of  the  eye)  to 
an  intermediate  projection  plane.  At  this  point  the  distinction 
between  conventional  CIG  and  REAL  SCAN  seems  to  vanish,  since  the 
scene  is  now  no  more  than  an  orderly  projection  (i.e.,  memory  mapping) 
from  the  intermediate  planes  to  the  screen  coordinates. 

All  CIG  forces  a  delay  time  between  the  time  when  a  view  point  is 
defined  and  when  the  scene  is  displayed.  The  shortest  delay,  would  be 
approximately  one  display  time,  if  one  assumes  the  view  point  is 
defined  at  the  beginning  of  the  display  cycle  and  the  last  displayed 
pixel  is  used  to  measure  the  delay.  Conventional  CIG  utilizes  delays 
of  three  or  more  field  times.  REAL  SCAN  needs  no  more  than  two  field 
times.  Further,  the  use  of  intermediate  projection  planes  suggests 
that  any  CIG  system,  conventional  or  REAL  SCAN,  can  be  produced  with 
the  optimal  single  field  display  time.  This  occurs  because  projection 
(i.e.,  memory  mapped  routing)  from  the  intermediate  planes  can  be 
initiated  directly  to  the  display  upon  calculation  of  the  current  or 
predicted  eye  point  for  the  display. 

Recommendations 

The  recommendations  for  further  CIG  research  are  separated  into 
three  categories,  data  base,  algorithms  and  architecture/ system  hard¬ 
ware.  It  appears  that  algorithm  development,  including  intermediate 
projection  planes  will  account  for  the  least  amount  of  effort  but 
yield  the  most  immediate  results.  Data  base  research  runs  the  range 
from  interpolation  formula  to  developing  culture  files.  The  comple¬ 
tion  of  the  data  base  efforts  will  require  a  substantial  picture¬ 
making  effort  based  on  real  world  data  which  has  been  tested  on  a 
suitable  set  of  "typical  subjects".  System  hardware  recommendations 
are  developed  in  the  context  of  a  preconceived  scenario.  Immediate 
hardware  development  is  not  recommended  at  this  time.  It  seems  most 
appropriate  to  develop  a  clear  data  base  conversion  means  and  multi 
elevation  algorithms  first.  Moreover,  since  VHSIC  is  developing 
toward  custom  procedures  for  circuit  development,  it  appears  most 
appropriate  to  develop  REAL  SCAN  using  these  efficient  methods. 
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All  recommendations  are  tasked  and  estimated  for  time  and  man¬ 
power. 

TASK  1:  INTERMEDIATE  PROJECTION  PLANES 

The  intermediate  projection  planes  should  be  incorporated  into 
REAL  SCAN.  This  involves  projecting  a  data  base  to  fixed  X-Z  and  Y-Z 
planes  and  then  projecting  these  planes  to  an  arbitrarily  oriented 
screen.  The  location  of  the  planes  and  the  time  to  perform  the 
plane's  update  need  to  be  developed  along  the  lines  of  Appendix  C. 
However,  initial  simulation  results  can  be  obtained  by  updating  the 
planes  once  the  parallax  error  (i.e.,  1/2  pixel)  has  been  achieved.  A 
sequence  of  pictures,  using  the  slower  update  requirement  on  the 
intermediate  planes,  should  be  made  to  size  the  realistic  computa¬ 
tional  savings,  estimated  as  about  a  factor  of  10. 

A  significant  perception  related  unknown  needs  to  be  resolved. 
Consider  a  high  speed  vehicle  moving  through  a  data  base  such  that  the 
near  field  is  completely  changed  every  frame  rate.  That  is  the  near 
field  moves  at  an  angular  rate  equal  or  greater  than  3600°  per  sec 
(i.e.,  60°  in  1/60  sec).  This  high  a  near  field  rate  implies  that 
intermediate  projection  planes  would  not  provide  any  saving  (i.e., 
data  base  computation  averaged  over  10  or  more  frames)  over  calculat¬ 
ing  the  scene  anew  for  each  display.  However,  intermediate  projection 
planes  may  not  provide  any  computational  burden  to  REAL  SCAN,  since  it 
appears  to  be  only  a  reordering  of  the  projection  computation  process. 
A  near  field  rate  of  1800°  per  sec  or  less  yields  an  improvement  for 
intermediate  projection  planes. 

However,  one  can  argue  that  producing  a  new  scene  each  display 
time  would  not  allow  a  trainee  to  focus  or  resolve  any  information  in 
the  near  field.  This  suggests  that  a  rapidly  changing  near  field 
could  be  simulated  with  some  "appropriate"  pattern  possessing  simply 
computed  gross  characteristics  and  not  the  near  scene  detail.  Only 
that  part  of  the  scene  possessing  image  coherence  from  frame  to  frame 
would  need  to  be  calculated  accurately. 

A  counter  argument  for  high  scene  detail  can  also  be  made.  Since 
people  can  apparently  register  subliminal  scenes  (i.e.,  single 
detailed  frames  inserted  into  a  movie  such  that  an  individual  does  not 
consciously  recognize  the  single  frame  in  the  movie,  but  yet  the 
individual  clearly  acts  on  the  information  contained  in  the  single 
frame),  then  one  can  argue  that  the  near  field,  non-coherent,  informa¬ 
tion  may  be  unconsciously  processed  to  yield  important  nap  of  the 
earth  flight  cues. 

If  significant  image  coherence  can  only  occur  for  near  field 
rates  of  less  than  or  equal  to  600°  per  sec  (i.e.,  10°  in  1/60  sec), 
then  intermediate  projection  planes  will  clearly  afford  substantial 
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hardware  reductions  for  CIG  systems  capable  of  producing  real  time 
display  limited  imagery. 

It  is  estimated  that  the  algorithm  development  (i.e.,  incorporat¬ 
ing  intermediate  planes  into  REAL  SCAN  software)  will  require  between 
0.25  to  0.5  man-year  effort.  The  creation  of  appropriate  movie  frames 
to  measure  the  efficiency  of  intermediate  projection  planes  is  esti¬ 
mated  to  require  an  additional  0.25  to  0.5  man-year. 

The  creation  of  a  human  factors  study  to  help  resolve  the  detail 
versus  subliminal  question  might  consist  of  the  following  steps: 

1.  Create  a  movie  of  about  two-minute  duration  (i.e.,  24*120  = 

2880  frames)  having  a  near  field  rate  of  change  of  about 
1800°  per  sec.  It  is  estimated  that  each  frame  will  require 
about  0.5  hr  of  computer  time  and  if  both  NTEC  and  Herndon 
VAX  computer  facilities  are  used  for  a  total  of  168  hrs  per 
week,  then  2880  frames  require  about  seventeen  weeks  of 
effort. 

2.  Create  a  movie  of  the  same  flight  path  but  whereby  the  near 
field,  having  an  apparent  motion  from  1800°  per  sec  to  about 
60°  per  sec  (i.e.,  matching  the  tracking  eye  movement  rate) 
is  a  blur,  and  intermediate  planes  are  used  for  the  far  field 
(i.e.,  scene  rate  of  change  equal  or  less  than  the  tracking 
eye  movement  rate).  It  is  estimated  that  such  a  movie  will 
require  about  two  weeks  of  effort. 

3.  Perform  a  human  factors  study  to  determine  if  a  subject  can 
distinguish  between  the  two  movies.  If  some  subjects  can 
distinguish  between  the  movies,  then  use  the  half  interval 
search  approach  by  picking  a  suitable  blur  to  near  field 
separator  rate,  like  320°  per  sec  for  the  next  test.  If  no 
subjects  can  distinguish  between  the  movies,  then  reduce  the 
near  field  separator  rate  by  some  appropriate  factor  till  the 
effect  is  noticeable  by  about  50%  of  the  subjects.  If  the 
tracking  eye  movement  rate  corresponds  to  about  50%  of  the 
subjects  distinguishing  between  the  movies,  then  make  two  new 
movies  one  with  a  separation  rate  of  120°  per  sec  and  another 
with  a  separation  rate  of  30°  per  sec.  Measure  the  ability 
of  an  observer  to  distinguish  movie  difference  even  if  the 
viewer  does  not  know  what  is  different  and  correlate  this 
with  the  individual's  tracking  eye  movement  rate. 

It  is  estimated  that  these  three  efforts  will  require  about  two 
individuals  each  working  half  time  for  about  one  and  a  half  years  if 
the  eye  tracking  equipment  is  already  available. 
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TASK  2:  ALGORITHM  IMPROVEMENTS 

The  algorithm  improvements  defined  in  Appendices  E,F,G,H,  J  and  0 
should  be  implemented.  Then  the  changes  and  their  improvement  on 
scene  computation  time  should  be  documented.  The  effort  will  involve 
modifying  the  current  REAL  SCAN  algorithms  to  satisfy  the  changes  as 
per  the  Appendices.  Then  making  sample  pictures  using  the  new  algo¬ 
rithms  for  comparison  to  the  old  algorithms.  Details  such  as  minimum, 
average,  and  maximum  ground  points  per  pixel  should  be  used  to  compare 
the  algorithms  and  to  illustrate  the  capability  of  the  new  algorithms. 

It  is  estimated  that  this  software  and  documentation  effort  will 
require  about  two  half-time  people  for  one  year  to  one  and  a  half 
years. 

TASK  3:  OPERATION  COUNT 

The  current  software  should  be  sized  to  illustrate  how  many  and 
of  what  type  instructions  are  needed  to  make  REAL  SCAN  pictures.  This 
effort  will  guide  further  algorithm  improvement  and  serve  to  measure 
and  compare  any  algorithm  improvement.  The  instruction  count  should 
be  directly  related  to  the  hardware  model  of  REAL  SCAN  (i.e.,  the  REAL 
SCAN  architecture  of  Section  V).  Hence,  instruction  type  should  be 
listed  by  fundamental  type  and  by  data  dimension,  since  we  propose  an 
integer  machine. 

The  instruction  count  for  the  PG*  software  defined  in  Section  II 
is  largely  complete.  The  block  data  base  yields  about  1.8*109  integer 
instructions  per  picture. 

It  is  estimated  that  about  3  months  for  one  half-time  individual 
would  be  required  to  code  the  current  date  base  algorithms.  About 
another  half  man-month  would  be  required  to  document  results.  About 
one  man-month  will  be  required  to  code  and  document  any  algorithm 
improvements,  such  that  the  new  instruction  count  can  be  compared  to 
the  original  algorithm. 

TASK  4:  MULTIPLE  ELEVATION  ALGORITHMS 

The  ability  to  handle  Eiffel  tower  data  is  not  part  of  REAL  SCAN. 
Methods  for  creating  and  handling  bridges,  trees,  and  other  multivlued 
elevation  models  must  be  developed.  These  methods  must  be  tested  for 
simplicity.  The  use  of  intermediate  projection  planes  suggests  that 
current  CIG  methods  may  be  incorporated  to  define  an  intermediate 
projection  plane  having  "holes"  or  transparent  regions. 

The  first  page  of  this  effort  consists  of  a  listing  of  methods 
available  to  handle  multivalued  elevations.  One  needs  to  investigate 
ways  to  count  data  gaps  other  than  coding  a  point  as  possessing  color, 
partial  transparency  or  total  transparency,  since  these  gaps  could 
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place  a  substantial  memory  requirement  on  the  intermediate  projection 
planes.  Finally,  the  least  complex  methods  and  the  methods  producing 
the  most  real  world  derived/simulated  detail  need  to  be  coded  and 
evaluated. 

This  effort  is  estimated  as  about  one  individual  half-time  for 
about  two  years  to  test  and  document  an  efficient  integer  multi - 
elevation  method. 

TASK  5:  MODEL  REAL  WORLD  FEATURES 

The  entire  data  base  for  REAL  SCAN  has  been  invented.  A  data 
base  referenced  to  a  real  world  typical  gaming  area  is  needed.  The 
data  base  should  possess  typical  features  for  ocean,  river,  lake,  bay, 
field,  forest,  mountain,  valley,  and  desert;  as  well  as  man-made 
features.  There  appear  to  be  two  methods  for  initially  transforming 
real  world  elevation  maps,  U.S.  survey  maps,  and  photo-reconnaissance 
plates  into  a  mathematical  data  base.  Each  method  requires  a  sub¬ 
stantial  software  effort. 

One  method  uses  photo-reconnaissance  plates  to  obtain  detail 
information.  The  high  resolution  detail  can  be  read  automatically  on 
a  SPEC-SCAN  and  stored  on  magnetic  tape.  This  information  can  be 
filtered  for  derived  sun  angle.  If  stereo  equipment  is  available, 
then  the  cultural  feature's  local  elevation  can  be  measured,  rather 
than  estimated.  However,  it  is  clear  that  any  method  of  real  world 
data  derivation  for  such  features  as  trees,  fields  or  deserts  which 
change  daily  as  they  flower  or  the  weather  effects  them.  Hence,  these 
features  need  not  be  exact.  Therefore,  typical  feature  character¬ 
istics  are  desirable,  both  to  conserve  memory  and  computation. 

Part  of  the  real  world  high  resolution  data  gathering  task  should 
be  as  follows: 

1.  Mathematically  define  at  least  three  kinds  of  trees.  That  is 
their  color  versus  season,  wind,  and  other  pertinent  para¬ 
meters.  The  tree  model  should  be  parametric  such  that  the 
detail  of  each  tree  need  not  be  stored.  Color  and  elevation 
are  required.  Various  mathematical  models  need  to  be  sudied 
so  a  choice  of  the  simplest  can  be  made.  Such  modeling  means 
as  texturing  clear  ellipses  and  summing  elevation  functions 
need  to  be  v.’aluated  for  model  quality  and  simplicity. 

2.  Mathematically  define,  perhaps  by  memory  maps,  at  least  three 
man-made  structures.  These  models  should  also  be  parametric 
so  that  cities  of  houses  or  office  building  could  be  con¬ 
structed. 

3.  Mathematically  define  at  least  three  real  world  field 
textures  such  as  wheat,  corn,  and  grass.  These  textures  have 
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height  and  color  information.  Various  models  need  to  be 

evaluated  for  power  and  simplicity.  Texture  is  imagined 
different  from  tree  feature  because  of  the  range  of  elevation 
information  and  the  rate  of  daily  change  possible  in  the 
perceived  scene. 

4.  Mathematically  define  features  of  large  extent  such  as 

rivers,  roads,  and  airport  runways.  These  must  allow  small 

detail  such  as  waves  or  skid  marks  yet  be  simple  and  para¬ 
metric. 

The  mathematical  modeling  efforts  outlined  above  require  the 
discovery  of  simple  characteristics  wherever  possible.  These  models 
require  simple  methods  for  representing  such  complex  high  detail 

features  as  trees  and  corn. 

Completion  of  such  an  effort  suggests  that  a  course  elevation  map 
could  be  "painted"  (i.e.,  both  elevation  and  color)  with  derived 
detail.  However,  one  could  still  use  the  origianl  REAL  SCAN  concept 
of  growing  the  detail  offline  into  a  1012  byte  gaming  area  data  base. 
Each  of  these  modeling  efforts  is  estimated  as  a  minimal  two-man-year 
effort  with  no  guarantee  that  simple,  realistic  methods  suitable  for 
real  time  CIG  will  be  discovered. 

For  example,  the  following  simpler  efforts  have  been  initiated  in 
the  body  of  this  report  and  its  Appendices.  These  efforts  are  judged 
simpler  because  some  part  of  the  modeling  effort  has  been  defined  and 
in  many  cases  partially  tested.  The  efforts  are: 

1.  Following  Appendix  0,  determine  the  most  efficient  means  of 
using  a  regular  grid  data  base  to  represent  terrain  eleva¬ 
tion.  Assume  terrain  features  can  be  created  by  summing  a 
small  number  of  coded  features.  However,  if  this  method  is 
used,  a  realistic  method  for  treating  any  boundary  discon¬ 
tinuity  must  be  solved.  Hence,  this  effort  resolves  the 
choice  of  polynomial  for  single  value  elevation  mapping  and 
determines  when  and  if  feature  summing  is  better  than  a  more 
complex  interpolation  function. 

It  is  estimated  that  one  person  half  time  for  one-half  year 
will  be  required  to  code  each  interpolation  formula  chosen 
for  evaluation.  Currently  the  straight  line  interpolation 
function  and  the  Overhauser-Coons  interpolation  function  have 
been  coded.  It  is  estimated  that  about  one-man-year  of 
effort  would  be  required  to  create  sample  photos,  to  create 
movies  to  compare  up  to  three  new  interpolation  formula,  and 
to  write  up  each  result  (i.e.,  two  years  for  one  person  half 
time). 
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2.  Solve  the  boundary  problem  when  summing  features  to  create 
terrain  or  other  culture.  The  boundary  problem  occurs  at 
region  boundaries  classified  with  different  features. 
Different  regions  require  the  summing  of  different  feature 
functions,  but  their  elevations  are  not  guaranteed  to  be 
equal  at  the  boundary.  Such  methods  as  boundary  gradient 
functions,  clipping  function,  etc.  need  to  be  investigated. 
The  noise  derived  data  base  of  Section  III  and  Appendix  I 
would  be  appropriate  to  this  investigation  since  one  is 
guaranteed  variability  yet  statistical  control  of  both  eleva¬ 
tion  and  slope.  A  simple  solution  would  aid  the  development 
of  a  culture  feature  data  base  allowing  superposition  of 
files  and  interpolation  formula  or  memory  map  to  create 
detai 1 . 

It  is  estimated  that  about  six  months  of  a  half  time  individ¬ 
ual  will  be  required  to  code  and  test  each  boundary  solution. 
Another  six  months  of  half  time  effort  is  then  estimated  as 
required  to  document  the  result. 

3.  Evaluate  terrain  and  feature  modeling  distributions  following 

the  methods  of  Appendix  I,  the  color  tests  of  Appendix  BC, 
and  the  software  in  Appendices  DA  through  DH.  These  tests 
would  be  subjective  concerning  the  quality  of  the  modeling, 
since  systematic  trial  and  error  procedures  are  required  to 
test  distribution  modeling  of  significant  real  world 

features. 

Machine  measures  of  feature  color,  color  and  intensity  dis¬ 
tribution,  and  elevation  distribution  of  real  world  features 
to  be  modeled  is  desired.  However,  the  effects  of  sun 
shadowing  need  to  be  removed  from  the  measure.  Hence,  it 
appears  that  a  combination  of  subjective  comparisons  of 
distribution  parameters  to  real  world  features,  and  detailed 
measurement  of  real  world  features  should  be  combined. 

The  result  of  such  a  study  would  be  parametric  elevation  and 
color  mathematical  methods  for  representing  real  world 

features,  to  high  detail,  and  appropriate  to  a  real  time  CIG 
system. 

It  is  estimated  that  the  cateloguing  and  documenting  of 
distributions  which  can  be  generated  via  Appendix  I  will  take 
about  two  years  of  one  half-time-person.  Special  equipment, 
like  a  SPEC  SCAN,  is  required  to  measure  real  world  photo¬ 
graphs  for  their  color  and  distribution  information.  Assum¬ 
ing  a  color  reading  SPEC  SCAN  were  available  and  operational, 
then  it  is  estimated  that  between  six  months  to  one  year  of  a 
half-time-person  would  be  required  to  create  the  software  to 
measure  color  and  distributions.  It  is  estimated  that  about 
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another  year  of  half-time-person  effort  would  be  required  to 
measure  and  fully  document  the  measurements  of  about  ten 

features.  However,  the  effect  of  sun  shadowing  would  not  yet 

be  clearly  resolved  from  the  measurements. 

It  is  estimated  that  about  one-man-year  of  effort,  involving 
iterative  simulation  and  evaluation,  would  be  required  to 
resolve  sun  shadowing  effects.  Real  world  distributions  of 
features  need  be  available,  multi-elevation  modeling  software 
needs  to  be  operating,  and  sun  shadowing  algorithms  need  be 
available  to  operate  on  the  models  to  duplicate  the  measured 
characteristics. 

One  can  see  that  a  few  judicious  choices  (lucky  guesses)  of 

methods  can  make  a  substantial  impact  in  the  time  spent  and 

ultimate  mathematical  simplicity  to  model  features. 

4.  Evaluate  the  use  of  signed  parameters  to  create  region  bound¬ 
ary  designations.  Current  boundary  designations  are  based 
either  on  elevation  and  slope,  and/or  a  number  patch  which 
covers  a  large  square  of  world  (i.e. ,  large  compared  to  the 
feature's  detail).  These  methods  do  not  allow  modeling  of 
rivers  or  streams.  Further,  all  field  to  forest  boundaries 
occur  along  orthogonal  straight  lines  due  to  the  region 
designator  number  patches.  This  work  should  impact  both  high 
detailed  hierarchial  data  bases  or  feature  modeled  data 
bases,  since  the  hierarchiaT  data  bases  are  constructed  on  a 
regular  grid.  Hence,  irregular  features  passing  through  the 
regular  grid  currently  pose  a  modeling  problem. 

It  is  estimated  that  about  one  year  of  a  half-time-person 
will  be  required  to  test  and  evaluate  signed  parameters  for 
modeling  irregular  region  boundaries. 

5.  Evaluate  the  methods  of  conventional  CIG  modeling.  Conven¬ 
tional  CIG  stores  data  using  an  object  designator,  breaking 
the  objects  into  simple  parts,  and  then  defining  the  object 
parts  by  their  set  of  connected  world  coordinates.  REAL  SCAN 
allows  the  world  coordinate  to  be  the  address  to  the  eleva¬ 
tion  and  color  data.  A  simple  means  of  incorporating  conven¬ 
tional  CIG  data  bases  into  REAL  SCAN  is  desired.  Some  simple 
multi-elevation  models  are  the  desired  result.  Since  the 
data  base  is  evaluated  in  fixed  ground  coordinates,  REAL  SCAN 
offers  a  larger  choice  of  function  or  interpolation  methods 
to  represent  multi-elevation  models,  whether  trees,  tanks, 
buildings  or  airplanes.  However,  since  conventional  CIG  has 
been  able  to  model  many  man-made  objects  very  well,  these 
methods  should  be  evaluated  for  their  ease  of  incorporation 
into  REAL  SCAN. 
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It  is  estimated  that  about  two  man-years  of  effort  are 
required  to  incorporate  at  least  one  tank  or  airplane  and  to 
determine  how  to  effectively  employ  conventional  CIG  models 
in  REAL  SCAN. 

However,  if  intermediate  projection  planes  prove  to  be  as 
effective  and  easy  to  implement  as  suspected,  then  this  task 
only  needs  to  resolve  the  differences  between  REAL  SCAN  and 
conventional  CIG  addressing  methods. 

TASK  6:  FILTER  EVALUATIONS 

The  current  REAL  SCAN  effort  has  shown  negligible  aliasing 
problems  associated  with  about  four  ground  points  per  display  pixel. 
Since  conventional  CIG  suggests  that  effective  anti-aliasing  requires 
real  world  subdivision  to  about  16  ground  points  to  the  pixel,  alias¬ 
ing  needs  to  be  further  evaluated.  It  is  possible  that  the  REAL  SCAN 
method  (i.e. ,  data  base  in  ground  coordinates)  need  be  filtered  no 
better  than  is  currently  done.  Such  features  as  hill  edges  are 
naturally  oversampled  and  hence  "properly"  anti-aliased.  Further,  far 
field  edges  are  also  sampled  and  contribute  to  anti-aliasing.  How¬ 
ever,  highway  lines  are  only  slightly  over  sampled  and  a  careful 
scrutiny  of  Figure  57  demonstrates  some  aliasing. 

The  picture  quality  needs  to  be  carefully  documented  as  a 
function  of  the  point  spread  filter,  the  number  of  points  accumulated 
on  average  to  a  pixel;  high  pass-low  pass  filtering  over  edges  and 
evaluated  as  a  function  of  the  total  display  complexity  (i.e.,  terrain 
clutter,  sharp  lines  and  edges,  narrow  lines  like  wings,  and  other 
significant  scene  features). 

It  is  estimated  that  the  software  initiated  will  require  about 
six  months  of  a  half- time-person  and  the  evaluation  and  documentation 
will  require  about  one  to  one  and  a  half  man-year  of  effort. 

If  it  is  discovered  that  effective  anti-aliasing  requires  more 
than  the  currently  used  four  ground  points  per  pixel,  then  the  memory 
required  for  intermediate  projection  planes  would  be  accordingly 
Increased.  For  instance,  if  three  points  are  required  per  pixel  edge, 
then  nine  times  the  display  would  be  the  minimum  memory  required.  If 
four  points  are  required  per  pixel  length,  then  16  times  the  display's 
detail  would  be  the  minimum  memory  required. 

The  sampling  theorem  suggests  that  the  intermediate  plane  need 
store  no  more  than  twice  the  display  density  per  length.  This  is  the 
proposed  intermediate  plane  structure.  It  requires  an  acceptable 
requirement  of  four  times  the  memory  of  the  display's  detail. 
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TASK  7:  CREATE  COLOR  MOVIES  OF  NAP  OF  THE  EARTH  FLIGHT 

A  sequence  of  motion  pictures  should  be  created  using  the  avail¬ 
able  equipment  (i.e. ,  currently  OICOMED  but  upgrading  to  IKONAS  TV 
equiment).  These  pictures  should  evaluate  filter  algorithms,  data 
base  methods,  processing  algorithm  improvements,  and  generally  serve 
to  show  the  capability  and  progress  of  REAL  SCAN. 

Using  0IC0ME0  equipment,  each  movie  requires  about  three  months 
of  a  half-time-person.  This  time  is  spent  acquiring  a  few  test  frames 
to  judge  the  flight  trajectory,  then  storing  the  frames  on  magnetic 
tape,  and  finally  writing  the  frames  to  35mm  film.  The  film  is  then 
processed  and  reduced  to  16mm  for  viewing. 

The  IKONAS  equipment  will  allow  direct  transfer  to  16mm  film  and 
also  TV  evaluation  of  short  motion  picture  segments  because  of  the 
disk  storage  incorporated  into  the  system. 

SYSTEM  HARDWARE  RECOMMENDATIONS 

Two  data  base  concepts  have  been  demonstrated  as  workable,  but 
substantial  work  remains  to  be  done  to  define  efficient  data  base 
compression  algorithms.  Hence,  one  must  admit  that  the  detail  of  the 
REAL  SCAN  data  base  has  not  been  thoroughly  defined.  Therefore,  it 
does  not  appear  appropriate  to  attempt  a  complete  REAL  SCAN  hardware 
development  at  this  time.  However,  detail  designs  for  some  functions 
can  be  initiated  now,  recognizing  that  even  well  defined  integer 
operations,  such  as  projection  will  still  evolve. 

The  complexity  of  REAL  SCAN  has  been  estimated  as  about  twenty 
cabinets  of  digital  electronics.  This  estimate  assumes  that  one 
carefully  sizes  and  scales  the  algorithms  to  operate  on  integer 
arithmetic  of  the  resolution  required  for  the  display.  If  one  assumes 
that  20  cabinets  of  properly  sized  hardware  is  required  to  do  a  job  at 
12  bit  resolution,  then  if  the  job  were  performed  at  16  bit  resolu¬ 
tion,  one  could  anticipate  an  additional  33%  more  hardware  or  a  total 
of  about  27  caibnets.  If  one  were  to  use  "standard"  32  bit  parts 
which  had  been  optimized  because  of  million  piece  production  quan¬ 
tities,  then  one  might  anticipate  30  to  40  cabinets  of  hardware. 
Further,  the  power  of  a  32  bit  microcomputer's  instruction  set  would 
be  largely  unused,  since  short  runs  of  code  appear  to  offer  an  optimal 
pipeline  structure. 

Current  VHSIC  efforts  appear  to  be  directed  at  functional  deign 
and  automated  test  procedures  based  on  standard  building  block 
circuits  whenever  possible.  Hence,  many  parallel  efforts,  but  in 
different  technologies,  appear  to  be  working  toward  the  same  goals  of 
feasible  production  runs  in  the  thousands  and  turnaround  time  of  six 
months  or  less  from  design  to  a  tested  functioning  custom  IC. 
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Such  a  scenario  suggests  that  efficient  CIG  hardware  should  be 
designed  for  a  parallel  pipelined  structure,  that  the  hardware  be 
based  upon  the  desired  display  resolution,  and  that  a  replicated 
modular  structure  be  the  form  of  the  hardware.  A  standard  building 
block  approach  implies  that  complex  custom  designs  will  be  feasible  in 
the  near  future  (1985  to  1987).  Further,  since  the  hardware  is 
dependent  upon  complexity,  algorithms  which  have  been  sized  and  made 
simple  can  be  efficiently  constructed  with  fewer  integrated  circuits 
than  if  one  attempts  to  use  general  purpose  microcomputer  parts. 

A  general  purpose  microcomputer  design  appears  to  yield  the 
simplest  and  most  economical  digital  designs  for  pipelines  that  can 
run  sequences  of  1000  or  more  instructions  where  the  instructions 
average  about  1  microsec  for  execution.  However,  if  the  above 
scenario  is  correct,  then  custom  VHSIC  will  be  available  just  about 
when  a  microcomputer  system  could  be  developed  for  CIG.  One  should 
not  overlook  the  possibility  of  transferring  a  microcomputer  design  to 
VHSIC.  However,  if  the  algorithms  have  not  been  carefully  analyzed  to 
determine  the  simplest  and  fastest  solutions;  and  sized  to  define  the 
resolution  specified  word  size,  then  one  would  not  expect  a  sub¬ 
stantial  reduction  in  the  amount  of  hardware  required  to  implement 
such  a  CIG  system.  If  the  above  scenario  is  correct,  then  by  1985  to 
1987  many  facilities  will  be  available  for  custom  design,  fabrication 
and  test.  Further,  the  two  to  three  year  delay  between  initial  design 
and  final  working  1C  will  be  trimmed  to  about  six  months.  One  should 
note,  that  all  the  algorithm  development  and  system  architecture 
completed  to  date  has  been  directed  at  simplicity.  One  still  requires 
processing  parts,  but  the  range  of  instruction  required  has  been 
reduced.  One  still  requires  memories,  but  the  addition  of  simple 
processing  functions  to  the  memories  yields  a  modular  pipelined 
design.  This  work  is  in  keeping  with  the  above  scenario. 

There  does  not  appear  to  be  any  CIG  system  producing  display 
limited  images  in  real  time.  There  are  a  few  real  time  systems  pro¬ 
ducing  scenes  from  objects  defined  by  planar  surfaces.  If  one  seeks 
to  be  able  to  simulate  real  world  scenes  having  a  resolution  limited 
by  the  display  means  then  all  the  data  base  work  recommended  must  be 
successfully  completed.  The  hardware  for  implementing  real  time 
algorithms  will  be  simplest  if  the  hardware  is  properly  sized.  One 
should  note,  that  the  addition  of  one  bit  to  represent  a  number 
increases  resolution  by  a  factor  of  two.  Hence,  accurately  sizing  any 
real  time  CIG  appears  to  be  a  worthwhile  first  step  before  hardware 
implementation. 

More  algorithmic  work  remains  to  be  done  on  REAL  SCAN  (i.e., 
multi-valued  elevation,  clearly  defined  optimal  data  base  mathematics, 
and  evaluation  of  intermediate  projection  planes).  In  keeping  with 
the  VHSIC  scenario  offered,  of  custom  design  with  six-month  working 
turnaround  in  the  1985  to  1987  time  frame,  the  following  hardware 
tasks  are  outlined. 
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TASK  8:  TRACK  VHSIC  DEVELOPMENTS 

This  effort  involves  visiting  VHSIC  fabrication  facilities, 
reading  technical  and  sales  literature  about  the  design  facilities, 
and  eventual  sample  designs  of  REAL  SCAN  modules.  At  least  two  people 
should  be  assigned  to  this  task.  They  should  become  thoroughly 
familiar  with  design  facilities  (i.e. ,  design  software  packages 
allowing  automated  testing).  Then  the  design  of  a  comparable  module 
should  be  completed  using  two  competing  design  packages.  This  will 
allow  accurate  comparison  between  the  design  packages,  such  that  we 
can  decide  when  the  VHSIC  design  of  REAL  SCAN  should  begin  in  earnest 
and  which  particular  facilities,  or  technology,  will  most  nearly 
satisfy  our  needs.  Many  sophisticated  VHSIC  facilities  offering 
building  block  designs  are  anticipated  to  be  nearly  simultaneously 
available. 

It  is  estimated  that  about  six  months  of  half-time  effort  will  be 
required  to  familiarize  two  people  with  VHSIC  and  current  tech¬ 
nologies,  such  as  gate  arrays.  These  people  would  then  maintain 
currency  but  contribute  to  the  REAL  SCAN  design  effort. 

TASK  9:  DETAILED  REAL  SCAN  DESIGN 

Since  it  is  anticipated  that  rapid  development  VHSIC  design  tools 
will  not  exist  for  about  two  years,  one  needs  to  refine  hardware 
designs  of  the  REAL  SCAN  system  and  compare  various  modular  structures 
for  implementing  the  parallel  pipeline  structure  needed  to  implement  a 
REAL  SCAN  solution.  Further,  one  needs  to  keep  abreast  of  VKfIC 
developments  and  the  evolution  of  current  building  block  design  topi’s , 
just  in  case  these  facilities  become  available  sooner. 

The  hardware  designs  should  be  based  on  a  well  documented  digital 
design  language  such  as  DDL,  CDL,  or  AHPL.  Further,  the  hardware 
designs  should  be  modular,  in  terms  of  both  display  resolution  and 
display  type  (i.e.,  spherical  display  surface,  planar  surface  display 
of  given  dimension,  etc.).  The  designs  should  be  highly  efficient  for 
such  operations  as  projection  and  visibility;  and  the  designs  should 
be  flexible  (programmable)  yet  efficient  for  such  operations  as  data 
base  interpolation  and  function  determination. 

Including  the  two  half-time  people  of  Task  8,  it  is  estimated 
that  about  three  half-time  people  would  be  required  for  about  three 
years  to  complete  the  detail  design  of  REAL  SCAN. 

Recommendation  Summary 

The  tasks  identified  for  further  research  and  development  have 
been  summarized  in  Table  15.  All  efforts  have  been  given  in  terms  of 
half-time-persons,  since  graduate  students  cannot  devote  full-time  to 
research  efforts. 
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TABLE  15.  RECOMMENDED  TASKS 


HALF-TIME 

PERSONS 


TASK 

DURATION  (YR.) 


1.  Intermediate  Projection  Planes 
Projection  Planes  Human  Factors 

2.  Algorithm  Improvements 

3.  Operation  Count 

4.  Multi-Elevation  Algorithm 

5.  Model  World  Features 
Interpolation 
Boundary  Problem 
Feature  Catalog 

Sun  Shadowing 
Ri vers/Streams/Road 
Conventional  CIG  Evaluation 

6.  Point  Spread  Filter 

7.  Movies 

8.  VHSIC  Review 

9.  REAL  SCAN  Hardware 


1  to  1.5 


^Potential  long-range  projects 
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APPENDIX  A 

ANALYSIS  OF  THE  MEMORY  REQUIRED  FOR  THE  CELL  DATA  BASE 


This  appendix  develops  an  estimate  for  the  cell  memory  require¬ 
ments  for  REAL  SCAN.  The  cell  memory  is  the  virtual  addressed  buffer 
between  the  video  disc,  holding  the  full  gaming  area  !n  its  various 
hierarchies,  and  the  processors  calculating  the  visible  scene.  The 
cell  memory  is  repetitively  accessed  to  calculate  each  scene  via  REAL 
SCAN  algorithms. 

The  memory  estimate  developed  depends  upon  the  following 
parameters: 

1.  The  display  as  measured  by  pixels  and  mapped  to  the  world  by 
the  field  of  view  pyramid. 

2.  The  rate  at  which  the  scene  changes  as  measured  by  the  eye's 
linear  and  angular  velocities. 

3.  The  data  compression  inherent  in  the  interpolation  formula, 
as  measured  by  the  number  of  scene  pixels  calculated  per 
interpolation  patch. 

The  Field  of  View 

Let  us  assume  that  the  two  orthogonal  angles  defining  the  field 
of  view  are  less  than  90°  (i.e.,  currently  we  are  considering  a  =  40° 
and  p  =  50°  giving  a  diagonal,  T,  of  =  60°).  Figure  A-l  illustrates 
the  field  of  view  pyramid. 


Figure  A-l.  Illustration  of  the  Field  of  View  Pyramid. 


Altitude- Velocity  Relation 

Let  us  assume  that  the  maximum  eye  velocity  is  proportional  to 
the  eye  altitude 
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where  K  =  5  sec  -1 

(i.e.  »  =  50  m/s  if  Z  =  10  meter) 

HlaX 

Let  us  assume  that  the  maximum  eye  acceleration  is  fixed 


where  G  s  2  m/s2 

We  have  separated  eye  motion,  and  therefore  scene  change  as  due 
to  a  known  velocity  and  an  unknown  but  bounded  acceleration.  Their 
relative  effect  is  given  by  E,  the  ratio  of  velocity  induced  motion  to 
acceleration  induced  motion. 


c  _  KZT  _  2KZ 

E  "  W2  “  ITT 


(A-l) 


where  T  is  a  computational /memory  fetch  interval. 

The  period  T  corresponds  to  two  complimentary  time  intervals: 

1.  The  interval  over  which  the  unknown  acceleration  acts  to 
change  the  eye's  predicted  position  between  each  new  scene 
determination. 

2.  The  time  necessary  to  set  up  and  compK  e  a  disk  transfer 
(i.e.,  identify  the  disk  blocks,  initiate  the  block  transfer, 
track  seek  time,  and  finally  actual  transfer). 

The  second  interval  will  define  T.  T  will  probably  be  in  the 
range  0.1  sec  to  1.2  sec. 

A  typical  range  of  "E"  based  on  the  altitudes  causing  the  maximum 
rate  at  which  one  would  fly  by  the  highest  density  data  yields: 

Z  =  10  meter 

T  =  1  sec 

K  =  5  sec-1  (A-2) 

G  =  2  m/sec2 
E  =  50 
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We  can  combine  the  results  of  Equation  A-2  and  Figure  A-l  to 
define  a  worst  case  computed  field  of  view  based  upon  motion,  Tc 

Tc  s  T  +  2/E;  if  E  >  10 

where  T  and  Tc  are  expressed  in  radians  and  T  represents  the  predicted 

field  of  view.  If  T  =  60°  =  1  radian,  then  2/E  has  almost  negligible 
effect. 

Calculation  of  the  Working  Cell  Data  Base  Size 

One  can  now  compute  the  size  of  the  working  cell  data  base 
memory.  The  calculation  will  take  place  in  three  steps: 

1.  Data  base  memory  required  for  a  fixed  eye. 

2.  Additional  data  base  memory  required  for  an  eye  moving  basi¬ 
cally  in  the  same  direction  as  the  field  of  view  vector. 


3.  Additional  data  base  memory  required  for  an  eye  moving  basi¬ 
cally  perpendicular  to  the  field  of  view  vector. 


Figure  A-2.  Fixed  Eye's  Field  of  View  Projected  to  a  Flat  Earth 

Where  T  is  the  Worst  Case  Field  of  View.  R  „  is  the 
c  max 

Horizon  Limit. 

Since  we  recognize  that  a  data  base  describing  the  field  of  view, 
need  not  contain  more  information  than  resolvable  in  the  display,  we 
choose  to  use  a  hierarchy  of  levels  of  detail  to  describe  the  scene. 
Let  the  highest  precision  level  of  detail  be  associated  with  the 
minimum  altitude  of  the  eye  above  the  scene.  Further,  let  the  highest 
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resolution  data  be  used  for  a  distance,  r,,  from  the  nadir;  let  the 
next  highest  precision  level  of  detail  be  used  from  r,  to  2r,,  and  so 
forth.  This  assumes  that  each  higher  level  of  detail  maps  twice  the 
j  linear  dimension  of  the  preceeding  level  of  detail. 


i 

i 


« 


t- ' 


1 


Table  A-l  illustrates  the  effect  of  hierarchical  levels  on  the 
memory  required.  Table  A-l  relates  the  radius  over  which  a  given 
level  of  detail  will  exist.  For  instance,  the  distance  from  2rj  to 
4r,  from  the  nadir  is  covered  by  cells  having  a  linear  dimension  "4a" 
covering  an  area  of  16a2.  Hence,  the  number  of  data  points  required 
to  cover  level  2  at  the  computed  field  of  view,  ?c  is  3Tcr,2/8a2. 

TABLE  A-l.  CELL  HIERARCHIAL  DATA 


Radius 

Area 

Precision 

Number  of 

Level 

Meter 

Meter2 

Meter2 

Data  Points 

0 

ri 

^r^/2 

a2 

Tcr,2/(2a2) 

1 

2r, 

3Tcr,2/2 

4a2 

3Tcr,2/(8a2) 

2 

4rx 

6V,2 

16a2 

3Tcr,2/(8a2) 

3 

8r  i 

24V,2 

64a2 

3Tcr,2/(8a2) 

n 

2nr, 

3*22nV,2/8 

22V 

3Tcr,2/(8a2) 

Hence,  we  can  compute  the  cell  memory  needed  for  one  field  of 
view,  illustrated  in  Figure  A-3: 

M  =  (4  +  3n)  Tcr!2/(8a2)  data  points  (3) 

For  example,  if  r,  =  10  meter,  R  =  2nr,  5  20  kilometer,  a  =  0.1 

filaX 

meter,  and  T„  =  ~  1  radian;  then  n  =  11  and  M  =  370-103  data  points 

8 

If  we  use  6  bytes  per  data  point,  then  about  300  kilo  bytes  are  needed 
to  define  one  stationary  field  of  view. 

Let  us  now  consider  the  effects  of  eye  motion,  on  the  amount  of 
cell  memory  required.  Figure  A-3  illustrates  the  increased  data  base 
required  for  motion  along  the  line  of  sight.  Figure  A-4  illustrates 
the  increased  data  base  required  for  motion  perpendicular  to  the  line 
of  sight.  One  may  easily  approximate  the  additional  area  of  each 
level  of  detail  required  to  create  the  scene  based  upon  eye  motion  for 
the  period  of  time,  T,  to  locate  and  the  transfer  cell  data  from  disk 
to  the  active  cell  memory. 
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The  dimensions  of  any  shaded  area  in  Figure  A- 3  are: 

1.  KZT  is  the  length  along  the  line  of  sight. 

2.  Approximately  2n+^ri  sin  (Tc/2)  for  the  length  perpendicular 
to  the  line  of  sight,  and  n  is  the  level  as  per  Table  A-l. 

Hence,  the  increased  memory  required,  Mngw,  is  calculated  by 

summing  the  number  of  data  points  in  each  area  (i.e.,  data  points  = 
area/precision) 


2K2Trx 


M  £  - 

new  a2 


sin  (T/2)  I  ^r 
c  i=0  2Z1 


(A-4) 


4KZTrx 

Mnew  *  — T  Sln  (Tc/2) 

u 


(A-5) 


Figure  A-4  illustrates  that  the  new  area  covered  is  more  compli¬ 
cated  to  describe  when  the  motion  is  perpendicular  to  the  line  of 
sight.  However,  the  area  is  approximately  the  distance  moved,  KZT, 
times  the  line  of  sight  dimension.  The  line  of  sight  dimension  is 
approximately  rx  for  level  0.  For  higher  levels,  such  as  3  and  above, 
we  may  compute  the  area  as  the  sum  of  a  trapazoid  and  a  cycle.  The 
cycle  can  be  approximated  as  a  triangle  of  base,  KZT  and  slant  height 

2n  riTc  sin  (Tc/2)  by  unwrapping  the  cycle.  The  trapazoid  has  base 

KZT  and  height  of  less  than  2°^.  The  new  memory  is  made  up  of 
two  parts 

"trap  =  <KZTr,/«*)  I  2'21  (A-6) 


Mtrap  s  4«T--.A3a*) 


(A-7) 


i-l/o-2i 


Kcyc  =  <KZTriTc  sin(Tc/2)/a2)  I  (21  V2  “) 


(A-8) 


Mcyc  -  KZTriTc  sin(Tc/2)/(2a2) 


(A-9) 


The  sum  of  M^rap  and  MCyC  yields  the  new  memory  requirement  for  motion 
perpendicular  to  the  line  of  sight  as  shown  in  Figure  A-4. 
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KZTrx 

Mnew  =  -  (4/3  +  (Tc/2)  sin  (Tc/2)  (A"10) 

a2 

The  ratio  of  new  memory  required  for  motion  parallel  to  the  line 
of  sight  compared  to  new  memory  needed  for  motion  perpendicular  to  the 
line  of  sight  is  the  ratio  of  Equation  A-5  to  A- 10. 

12  sin  (T  /2) 

R  =  4+3Tc  sin  (T./2) ’  where  Tc  ~  180° 


Furtner,  if  60°  ^  T  ^  150°,  then  <  R  <  1.  Hence,  one  should  use 

c  11 

the  new  memory  estimates  based  on  motion  parallel  to  the  line  of  sight 
to  calculate  worst  case  memory  requirements.  For  example  if  Tc  =  60°, 

rx  =  10  meter,  a  =  0.1  meter,  KZ  =  50  meter/sec,  and  T  =0.3  sec, 

then  M  =  30,000  data  points  or  about  0.65  of  those  required  for  a 
new 

stationary  scene. 
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Figure  A-4. 

Additional  Data  Base  Required  for  Motion  Perpendicular  to  the  Line  of 
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APPENDIX  B 

MEMORY  REQUIRED  FOR  A  LARGE  GAMING  AREA 
HAVING  DISPLAY  LIMITED  DETAIL 


This  appendix  develops  estimates  of  the  video  disk  memory 
requirement  for  a  REAL  SCAN  system.  The  parameters  used  to  develop 
the  estimate  are  as  follows: 

1.  Gaming  area. 

2.  Number  of  hierarchies  required  to  create  a  scene. 

3.  Data  compression  available  to  encode  the  gaming  area’s  detail. 

Let  the  high  resolution  requirement  be  defined  as  10* 3  radian. 

Then,  if  a  nearest  approach  of  5  meter  is  specified,  one  determines  a 
need  for  0.5  cm  detail  within  the  scene.  The  far  viewing  distance  may 
be  estimated  as  between  5  km  to  50  km.  If  the  range  of  viewing  distance 
is  5  m  to  5  km,  then  11  levels  are  required  for  a  hierarchy  based  on 
doubling  the  linear  detail  between  succeeding  levels.  If  the  range  of 
viewing  distance  is  5  m  to  50  km  but  a  10:1  interpolation  is  used  over 
the  data  base,  the  11  levels  of  hierarchy  are  again  required.  If  one  adds 
three  additional  levels  of  the  hierarchy  then  a  nearest  approach  to 
the  simulated  world  of  5/8  meters  is  possible. 

This  appendix  will  assume  the  need  of  12  hierarchies.  The  data 
base  will  be  interpolated  at  about  16:1  with  high  density  detail. 

However,  the  total  memory  estimates  developed  are  negligibly  increased 
even  if  the  number  of  levels  is  doubled. 

Let  the  gaming  area  be  a  square.  Let  the  center  of  the  square 
define  a  region  of  highest  detail  (i.e.  allowing  nearest  approach)  and 
let  the  boundary  of  the  square  require  less  detail  (i.e.  keeping  the 
nearest  approach  within  the  central  square) . 

Figure  B-l  illustrates  the  hierarchy  levels  required  in  the  total 
gaming  area.  Figure  B-l  shows  all  12  levels  are  required  within  the 
central  patch  and  fewer  levels  are  required  to  cover  larger  and  larger 
boarder  regions . 
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0.004 
0.008 
.016 
.032 
.064 
.128 
.256 
.512 
1.024 
2.048 
4.096 

8.192  _  _  _ 

The  memory  requirement  in  Table  B-l  is  estimated  by  allowing  two 
bytes  per  elevation,  three  bytes  per  full  color,  and  one  byte  for  other 
parameters  such  as  texture. 
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An  estimate  of  the  total  memory  required  to  represent  a  given 
gaming  area  can  be  made  by  counting  the  number  of  each  patch  (i.e. 
level)  type  needed.  In  the  case  of  the  central  square,  the  number  of 
patches  is  approximately  4(S/4)2/3  where  S  is  the  length  of  the  side 
of  the  square  in  meters.  The  number  of  patches  in  a  boarder  of  dimen¬ 
sion  d  beyond  the  square  is  ((S+2d)2  -  s2)/d2  or  4(S+d)/d.  Table  B-2 
illustrates  the  number  of  patches  needed  to  represent  regions  having 
interior  gaming  squares  of  8  km,  16  km,  24  km,  and  32  km  on  a  side. 
Table  B-2  indicates  a  video  disk  requirement  of  10-LX  to  10  bytes. 


Table  B-2.  Memory  Requirement  Versus  Gaming  Area. 


Central 

Patch 

Length 

Meter 

Total 

Gaming 

Area 

km2 

Central 
Patches 
(4 (S/4) 2/3 

*106 

Boarder 

Patches 

8(S/4) 

*103 

Memory 

10*0  bytes 

8192 

580 

5.33 

16.3 

12.8 

16384 

2320 

21.33 

32.8 

25.6 

24576 

2900 

26.67 

49.1 

38.4 

32768 

9280 

85.33 

65.6 

51.2 
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APPENDIX  C 

INTERMEDIATE  PROJECTION  PLANES 


Cartoon  animation  has  clearly  demonstrated  the  vitality  of  using 
artist  2-D  renderings  for  simulating  scenes.  However,  training 
requires  correct  depth  cues.  Parallax,  the  perceived  relative  motion 
between  distant  points  on  the  same  line  of  sight,  must  be  faithfully 
reproduced.  Figure  C-l  illustrates  parallax.  Points  A  and  B  are  in 
the  scene  along  the  same  line  of  sight  from  point  E,  tne  eye.  Figure 
C-l  illustrates  the  perceived  displacement  between  A  and  B  due  to 
motion  of  E  to  the  locus  of  constant  perceived  angular  separation,  6. 

Figure  C-2  suggests  that  display  limited  image  generation  of  complex 
scenes  might  benefit  by  determining  a  set  of  intermediate  projection 
planes  located  in  the  scene  and  valid  for  a  space,  such  as  the  scene 
between  planes  A  and  B.  The  intermediate  projection  planes  calculated 
for  the  scene  would  correspond  to  the  artist  renderings  used  for 
cartoons,  but  have  display  limited  fidelity.  Figure  C-2  Illustrates 
the  concept.  Only  a  few  of  the  planes  required  to  faithfully  repro¬ 
duce  the  scene  are  shown.  Figure  C-2  illustrates  that  plane  B  maps 
the  scene  projected  from  the  space  between  planes  A  and  B,  and  pro¬ 
jected  through  E  to  plane  B.  Likewise,  plane  C  corresponds  to  the 
space  between  planes  B  and  C  and  projected  through  E  to  plane  C. 
Further,  Figure  C-2  illustrates  that,  for  the  case  of  rapid  eye 
motion,  the  display  may  be  more  efficiently  calculated  from  the 
scene's  data  base  for  that  part  of  the  scene  between  the  eye  and  plane 
C  rather  than  resorting  to  intermediate  planes. 

This  appendix  solves  the  problem  of  determining  the  locus  illustrated 
in  Figure  C-l  and  evaluating  when  intermediate  planes  of  the  type 
shown  in  Figure  C-l  reduce  the  computation  required  to  generate  the 
display  from  a  given  database. 

Posing  the  Locus  Problem 

Given:  Cartesian  coordinate  system  (x,y,z)  and  two  points,  A  and  B. 

Problem:  Determine  the  locus,  P,  on  any  plane  containing  A  and  B  such 
that  the  angle  <APB  is  constant. 

Solution:  Figure  C-3  shows  points  A  and  B  separated  a  distance  d 
where: 

(1)  the  X  axis  is  directed  from  A  to  B  with  an  origin  midway 
between  A  and  B. 


(2)  the  Y  axis  is  perpendicular  to  the  line  A  B  and 
directed  away  from  the  line. 


Ill 
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The  locus,  P(X,Y)  can  be  solved  by  using  the 
BP,  and  the  dot  product  of  AP  and  BP. 


c.  w- 


I  ap  x  bp|=|ap|*|bp|*| sine) 
I ap  •  bp|=|ap|*|bp|*|  cosO| 


so 

I  AP  X  BP|  =[ab|  *|  BP|  *|  tan0| 


where 
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BP  =  (d/2-X,-Y) 

I AP  •  BP |=  X2  -  d2/4  +  Y2 
|  AP  x  BP|=  (0,0,  Yd) 

Equation  C-3  becomes 

±  Yd  cotane  =  X2  +  Y2  -  d2/4  (C-4) 

which  is  the  equation  for  a  circle,  as  illustrated  in  Figure  C-l. 
(24,  25) 

X2  +  (Y  ±  d  cotane/2)2  =  (d/(2  sine))2  (C-5) 

One  cannot  use  the  approximation  tan6  ~  sin©  ~  6  for  small  6 
(even  though  e  <  1/100),  since  this  yields  a  locus  tangent  to  the 
origin  in  Figure  C-l,  which  is  incorrect  for  analysis  in  the  neighbor¬ 
hood  of  either  point  A  or  B.  The  locus  in  the  neighborhood  of  A  or  B 
(i.e. ,  within  10  d  of  A  or  B)  is  the  interesting  region  for  parallax 
analysis  since  it  will  determine  at  which  point  one  should  begin  to 
use  intermediate  planes  rather  than  calculate  directly  from  the  data 
base. 

2  2  2 

Let  tane  =  a,  then  sin  0  =  a  /(1+a  )  and  Equation  C-5  becomes 

X2  +  (Y  ±  d/(2a))2  =  d2  (1  +  a2)/(2a)2  (C-6) 

Display  Limited  Parallax  Motion 

Given:  The  locus  of  constant  parallax  (Figure  C-l  and  Equation  C-6) 

in  terms  of  the  parallax  angle  parameter,  a,  and  point 
separation,  d. 

Problem:  Determine  the  shortest  distance  from  E,  shown  in  Figure  C-l, 
to  the  locus.  Parameterize  this  distance  in  terms  of  a,  d, 
the  maximum  velocity,  V,  of  E,  the  display  update  time,  T, 
and  the  distance  from  B  to  E,  D.  (The  goal  of  this  pro¬ 
blem's  solution  is  to  determine  the  conditions  under  which 
Intermediate  plane  projections,  as  shown  in  Figure  C-2, 
could  reduce  the  computational  load  of  computer  generated 
imagery. ) 


24 

Chestnut,  H.  and  Mayer,  R.  "Servomechanisms  and  Regulating 
System  Design  Vol.  1",  John  Wiley  &  Son,  New  York,  New  York,  pp.  226- 
228,  1951. 

25 

D'Azzo,  J.  and  Houpis,  C.  "Feedback  Control  System  Analysis  and 
Synthesis",  McGraw  Hill,  New  York,  New  York,  pp.  366-369,  1966. 
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Solution:  Figure  04  illustrates  this  prot^em's  parameters.  E  is 
shown  to  move  from  its  initial  position,  (D  +  d/2,  0),  to  P 
the  nearest  point  where  display  limited  parallax  occurs.  P 
is  on  the  line  from  E  to  (0,  ±  d/(2a)).  The  time,  t,  to 
travel  from  E  to  P,  at  speed,  V,  is 


t  =(V(d/2a)2  +  (0  +  d/2)2  -  d/2a)2  (1  +  a 2))/V  (07) 

t  =  jS,  (  ^  ♦  fff  <°  *  d/2>2  -  7l*a2  )  (C.8) 

Since  a  <<  1  and  (2a/d)(D  +  d/2)  <<  1,  Equation  07  can  be  approx¬ 
imated  as 


t  =  (aD/V)  (1  +  D/d  -  a2D3/d3  -  2a2D2/d2)  (09) 

Equation  09  illustrates  that  the  trigometric  approximation  sug¬ 
gested  by  Figure  04  is  useful  if  D  <  d.  However,  if  D  >  d  then 
t  =  aD/V  is  much  too  conservative,  and  one  does  not  recognize  the  true 
value  of  intermediate  plane  projections.  Equations  08  and  09  * 

suggest  the  normalized  parallax  equations 

Vt/aD  =  1  +  D/d;  for  d  »  2aD  (010) 


and 


Vt/D  =  1;  for  2aD  »  d  (Oil) 

where 

a  =  display  limited  parallax  parameter  [radian] 

V  =  eye's  speed  [meter/second] 
d  =  separation  between  planes  [meter] 

D  =  distance  from  eye  to  nearest  visible  point  on  the  nearer 
plane  [meter] 

t  =  minimum  time  to  move  to  a  position  where  display  limited 
parallax  occurs  [second] 
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Figure  C-4. 


Motion  from  E  to  P  Achieving  Display  Limited  Parallax. 


Projection  Plane  Parallax 

Given:  Equations  C-10  and  C-ll,  Figure  C-4  and  the  projection 

planes  illustrated  in  Figure  C-5. 
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Figure  C~5.  Projection  Planes. 


Problem:  Determine  the  minimum  time  to  parallax  onset  as  a  function 
of  a,d,D,V  and  4*. 

Solution:  Equation  010  indicates  the  soonest  that  parallax  onset 

can  occur,  t  ,  for  points  P  and  Q  of  Figure  05  is 

approximately 

t  =  aD(l  +  D/d)/(V  cos  HO  ;  for  d  »  2aD  (C-12) 

KM 

Equation  C-ll  indicates  the  soonest  that  parallax  onset  can  occur 
is  approximately 

t  =  D/(V  cos  V)  ;  for  2aD  >>  d  (013) 

Equations  C-12  and  013  show  that  an  analysis  for  determining  the 
closest  spacing  between  intermediate  projection  planes  is  obviously: 

1.  Identify  the  orientation  of  the  projection  planes. 

2.  Determine  the  distance,  D,  to  the  nearest  projection  plane. 
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3.  Given  the  display's  parallax  limit,  a,  determine  the  loca¬ 
tion  of  the  next  projection  plane  such  that  the  time,  t,  to 
update  the  projection  planes  is  the  desired  number  of  dis¬ 
play  updates  (i.e. ,  allowing  one  to  save  the  scene's  data 
on  the  projection  plane  without  need  to  recalculate  the 
scene). 

However,  we  also  wish  to  know  the  shape  of  an  "optimum  surface", 
such  that  parallax  occurs  simultaneously  over  two  "optimum  surfaces" 
for  given  motion  vection  V.  With  such  a  surface  one  can  clearly 
define  the  construction  of  intermediate  projection  surfaces  as  a 
function  of  eye  location,  E,  and  eye  motion,  V.  A  simpler  problem 
which  clearly  has  a  solution,  illustrated  by  Figure  05,  is  the  deter¬ 
mination  of  parallax  onset  for  points  p,  q  as  a  function  of  the 
angles:  4>,  which  defines  eye  motion  direction  and  4*,  which  defines  the 
p,  q  orientation  to  E.  This  simpler  problem  will  be  solved  next. 

Parallax  Onset  Time  as  a  Function  of  Eye  Motion  Direction 

Given:  Figure  05  defining  eye  motion  relative  to  two  arbitrary 

points  p,q  on  intermediate  projection  planes  a  distance  d 
apart  and  Equation  06  defining  the  equal  parallax  locus. 

Problem:  Determine  the  actual  time,  t,  when  parallax  onset  occurs  as 
a  function  of  a.D.d^,  and  V. 

Solution:  The  equation  for  the  line  through  E  along  V  in  Figure  05  is 

R  =  Y/sin4>  =  (X-D-d/2)/cos«J>  (014) 

where  R  is  the  range  or  distance  from  E  to  the  locus  of  constant 
parallax. 

The  equation  for  the  intercepted  locus  associated  with  points  A 
and  6  is 

X2  +  (Y  +  d/(2a))2  =  (d/2a)  2  (1  +  a2)  (015) 

Solving  for  the  negative  value  of  Y  possessing  the  smallest 
magnitude,  as  suggested  by  Figure  C_5,  in  the  neighborhood  of  point  B 
yields 

Y2/sin24>  +  Y((2D  +  d)/tan4>)  +  d/a)  +  D2  +  Dd  =  0  (016) 

or 
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Y  =  V((d  sin^4>)/(2a)+(D+d/2)  cos*  sin4>)^  -  D(D+d)sin^4> 


-  ((d  sin^4>)/(2a)  +  (D  +  d/2)  cos<l>  sin4>) 


(C-17) 


and  the  range  R,  is  thus 


R  =  -  J(( d  sin4>)/(2a)  +  (D  +  d/2)  cos<t>)2  -  D(D+d) 

+  (d  sin4>/(2a)  +  (D+d/2)  cos4>  (C-18) 

We  are  interested  in  the  case 

(d  sin4>/(2a)  +  (D  +  d/2)  cos#)2  >>  D(D+d)  (C-19) 

which  yields  an  approximation  for  R 

R  =  D(D+d)/((d  sin#)/a  +  (D+d)  cos«i>)  (C-20) 

since  we  expect  computer  generated  imagery  to  yield  a  «  1/100  and 
<l>  »  1/100.  This  approximation  to  R  is  exact  at  the  limits  4>  =  0  and 
<t>  =  n/2.  Equation  C-20  may  be  put  in  the  form  of  Equation  C-9  for 
determining  parallax  onset  of  the  points  A  and  B  in  Figure  C-5. 

tAB  =  ^(1  +  D/d)  /  (sin#  +  a  (1  +  D/d)  cos«J>)  (C-21) 

The  general  formula  for  parallax  onset  of  points  p  and  q  in  Figure  C-5 
can  be  obtained  from  Equations  C-12  and  C-21. 

lpq  =  VT3T»  (1  +0/d)/(sin  (♦  ♦  T) 

+  a(l  +  D/d)  cos  (4>  +  Y);  for  d  >  2aD  (C-22) 

Equation  C-22  allows  one  to  solve  for  optimum  surfaces  through  A  and  B 
such  that  parallax  is  achieved  simultaneously  at  all  points  on  the 
surface.  The  optimum  surfaces  will  next  be  determined.  Since  a  ~  0, 
let  <t>  =  n/2.  Define  D,  and  d|  distances  along  the  line  from  E  to  the 
optimum  surfaces  as  shown  in  Figure  C-6. 
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Equating  t  and  t^g  to  determine  the  optimum  surface  yields 


aD(l  +  D/d)/V  =  aD1(l  +  Dj/d-^/UV  cos4»)(sin(n/2  +  V)) 

+  a(l  +  D1/d1)  cos  (n/2  +Y));  for  d  >  2aD  (C-23) 

Now  and  dp  can  be  approximated  in  terms  of  D,  d,  and  as 
D(1  +  D/d)  =  (D1/cos2Y)  (1  +  D1/d1)/(l  -  a(l  +  D^d^tanV); 


for  d  >  2aD  (C-24) 

If  we  further  restrict  ourselves  to  the  case  where 

1  >  a(l  +  Dj/dj)  tan  (C-25) 

which  covers  all  regions  of  interest,  then  Equation  C-24  yields 
D,  =  D  cos^f 


d^  =  d  cos2'!' 


;  for  d  >  2aD 


(C-26) 
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Figure  C-7  is  a  plot  of  some  optimum  parallax  surfaces  such  that 
all  points  on  the  surface  would  simultaneously  need  to  be  reprojected 
due  to  motion  V,  as  in  Figure  C-6.  The  constant  update  implies 


Vt/a  =  Do(l  +  bQ)  =  D1(l  +  bx)  =  ...  =  Dn(l  +  bn) 


(C-27) 


where 


Dq  is  the  distance  to  the  original  surface,  normal  to  the  direction  of 
motion. 

D-^  =  DQ+d  is  the  distance  to  the  next  surface,  normal  to  the  direction 
of  motion. 


bo  =  V<D1  -  Do> 

bn  =  -  Dn> 


(C-28) 

(C-29) 


Hence,  given  D  and  b  one  can  iteratively  determine  b- ,  D-. 

°  0  -  C  K  -  c  1  • 


Figure  C-7  is  plotted  for  Do  ^o 


TABLE  C-l.  DATA  FOR  FIGURE  C-7. 


cos^F 

°o 

°i 

°2 

°3 

°4 

0 

1 

5 

6 

7.5 

10 

15 

10 

.  969846 

4.85 

5.82 

7.27 

9.70 

14.55 

20 

. 883022 

4.415 

5.30 

6.62 

8.83 

13.25 

30 

.750 

3.75 

4.50 

5.625 

7.50 

11.25 

40 

.  586824 

2.93 

3.52 

4.40 

5.87 

8.80 

50 

.413176 

2.066 

2.48 

3.10 

4.13 

6.20 

60 

.250 

1.25 

1.50 

1.875 

2.50 

3.75 

Figure  C-7  suggests  that  two  planes  will  simply  bound  the  optimum 
surfaces.  The  optimum  surface,  initially  at  distance  DQ  from  E  can  be 

approximated  by  plane  p^  normal  to  the  X  axis  and  plane  normal  to 

the  Y  axis.  The  parallax  update  rate  is  guaranteed  to  be  less  at  all 
points  on  planes  p^  and  not  coincident  with  the  optimum  surface  but 

nearer  to  the  eye,  than  at  points  coincident  with  the  optimum  surface. 
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Figure  C-7. 

Surfaces  of  Constant  Parallax  for  Motion  of  E  Along  the  Y  Axis. 


The  distance  to  plane  q,  from  E  in  terms  of  0Q  can  be  determined 
as  follows: 

1.  Y  =  Dqcos2H'  si  rtf 

2.  dY/dt  =  0  =  cosV2  cos'F  sin2*? 

3.  cos2V  =  2/3 

4-  Ymax  =  2V<^>  =  °-385Do 

One  can  use  Figure  C-7  to  estimate  the  location  of  the  first 
vertical  projection  plane  on  a  flat  earth  database  when  one  is  moving 
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parallel  to  the  earth.  For  instance,  if  DQ  represents  the  distance  of 

E  above  earth,  such  that  the  desired  interval  between  reprojection  of 
the  scene's  database  onto  the  flat  earth  plane  is  p^,  then  the  corres¬ 
ponding  vertical  plane  need  be  no  nearer  to  the  nadir  than  0.385D  to 
define  plane  q^.  0 

Equations  C-27  through  C-29  can  be  used  to  develop  a  sequence  of 
distances  corresponding  to  Dg,  D^,  . . .  D_m  in  Figure  C-7.  The  dis¬ 

tances  D_1#  D_2»  D_m  correspond  to  planes  nearer  the  eye,  E,  but 

maintaining  a  constant  rate  for  plane  update  to  eliminate  the  effect 
of  parallax.  Table  C-2  contains  the  sequence  of  D^,  ...  starting 

with  scaled  to  3000.  For  example,  when  n  <  -10  the  spacing  between 

adjacent  projection  planes  is  less  than  13  units  and  eventually 
approaches  the  scene's  resolution. 

Table  C-2  indicates  a  limit  to  the  use  of  projection  planes. 
Further,  Table  C-2  indicates  that  one  should  calculate  the  sequence  of 
projection  planes  by  starting  with  0&  or  the  last  plane  and  deter¬ 
mining  the  intermediate  projection  planes  iteratively,  moving  from  the 
horizon  toward  the  eye,  until  the  space  between  the  planes  nearly 
matches  the  hierarchy  resolution  for  the  display  limited  resolution. 


TABLE  C- 
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2.  SCALED  DISTANCE  TO  A  PROJECTION  PLANE  PARALLEL  TO  EYE 
MOTION,  FOR  CONSTANT  PARALLAX  UPDATE  RATE 


n 

D„  =  3000/b  , 

b 

n  n-1 

n 

length 

dimension! 

5 

0 

4 

1500.0 

1 

3 

.  BTiTSTHfiv 

2 

2 

750.0 

3 

1 

600.0 

4 

fwl 

500.0 

5 

-1 

428.6 

6 

-2 

375.0 

7 

-3 

333.3 

8 

-4 

9 

-5 

272.7 

-6 

250.0 

11 

-7 

230.8 

12 

-8 

214.3 

13 

-9 

14 

187.5 

15 
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APPENDIX  D 
POLYNOMIAL  DATABASES 


This  appendix  develops  formula  for  interpolating  a  single  value 
function  f(X,Y)  over  a  regular  square  grid  on  (X,Y).  Figure  D-l 
illustrates  the  regular  square  grid,  identifies  the  grid  points  by 
numbers  and  the  square  grid  regions  by  letters.  Let  grid  point  8  have 
coordinates  (X0,YQ)  and  let  a  grid  length  be  d.  Figure  D-l  shows 

Region  C  with  vertices  8,4,5  and  9,  where  point  5  has  coordinates 
(X0+d,YQ+d).  The  Regions  A  through  E  are  called  patches. 


Y 


Figure  D-l.  Definition  of  Square  Grid. 


The  purpose  of  this  appendix  is  to  develop  a  regular  family  of 
polynomials  based  upon  sampled  data  at  the  point  1  through  12,  for 
interpolating  f(X,Y)  over  the  Region  C.  The  goals  of  the  interpola¬ 
tion  polynomial  development  are: 
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1.  The  set  of  formula  must  be  simple  to  evaluate. 

2.  The  coefficients  of  the  polynomial  interpolation  formula 

must  be  simple  to  evaluate. 

3.  The  family  of  interpolation  formulas  should  offer  a  method 

for  regularly  increasing  the  degree  (complexity),  so  that 

one  can  evaluate  the  trade-off  between  sample  point  spacing 
and  interpolation  formula  complexity. 

4.  Adjacent  patch  functions  must  match  on  common  boundaries 
such  as  A-C,  C-D,  and  B-C  as  shown  in  Figure  D-l. 

5.  As  the  degree  of  the  polynomial  increases,  the  partial 

derivatives  of  the  patch  formula  should  approach  each  other. 
(It  appears  that  the  Overhauser-Coons  bi-cubic  patch  is  the 
lowest  order  polynomial  allowing  continuity  in  function  and 
slope  across  patch  boundaries). 

Polynomial  Family  Development 

The  simplest  interpolation  formula  which  satisfies  the  goals  is: 

P0(X,Y)  =  UQ0  ♦  U10(X-Xo)  ♦  UQ1  (Y-Yq)  -  Un(X-Xo)(Y-Yo)  (D-l) 

where 

XQ  is  the  value  of  X  at  points  (1,4,8,11) 

Yq  is  the  value  of  Y  at  points  (7,8,9,10) 

U00  =  f8 

U10  =  (f9  '  f8)/d 

U01  =  (f4  -  f8)/d 

Un  =  <f5  -  f4  -  f9  +  f8)/d2 

f.  is  the  value  of  f(X,Y)  at  point  i 

d  is  the  length  of  any  side  of  the  grid 

Interpolation  formula  1  given  by  Equation  D-l,  requires  at  most  four 
multiplications  and  five  additions  for  evaluation.  P  can  be 
rewritten: 

P0(X,Y)  =  UQ0  ♦  (X-Xo)(U10  +  Uu  (Y-Yq))  ♦  UQ1  (Y  -  .Y0)  (D-2) 

P0(X,Y)  =  UQ0  ♦  (Y  -  Yo)  (UQ1  ♦  Uu  (X-XQ))  ♦  U1Q  (X-XQ)  (D-3) 
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1 


* 


I 


Then  the  evaluation  of  P  (X,Y)  requires  five  additions  and  three 
multiplications.  0 

The  generation  of  the  terms  producing  the  next  level  of  com¬ 
plexity  appears  to  rest  on  some  level  of  insight.  If  we  classify 
formula  1  as  linear  or  first  order,  then  the  next  level  of  complexity 
would  be  quadratic  or  second  order.  Further,  the  form  of  a  simple 
function  will  be  such  that  terms  which  add  to  the  formula  complexity 
on  boundaries,  such  as  A-C  and  C-E,  produce  no  contribution  to  the 
formula  on  orthogonal  boundaries  (i.e.,  B-C  and  C-D  shown  in 
Figure  D-l).  One  next  level  term,  D22  for  formula  1  which  satisfies 
these  requirements  is: 

D22(X,Y)  =  (X-X0)(X-X1)(aQ  +  ai(Y-Yo»  +  (Y-Y^fY-Y^ 

(bQ  +  b1(X-XQ))  +  d(X-X0)(X-X1)(Y-Y0)(Y-Y1)  (D-4) 

The  form  of  the  polynomial  along  any  four  point  boundary  line  in 
Figure  D-l,  such  as  (3, 4, 5, 6)  is  cubic.  Hence,  other  next  level  terms 
are: 


°32  =  (X-X0)(X-X1)X-X2)(a0  +  (Y-Yfl))  +  (Y-Yq)(Y-Y1)(Y-Y2) 

(b0  +  b1  (X-X0))  +  d(X-X0)(X-X1)(Y-Y0)(Y-Y1)  (D-5) 

and 

°33  =  (X-X0)(X-X1)(X-X2)(a0  +  a^Y-Y^  *  a2(Y-Yo)(Y-Yx))  ♦ 
(Y-Y0)(Y-Y1)(Y-Y2)(b0  +  b1(X-X0)  +  b^X-X^X-X^) 

+  d(X-Xo)(X-X1)(Y-Y0)(Y-Y1)  (D-6) 

where 

(XX,YX)  is  the  coordinate  of  point  5 

(Xx,Y2)  is  the  coordinate  of  point  2 

(X2,Y1)  is  the  coordinate  of  point  6 

D31  is  DX2  without  the  d  term. 

A  next  level  of  complexity  term,  say  D2X,  can  also  be  generated  by 
neglecting  the  d  coefficient  in  Equation  D-4  for  D22- 

All  these  terms  are  symmetric  in  X  and  Y,  that  is  equal  order  of 
complexity  for  X  and  Y  polynomials  in  provided.  Further,  a  progres¬ 
sion  of  more  complex  polynomials  exists  as  follows: 
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1. 

P0(X,Y) 

2. 

PX(X,Y)  = 

p0(X,Y)  +  D21(X,Y) 

3. 

P2(X,Y)  = 

P(X  ,Y)  +  D22(X,Y) 

4. 

P3(X,Y)  = 

PX(X,Y)  +  D31(X,Y) 

5. 

P4(X,Y)  = 

PX(X,Y)  =  D32(X,Y) 

6. 

P5(X,Y)  = 

pi(X,Y)  =  D33(X,Y) 

7. 

P&  is  the 

Overhauser-Coons  formula 

Evaluation  of  the  Polynomial  Coefficients 

The  best  method  for  evaluation  of  all  the  coefficients  for  the 

formula  is  not  obvious.  However,  it  appears  that  the  terms  aQ,  ap  bQ 
and  bp  can  be  clearly  and  simply  evaluated.  The  procedure  follows 
from  the  need  to  match  boundary  conditions. 

The  evaluation  of  the  term  d  in  Equations  D-4  or  D-5  is  not 
obvious  nor  does  it  follow  from  matching  either  first  or  second  deriv¬ 
atives  at  verticies,  since  the  d  term  is  always  zero  at  the  verticies. 
Therefore,  this  appendix  will  describe  only  the  evaluation  of 
coefficients  aQ,  ap  bQ  and  b1  of  Equations  D-4  and  D-5,  allowing  one 

to  evaluate  and  compare  only  polynomials  P_.Pi,  Po  and  Pfi  of  the  set 
proposed. 

EVALUATION  OF  a  AND  a, 
o  1 

The  aQ  and  a1  coefficients  in  D22  or  D31  must  satisfy  boundary 

conditions  between  region  A-C  and  C-E.  Hence,  if  one  writes  the 
formula 

f(X,Yj)  for  the  line  3, 4, 5, 6  as 

f(X,Yi)  =  rQ  +  r1(X-XQ)  +  r2(X-XQ)(X-X1)  +  r3(X-X0)(X-X1)(X-X2>  (D-7) 

Likewise,  for  the  line  7,8,9,10 

f(X,YQ)  =  +  VX-y  +  yX-XoKX-Xi)  +  t3(X-Xo)(X-X1)(X-X2)  (D-8) 

The  terms  r  ,  r, ,  t_,  and  t,  are  clearly  satisfied  by  polynomial 
P0(X,Y).  olo  l 
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Hence,  it  is  obvious  that  Equations  D-4,  D-7  and  D-8  yield 


a0  =  l2 


al  =  <r2"t2)/(Yl'Vo)  =  <r2't2)/d 
while  Equations  D-5,  D-7  and  D-8  yield 


ao  = 

al  =  (r3_t3)/d 


(D-9) 
(D- 10) 


(D~ 11) 
(D-12) 


By  expressing  the  polynomials  in  the  form  of  Equations  D-7  and 
D-8,  rather  than  powers  of  X  and  Y,  we  have  allowed  insight  to  show 
obvious  conditions.  Hopefully,  this  technique  will  also  yield  simple 
(if  not  the  simplest)  coefficient  evaluation  procedure. 

EVALUATION  OF  b  AND  b, 
o  1 

If  we  define 

f(Xl’Y)  =  %  +  <*1<Y"Y0>  +  VY-V(YV  +  c*3y_y)  (  y_  yi)  (y_y  2^  (0-13) 


f(X0,Y)  =  sQ  +  s^Y-Y^  +  S2(Y-Y0)(Y-Y1)  +  s3(Y-Yo)(Y-Y1)(Y-Y2)  (D-14) 
Then  Equations  D-4,  D-13  and  D-14  yield 


bo=  s2 


bl  =  *q2  '  s2^d 

while  Equations  D-5,  D-13  and  D-14  yield 


b  =  s, 
O  3 


bl  =  (<^3  '  s3)/d 

EVALUATION  OF  q,r,s  and  t  COEFFICIENTS 


(D-15) 

(D-16) 


(D-17) 

(D-18) 


The  coefficients  tQ,  t^,  t2  and  t^  relate  to  the  line  (7,8,9,10) 

of  Figure  D-l.  The  t  coefficients  can  be  evaluated  in  order,  with  the 
result: 


lo  =  f0 


h  =  <Vf8)/d 


(D-19) 

(D-20) 
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h  =  (fl 0  '  f8  -2(f9-f8))/(2d2)  (D-21) 

which  reduces  to 

t2  =  (f10-2fg  +  fg)/(2d2)  (D-22) 

t3  =  (f7  -  f8  +  (VV  '  (fio"2Vf8))/('6d3)  (D'23) 

which  reduces  to 

t3  =  -(f7-3fg  +  3fg  -  f10)/(6d3)  (D-24) 


This  procedure  can  also  be  used  to  evaluate  the  q,r,  and  s 
coefficients  along  their  respective  line  boundaries.  The  result  is: 

ao  =  f9 

Ql  =  (f5-fg)/d 

q2  =  (f2-2f5  +  fg)/2d2 

q3  =  (f12  -  3fg  +  3f5  -  f2)/(6d2) 
ro  =  f4 

rl  =  (Vf4)/d 

r2  =  (V2f5  ♦f4>/<2d2> 

r3  =  (f3-3f4  *  3f5-f6)/(6d3) 

so  =  f8 

S1  =  (f4-f8)/d 

s2  =  <fl‘2f4  *  f8>/2d2) 

s3  =  (fn-3fg  +  3f4  -  f1)/(6d3) 

At  this  point  it  is  clear  that  formula  P3(X,Y)  allows  one  to 

match  the  cubic  functions  on  all  boundaries  and  to  guarantee  that  the 
partial  derivatives  of  P3(X,Y)  at  the  four  vertices  (4, 5, 8, 9)  will 

also  match  the  original  cubic  functions.  Hence,  formula  Pg(X,Y) 
appears  to  be  a  good  candidate  for  further  study. 
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APPENDIX  E 

ARBITRARY  EYE  ORIENTATION 


The  display  consists  of  a  rectangle  defined  by  four  corners,  Cl 
through  C4  as  shown  in  Figure  E-l.  The  points  1'  through  4'  correspond 
to  Cl  through  C4  when  Cl  through  C4  are  projected  to  the  X-Y  plane 
along  the  Z  axis.  Hence  for  Cl  =  (X1,Y1,Z1),  then  1'  =  (X1,Y1,0). 


z 


Figure  E-l.  Display  Plane  Dropped  to  XY  Plane. 
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Figure  E-2  illustrates  the  four  corners,  1'  through  4',  on  the 
X-Y  plane  in  relation  to  a  nadir  n,  and  the  display  center,  C. 


Y 


Figure  E-2. 

Illustration  of  Dropped  Display,  Dropped  Display  Center,  C,  and  a  Nadir 

This  Appendix  develops  an  algorithm  for  determining  the  follow¬ 
ing: 

1.  Is  the  nadir,  n,  inside  the  dropped  display  rectangle? 

2.  If  the  nadir  is  outside  the  dropped  display,  then  what  lines 
defined  by  what  corners,  bound  the  scene  in  the  X-Y  plane? 
(i.e.,  lines  4'-n  and  l'-n  bound  the  scene  in  Figure  E-2). 
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Problem:  The  current  REAL  SCAN  software  only  allows  eye  orientations 

in  which  the  lower  bound  line  is  always  between  corners  3 
and  4  in  Figure  E-l.  It  is  desired  to  have  the  capability 
of  computing  the  scene  for  any  arbitrary  eye  orientation. 


Solution:  Figure  E-3  depicts  the  location  of  the  nadir  relative  to 
the  four  dropped  screen  corners.  There  are  nine  possible 
locations  for  the  nadir  (labeled  A-I)  in  Figure  E-3  for  the 
eye  above  the  screen. 


G 

C 

F 

2 

l 

D 

I 

B 

3 

4 

H 

A 

E 

Figure  E-3.  Nine  Possible  Nadir  Locations. 


The  four  screen  corners  are  labeled  from  1  to  4  in  a  counter 
clockwise  manner.  Corner  2  corresponds  to  the  pixel  location  (1,1) 
and  corner  4  corresponds  to  the  pixel  location  (NX, NY). 

Figure  E-3  illustrates  the  five  basic  nadir  locations  which 
determine  the  scan  line  sequence.  These  five  basic  situations  are 
shown  in  Figures  E-4  through  E-8. 
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4 
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1 

4 

2 

n 

3 

1 

4 

n 

2 

3 

Figure  E-4 

Nadir  Outside  Screen  Footprint. 
(1  lower  bound  line) 


Figure  E-5 

Nadir  Outside  Screen  Footprint. 
(2  lower  bound  lines) 


Figure  E-6 

Nadir  Inside  Screen  Footprint. 


Figure  E-7 

Nadir  On  Screen  Boundary  Line. 
(1  lower  bound  line) 


Figure  E-8 
Nadir  =  Corner 


Figure  E-3  suggests  a  separation  into  three  cases  for  the  nine 
possible  nadir  locations.  There  is  an  edge  case  (A,B,C,D),  a  corner 
I  case  (E,F,G,H)  and  inside  case  (I).  Figure  E-4  corresponds  to  the 

edge  case,  Figure  E-5  corresponds  to  the  corner  case,  and  Figure  E-6 
corresponds  to  the  inside  case.  Two  other  cases  exist.  These  cases 


I 
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correspond  to  the  nadir  falling  either  on  one  or  two  of  the  lines  that 
bound  the  nine  regions  of  Figure  E-3.  Figure  E-7  corresponds  to  the 
case  where  the  nadir  falls  on  one  region  separation  line,  while 
Figure  E-8  corresponds  to  the  case  where  the  nadir  falls  on  one 
display  corner. 

The  location  of  the  nadir  can  be  found  by  taking  the  cross  pro¬ 
ducts  of  adjacent  corners.  Table  E-l  identifies  the  sign  of  the  cross 
product  for  all  nine  nadir  locations,  when  the  eye  is  above  the 
screen.  If  the  eye  is  below  the  screen,  then  all  signs  are  reversed. 


TABLE  E-l.  CROSS  PRODUCT  SIGNS  WITH  THE  EYE  ABOVE  THE  SCREEN 


NADIR 

CROSS 

PRODUCT 

SIGNS 

BOUNDING 

LOCATION 

4x1 

1x2 

2x3 

3x4 

CORNERS 

A 

+ 

+ 

+ 

. 

3,4 

B 

- 

+ 

+ 

+ 

4,1 

C 

+ 

- 

+ 

+ 

1,2 

D 

+ 

+ 

- 

+ 

2,3 

E 

- 

+ 

+ 

- 

3,4,1 

F 

- 

- 

+ 

+ 

4,1,2 

G 

+ 

- 

- 

+ 

1,2,3 

H 

+ 

+ 

- 

- 

2,3,4 

I 

+ 

+ 

+ 

+ 

1,2, 3, 4 

Table  E-l  suggests  that  one  can  determine  a  logical  corner  test 
via  a  Karnaugh  map.  Figure  E-9  is  a  Karnaugh  map  with  the  four  cross 
products  as  independent  variables  and  the  bounding  corners  as  depen¬ 
dent  variables  labeled  on  the  map.  To  further  facilitate  the  transla¬ 
tion  from  Table  E-l  to  Figure  E-9  the  nadir  location  is  also  labeled 
on  the  Karnaugh  map.  Figure  E-9  is  the  corresponding  Karnaugh  map  for 
the  eye  below  the  screen  center. 
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Figure  E 

-9.  Eye  Above  the  Screen  Conditions. 
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Figure  E-10.  Eye  Below  the  Screen  Conditions. 


The  Karnaugh  maps  yield  the  following  corner  tests  to  define  the 
field  of  view  lower  boundary: 


1.  Corner  =  1  if 
(1x2)  is  true. 

the 

EXCLUSIVE 

OR 

of 

the 

signs 

of 

(4x1) 

and 

2.  Corner  =  2  if 
(2x3)  is  true. 

the 

EXCLUSIVE 

OR 

of 

the 

signs 

of 

(1x2) 

and 

3.  Corner  =  3  if 
(3X4)  is  true. 

the 

EXCLUSIVE 

OR 

of 

the 

signs 

of 

(2x3) 

and 

4.  Corner  =  4  if 
(4x1)  is  true. 

the 

EXCLUSIVE 

OR 

of 

the 

signs 

of 

(3x4) 

and 

Further,  an  intermediate  corner  contributes  to  defining  the  lower 
bondary,  as  shown  in  Figure  E-5,  if  the  following  conditions  are 
satisfied: 
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1.  Center  point  =  1  if  the  eye  is  above  the  screen  and  ((4x1)  < 

0)  and  ((1x2)  <  0)  or  if  the  eye  is  below  the  screen  and 

((4x1)  >  0)  and  ((1x2)  >  0). 

2.  Center  point  =  2  if  the  eye  is  above  the  screen  and  ((1x2)  < 

0)  and  ((2x3)  <  0)  or  if  the  eye  is  below  the  screen  and 

((1x2)  >  0)  and  ((2x3)  >  0). 

3.  Center  point  =  3  if  the  eye  is  above  the  screen  and  ((2x3)  < 

0)  and  ((3x4)  <  0)  or  if  the  eye  is  below  the  screen  and 

((2x3)  >  0)  and  ((3x4)  >  0). 

4.  Center  point  =  4  if  the  eye  is  above  the  screen  center  and 
((3x4)  <  0)  and  ((4x1)  >  0)  or  if  the  eye  is  below  the  screen 
center  and  ((3x4)  <  0)  and  ((4x1)  >  0). 

One  may  note  that  the  nine  nadir  locations  in  Table  E-l  are  not 
expanded  to  new  cases  if  one  or  two  cross  products  are  zero  and  if  one 
assigns  a  positive  sign  to  a  zero  cross  product.  However,  the  two 
cases  illustrated  in  Figures  E-7  and  E-8  suggest  that  the  algorithm 
which  determines  the  nadir  location  and  hence,  accommodates  arbitrary 
eye  orientation  will  have  some  best  test  order.  That  order  appears  to 
be  as  follows: 

1.  Determine  the  four  cross  products. 

2.  Test  if  two  of  the  cross  products  are  zero.  If  two  cross 
products  are  zero  one  has  the  case  illustrated  in  Figure  E-8 
and  the  boundaries  of  all  the  scan  lines  are  well  defined. 

3.  If  two  of  the  cross  products  are  not  zero,  then  establish 
four  logical  variables  having  the  sign  of  the  cross  products 
(i.e.,  .TRUE,  corresponds  to  positive). 

4.  Use  the  Exclusive  OR  tests  to  determine  which  display  corners 
bound  the  scene. 

5.  Establish  four  logical  variables  which  EQUIVALENCE  the  sign 
of  each  cross  product  with  whether  the  eye  is  above  or  below 
the  screen  center  (i.e.,  the  new  variable  is  true  if  the  sign 
is  positive  and  the  eye  below  or  if  the  sign  is  negative  and 
the  eye  above). 

6.  Use  the  center  point  AND  test  to  determine  which,  if  any,  one 
display  corner  becomes  a  center  point. 

7.  If  there  is  no  center  point,  then  test  for  zero  of  the  cross 
product  of  the  two  corners. 
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8.  If  that  cross  product  is  zero,  then  the  nadir  is  inside  the 
footprint  as  per  Figure  E-3  case  I,  but  only  three  triangles 
of  scan  lines  need  be  created. 

9.  If  that  cross  product  is  not  zero,  then  one  of  the  cases  A 
through  D  of  Table  E-l  has  been  determined. 

10.  If  there  is  a  center  point,  then  initiate  a  set  of  tests  for 
cross  product  zeros.  The  first  test  checks  for  a  zero  cross 
product  for  one  corner  and  the  center  point.  If  a  zero 
results  then  that  corner  is  replaced  with  the  center  point, 
and  the  center  point  value  is  cleared  to  zero  indicating 
cases  A  through  0.  If  the  first  test  does  not  yield  a  zero 
cross  product  then  the  second  test  is  executed.  The  second 
test  checks  for  a  zero  cross  product  of  the  other  corner  and 
the  center  point.  If  this  cross  product  is  zero  then  the 
corner  is  substituted  and  the  center  point  cleared  as  in  the 
first  test. 

11.  If  neither  of  these  cross  product  tests  with  the  center  point 
yield  a  zero,  then  cases  E  through  H  of  Table  E-l  have  been 
determined. 

12.  Finally,  case  I  is  determined  if  all  the  above  tests  fail. 

One  should  note  that  case  I  cannot  be  tested  prior  to  cases  A 

through  H,  since  a  zero  cross  product  receives  a  positive 

sign,  which  make  steps  2  and  8  equivalent  to  case  I.  Case  I 
divides  the  scene  into  four  triangles,  Step  2  divides  the 
scene  into  two  triangles,  while  Step  8  divides  the  scene  into 
three  triangles. 

NPIX,  IASIX  SEQUENCE 

The  value  of  NPIX  and  IAXIS  must  be  identified.  NPIX  is  the  last 
pixel  value  for  the  scan  line  on  the  IAXIS  coordinate.  If  we  employ  a 
corner  counter  "KSC"  to  keep  track  of  the  actual  outer  screen  corner 

to  be  crossed  next*  then  we  can  use  KSC  to  identify  NPIX  and  IAXIS. 

Table  E-2  identifies  the  NPIX  and  IAXIS  values  for  each  value  of 
KSC  when  the  eye  is  above  the  screen.  Thus  each  time  an  outer  corner 
is  crossed,  KSC  will  be  updated  to  M0D(KSC,4)+1  and  the  corresponding 
values  of  NPIX,  and  IAXIS  are  found  by  a  table  lookup.  This  assumes 
that  the  scene  is  swept  from  the  corner  having  the  smaller  index 
toward  the  corner  with  the  larger  index. 
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TABLE  E-2.  NPIX  ANO  IAXIS  VERSUS  KSC. 


KSC  NPIX  IAXIS 

1  NX  1 

2  0  2 

3  0  1 

4  NY  2 
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APPENDIX  F 

IMPROVED  SCAN  LINE  INITIALIZATION  PROCEDURE 


This  Appendix  develops  a  scan  line  initialization  procedure  which 
efficiently  bypasses  the  near  field  scene.  Hence,  over  sampling  as  in 
the  case  of  looking  directly  down  at  the  scene  and,  over  testing  as  in 
the  case  of  looking  out  to  the  horizon  are  substantially  reduced.  The 
procedure  is  not  scene  dependent,  hence  an  arbitrary  single  valued 
elevation  will  still  be  faithfully  reproduced. 

Figure  F-l  illustrates  the  side  view  of  a  scan  line.  The  scan 
line  is  initiated  at  the  nadir  directly  below  the  eye.  The  scene  is 
calculated  for  each  world  coordinate  along  the  line.  Figure  F-2 
illustrates  the  width  of  a  scan  line.  The  scan  line  has  width  since 
we  seek  to  maintain  constant  display  resolution,  and  the  dimension  of 
a  world  area  which  projects  to  a  constant  display  resolution  area 
increases  with  range.  Figures  F-l  and  F-2  illustrate  that  the  angle 

subtended  by  a  pixel  is  B  =  ay/  +  yz  and  B  =  ay/h;  if  h  »  y 

or  B  =  a;  if  h  «  y. 


Figure  F-l.  Side  view  of  Scan  Line. 
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Figure  F-2.  Top  view  of  Scan  Line. 


Figures  F-3  and  F-4  illustrate  two  ways  of  representing  scan 
lines.  Figure  F-3  illustrates  a  correct  geometric  layout,  where  all 
scan  lines  converge  on  the  nadir.  Figure  F-4  spreads  the  scan  lines 
at  the  nadir  so  that  one  may  better  represent  detail  in  the  vicinity 
of  the  nadir.  Figure  F-4  suggests  an  improved  scan  line  initiation 
sequence  over  starting  each  scan  line  at  the  nadir.  Figure  F-4  does 
not  indicate  the  final  procedure  developed  in  this  Appendix,  but  it  is 
a  good  starting  point  for  describing  the  procedure's  development. 

Figure  F-4  suggests  that  the  first  scan  line  (1)  starts  at  the 
nadir  (i.e.  ,  left  boundary  of  Figure  F-4)  and  proceeds  to  scan  the 
screen  moving  toward  the  right.  The  next  scan  line  is  line  (2)  and 
starts  at  a  distance  of  h/8  from  the  nadir  and  an  angle  of  8a  from 
line  (1).  The  next  scan  line  is  line  (3)  which  starts  no  nearer  than 
h/4  to  the  nadir.  If  the  first  visible  points  having  distance  equal 
or  greater  than  h/4  from  the  nadir  along  lines  (1)  and  (2)  are  more 
distant  than  h/4,  then  line  (3)  starts  at  the  minimum  of  these  line 
(1)  and  line  (2)  start  distances.  Figure  F-4  also  illustrates  that 
after  line  (9)  has  been  swept  through  the  scene,  the  procedure  repeats 
with  line  (2)  now  becoming  line  (2').  The  new  line  corresponding  to 
(1)  is  line  (1'),  separated  from  (2  -  2')  by  angle  8  a.  Line  (1') 
starts  testing  the  scene  for  visible  data  at  the  nadir. 
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Figures  F-3  and  F-4  clearly  demonstrate  that  an  improved  scan 
line  initiation  procedure  is  possible.  The  problem  is  to  develop  the 
most  efficient  scan  line  initialization  procedure. 

Let  us  consider  one  more  example  of  an  improved  scan  line  initia¬ 
tion  procedure  before  developing  what  appears  to  be  the  most  efficient 
procedure.  Figure  F-5  illustrates  a  sequence  of  scan  lines  (1-1,  2-1, 
1-2,  and  2-2)  given  line  (1-0),  and  the  renaming  of  line  (1-2)  to  line 
1-0  so  that  the  procedure  repeats.  VI  and  VI'  represent  vector 
storage  of  data  needed  to  implement  the  scan  line  initialization 
procedure.  Figure  F-5  illustrates  the  following  procedure: 

1.  Given  vector  VI  for  line  (1-0).  Vector  VI  contains  the 
following  information: 

a.  The  location  of  the  first  visible  point  having  distance 
equal  or  greater  than  h/2  from  the  nadir,  say  Vl(h/2). 

b.  The  location  of  the  first  visible  point  having  distance 
equal  or  greater  than  h  from  the  nadir,  say  Vl(h). 

2.  Initiate  line  (1-1)  at  the  ICASE  axis  distance  from  the  nadir 

given  in  vector  Vl(h/2).  [Given  a  cartesian  coordinate 
system  on  a  plane  and  a  line  on  the  plane,  as  one  moves  along 
the  line,  incremental  distance  along  one  of  the  axes  will 

change  more  rapidly.  This  faster  changing  coordinate  axis  is 
called  the  ICASE  axis.] 

3.  Store  the  location  of  the  first  visible  point  along  line 

(1-1)  having  distance  equal  or  greater  than  h  from  the  nadir 
in  vector  VI',  say  VI '(h). 

4.  Calculate  the  scene  along  line  (1-1)  and  project  visible 

points  to  appropriate  buffer  locations. 

5.  Initiate  line  (2-1)  at  the  ICASE  axis  distance  given  by  the 
minimum  of  the  Vl(h)  and  Vl'(h)  distances  from  the  nadir. 

6.  Calculate  the  scene  along  line  (2-1). 

7.  Initiate  line  (1-2)  at  an  ICASE  axis  distance  of  one  unit 

from  the  nadir. 

8.  Store  the  location  of  the  first  visible  point  along  line 

(1-2)  having  distance  equal  or  greater  to  h/2  from  the  nadir 
in  vector  VI,  say  Vl(h/2). 

9.  Store  the  location  of  the  first  visible  point  along  line 

(1-2)  having  distance  equal  or  greater  to  h  from  the  nadir  in 
vector  VI,  say  Vl(h). 
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10.  Initiate  line  (2-2)  at  the  ICASE  axis  distance  given  by  the 
minimum  of  the  Vl(h)  and  VI '(h)  distances  from  the  nadir 
(i.e.,  the  ICASE  axis  is  either  an  X  or  Y  axis.  The  ICASE 
axis  has  the  smallest  angular  separation  from  the  scan  line.) 


11.  Line  (1-2)  now  corresponds  to  line  (1-0)  and  one  repeats 
steps  1  through  10  until  the  scene  has  been  calculated. 


VI 


VI1 


VI 


Let  us  compare  the  improved  scan  line  procedures  suggested  by 
Figures  F-4  and  F-5.  Figure  F-5  over  calculates  the  scan  line  length 
from  1  to  approximately  h/2  on  all  lines  corresponding  to  (1-0)  or 
(1-2).  The  angular  separation  between  all  scan  lines  is,  a,  the 
desired  resolution  for  both  Figure  F-4  and  Figure  F-5. 

Figure  F-4  illustrates  a  relatively  complex  initiation  procedure. 
If  the  starting  distances  correspond  to  distances  h/8,  h/4,  h/2,  and 
h,  then  it  is  clear  that  over  sampling  occurs  since  the  first  visible 
point  may  be  further  from  the  nadir.  However,  if  a  vector  memory, 
similar  to  that  used  for  Figure  F-5  is  considered,  then  the  dimension 
of  the  memory  appears  to  be  large. 

The  optimum  scan  line  initiation  procedure  is  illustrated  in 
Figure  F-6.  Only  one  vector  memory  is  required.  If  the  display 
accuracy  corresponds  to  1/1024  then  no  more  than  33  locations  are 
required  in  V,  the  vector  memory.  (11  point  locations,  where  each 
point  has  X,  V,  Z  axis  values  or  where  each  point  has  only  the  ICASE 
axis  value  and  Z  for  22  memory  locations.)  The  procedure  illustrated 
in  Figure  F-6  for  initiating  the  scan  lines  is  as  follows: 
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1.  Initiate  line  (1"0) 

a.  Store  the  location  of  the  first  visible  point  whose  dis¬ 
tance  is  equal  or  greater  than  Rh  from  the  nadir  into  V, 
say  V(Rh)  (R  corresponds  to  the  resolution,  for  example 
R  =  1/1024). 

b.  Continue  to  store  the  location  of  the  first  visible 
points  whose  distance  is  equal  or  greater  than  2nRh  from 
the  nadir  into  V(2nRh),  until  2nR  =  1. 

2.  Initiate  line  (1-1),  separated  from  line  (1-0)  by  angle  2a, 
at  the  ICASE  axis  distance  given  by  V(h/2).  Store  the  loca¬ 
tion  of  the  first  visible  point  whose  distance  is  equal  or 
greater  than  h  from  the  nadir  into  V(h'). 

3.  Initiate  line  (2-1),  midway  between  lines  (1-0)  and  (1-1)  at 
the  ICASE  axis  location  given  by  the  minimum  of  V(h)  and 
V(h').  Then  store  V(h')  into  V(h),  updating  the  vector  V. 

4.  Initiate  line  (1-2),  separated  from  line  (1-1)  by  angle  2a, 
at  the  ICASE  axis  distance  given  by  V(h/4).  Store  the  loca¬ 
tion  of  the  first  visible  point  whose  distance  from  the  nadir 
is  greater  or  equal  to  h/2  into  V(h/2).  Store  the  location 
of  the  first  visible  point  whose  distance  from  the  nadir  is 
greater  or  equal  to  h  into  V(h'). 

5.  Initiate  line  (2-2)  as  per  step  3  and  store  V(h')  into  V(h). 

6.  Succeeding  steps  are  as  illustrated  in  Figure  F-6,  following 
the  concept  laid  out  in  steps  1  through  5. 

Figure  F-6  illustrates  an  apparent  optimum  procedure  for  a 
general  scene.  The  minimum  memory  is  used,  and  no  scan  line  is 
started  nearer  the  nadir  than  required  to  guarantee  calculation  of 
telephone  pole  like  spikes  in  the  scene  having  resolution  equal  to  or 
better  than  a  pixel,  since  the  resolution,  R,  is  equal  to  or  less  than 
h  pixel  and  the  angular  resolution,  a,  is  also  equal  to  or  less  than 
h  pixel. 
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Figure  F-6.  The  Optimum 
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Scan  Line  Initiation  Procedure. 
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APPENDIX  G 

DISPLAY  PROJECTION  TO  FRACTIONAL  PIXEL  ACCURACY 


The  current  REAL  SCAN  algorithms  project  world  data  (i.e. ,  the 
scene)  to  the  512  x  512  pixel  display  via  a  Bresenham  type  algorithm 
operating  on  both  the  display's  X  and  Y  axes.  The  current  REAL  SCAN 
algorithm  does  not  resolve  to  subpixel  accuracy,  its  accuracy  is  ±  1/2 
pixel  of  the  projected  pixel  location. 

There  are  a  number  of  possible  projection  methods  for  achieving 
subpixel  accuracy.  All  of  the  projection  methods  investigated  in  this 
appendix  assume  that  one  axis  is  projected  from  the  scene  to  the 
display  with  subpixel  resolution.  The  other  axis'  coordinate  is  then 
derived.  Some  of  the  methods  for  deriving  the  other  axis'  coordinate 
are  as  follows: 

1.  Since  the  equation  for  a  line  on  the  display,  Y(X),  is 

Y  -  Yo  =  (AY/AX)  (X  -  XQ)  (G-l) 

one  can  continue  to  perform  multiplications  m(X-XQ)  to 

determine  the  other  axis,  Y.  The  following  symbol  notation 
is  used: 

AY/AX  is  the  slope  m,  of  the  line 

AX^ ,  AY.  are  increments  along  their  respective  axis 

2.  One  can  set  up  an  error  term 

Error  =  m  (Xi-XQ)  -  (Y.-Yo)  +  m  (X.+1-X.) 

such  that  the  error  term  becomes  (Y.^-Y.. ),  the  increment 

along  the  other  axis,  since  X  is  assumed  to  be  the  primary 
axis. 

3.  One  can  set  up  a  Bresenham  type  algorithm  of  the  form 

Error  =  (-(Y-Y  )  AX  +  (X-XQ)  AY)  2n  +  AY  2n_1 

where  n  is  the  number  of  bits  of  accuracy  (i.e.  ,  n  =  1  if  AX 
and  AY  are  expressed  as  an  integer,  while  n  =  3  if  X  and  Y 
are  expressed  on  a  grid  whose  dimension  is  1/4  pixel). 
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a.  A  divide  algorithm  can  be  set  up  making  use  of  the 
limited  accuracy.  For  instance  the  pseudo  FORTRAN  code 
below  relates  to  a  grid  of  1/4  pixel  dimension 

C  Initialize  IEEE  =  -AX*4 

C  Display  coordinates  (X,Y)  consist  of  an  integer  cat- 
C  enated  with  a  pseudo  2  bit  fraction.  Hence,  for  a  512  x 
C  512  display  the  minimum  integer  dimension  for  X  or  Y  is 
C  l(for  sign)  +  9  (for  display  dimention)  +  2(for  pseudo 
C  fraction)  =  12  bits. 

C  ITERATION 

IEEE  =  IEEE  +  AX  - *AY 

C  AX.  is  the  change  in  the  major  coordinate  axis  since  the 

C  last  iteration. 

C  AX.j  may  have  values  of  2,  3  or  4. 

IF(IEEE.GT.O)  THEN  !  1 
IEEE  =  IEEE  -  AX*4 
IF(IEEE.GT.O)  THEN  !  2 
IEEE  =  IEEE  ~AX*2 
IF(IEEE.GT.O)  THEN  !  3 
IEEE  =  IEEE  -AX*2 

Y  =  Y  +  INCY 

C  the  terms  AX*4,  AX*2,  INCY,  INCY/4,  INCY/2,  and  3INCY/4 
C  are  unique  constants 
ELSE  !  3 

Y  =  Y  +  3INCY/4 
END IF  !  3 

ELSE  !  2 

IEEE  =  IEEE  +  AX*2 
IF(IEEE.GT.O)  THEN  !  4 
IEEE  =  IEEE  -  AX/4 

Y  =  Y  +  INCY/2 
ELSE  4 

Y  =  Y  +  INCY/4 
ENDIF  !  4 

ENDIF  !  2 
ENDIF  !  1 

NOTE:  No  more  than  7  steps  are  required  to  complete 
this  effective  2-bit  division. 

b.  An  actual  divide  can  be  set  up  as  illustrated  in  the  following 
pseudo  FORTRAN  code 

C  ITERATION 

IEEE  =  IEEE  +  AX . *AY 

IF(IEEE.GT.O)  THEN  !  1 
AY.  =  (IEEE  +  AX/2)/AX 
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V  =  Y  ♦  AYi 
IEEE  =  IEEE  -AYi*AX 
ENDIF  !  1 

NOTE:  The  true  divide  algorithm,  item  3.b,  requires  5 
steps  to  determine  the  new  value  of  Y  whereas  the 
algorithmic  2-bit  resolution  divide,  item  3. a, 
requires  7  steps  without  recourse  to  a  divide 
operation. 

Hence,  it  appears  that  the  algorithm  for  calculating  the  display 
line  is  best  given  by  3. a  for  limited  resolution.  Actual  screen  pixel 
location  would  be  obtained  by  dividing  (X,Y)  by  4  (i.e.,  a  2  bit 
shift).  However,  the  subpixel  resolution  of  the  display  allows  one  to 
perform  final  display  filtering  based  upon  subpixel  point  spread 
filter  functions,  one  of  the  investigation  goals  of  this  research. 

Integer  display  screen  resolution  can  be  achieved  by  using  a 
display  screen  X  coordinate  with  pseudo  fractional  part,  yet  dealing 
with  a  display  screen  Y  coordinate  accurate  to  an  integer  pixel  ±  1/2. 
For  example,  FORTRAN  code  for  a  two-bit  X  fraction  and  an  integer  Y 
coordinate  is  developed  as  follows: 

1.  Let  X  =  N.F,  a  3  bit  integer,  then  N  =  0,  F  =  01  represents 
X  =  1/4. 

2.  Initialize  the  error  term,  IEEE  to  -AX*4 

3.  Iterate  IEEE  according  to  the  FORTRAN  formula 
IEEE  =  IEEE  +  (2*AY)  *  AXi  -(8*AX)  *AYi 

4.  Let  the  variables  (AX*4),  (2*AY),  and  (8*AX)  be  constants  of 
the  process. 

5.  Then  pseudo  FORTRAN  code  becomes 

IEEE  =  IEEE  +  (2*AY)  *AX. 

IF(IEEE.GT.O)  THEN  1 

IEEE  =  IEEE  -  (8*AX) 

Y  =  Y  +  INCY 
ENDIF 


243/244 


NAVTRAEQUIPCEN  80-0-0014-2 


APPENDIX  H 

IMPROVED  WORLD  TO  DISPLAY  PROJECTION 


This  Appendix  develops  an  improved  projection  algorithm  based 
upon  given  accuracy  requirements. 

Problem:  To  project  a  sequence  of  points  from  world  coordinates  to 

screen  coordinates  using  the  fewest  recurring  steps  in 
integer  arithmetic. 

Given:  (1)  the  accuracy  in  both  world  and  screen  coordinates; 

(2)  the  sequence  of  points  falling  on  a  line  cutting  the 
screen  and  on  a  plane  through  the  eye  nadir  axis. 

Solution:  Projection  to  the  screen  is  accomplished  by  a  two-step 
process.  First,  the  point  is  rotated  from  world  to  screen 
coordinates,  both  having  their  origin  at  the  eye.  Second, 
the  point  is  projected  to  the  screen  using  similar  triangle 
geometry. 

Given:  (Xp,Yp,Zp)w,  the  visible  point  in  world  coordinates 

(Xe,Ye,Ze)w,  the  eye  point  in  world  coordinates 

(Up,Vp,Wp),  the  visible  point  in  eye  centric  screen 
coordinates 

(Xs,Ys),  the  projection  of  the  visible  point  to  screen 
coordinates 

(R),  the  3x3  rotation  matrix  transforming  the  visible  point 
from  eye  centric  world  coordinates  to  eye  centric  screen 
coordinates 

The  rotation  matrix  coordinate  transformation  yields 


But  we  also  have  two  lines: 

(1)  The  line  on  the  screen  in  screen  coordinates 
Ys  =  Xs  *  ms  +  Yso 
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(2)  The  scan  line  on  the  world 


Yp-Ye  =  m(Xp-Xe) 

or  in  terms  of  the  scan  line's  horizon 
Yh-Ye  =  m(Xh-Xe) 


(H-4) 


Equation  H-3  suggests  Equation  H-l  may  be  written  for  R  =  (r-j)  as 


+  m*r 


12  '13 


Vp  =  r9,  +  m*r 


+  m*r 


22  '23 

32  r33 


[Xp-Xe] 

[zp-Zej 


(H-5) 


One  can  rename  the  rotation  matrix  for  this  2-D  to  3-D  transformation 
as  A  =  (a. j) 


_  fXp-Xe 
=  [A]  [Zp-Ze 


(H-6) 


Any  visible  point  projected  to  the  screen,  a  distance  h  from  the  eye 
must  satisfy 


Xs  _  -Ys 
Up  Wp 


(H-7) 


If  m  <1,  then  Xp-Xe  is  the  rapidly  changing  axis  (i.e. ,  termed  the 
ICASE  axis)  and  one  can  determine  incremental  changes  in  Xs  and  Ys 
given  incremental  changes  in  Xp  and  Zp  as  follows: 

1.  Use  Equations  (H-7)  and  (H-2)  to  solve  for  either  Ys  or  Xs 


Ys  =  Xs*ms  +  Yso  =  Xs*Wp/Up 


(H-8) 


Xs(ms*Up  +  Wp)  =  Yso*Up 

2.  Define  the  terms 

Up  =  Upo  +  AUp 
Wp  =  Wpo  +  AWp 
Xs  =  Xsold  +  AXs 

SAV1  =  ms*Upo  +  Wpo 
SA M2  =  ms*AUP  =  AWp, 


(H-9) 
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then  one  can  write  the  pseudo  FORTRAN  code  for  calculating  AXs  and 
iterating  the  terms  above 

SAV2  =  ms*AUp  +  AWp 

SAV1  =  SAV1  +  SAV2 

IEEE  =  IEEE  -  AUp*Yso  -  Xsold*SAV2 

AXs  =  IEEE/SAV1 

IEEE  =  IEEE  -AXs*SAVl 

Xsold  Xsold  +  AXs 

3.  Pseudo  FORTRAN  code  for  AYs  follows  from  Equation  (H-2) 
AYs  =  AXs*ms 

If  one  relates  the  accuracy  of  (Xs.Ys)  as  N.F  where 
|N|  s  2f 

m  *  r  <k  1, 

and  if  we  relate  Xg  with  the  fast  changing  axis,  Yg  with  the  slow 
changing  axis;  then  X  needs  (n+f)  bits  of  significance  where  Y 

J  3 

needs  (n2f)  bits  of  significance  to  account  for  roundoff. 

The  number  of  steps  for  determining  (AXs,  AYs)  can  be  reduced  by 
rewriting  Equation  (H-9)  in  terms  of  ground  coordinates  and  allowing  a 
floating  point  initialization. 

This  is  done  as  follows: 

1.  Combine  Equations  (H-9)  and  (H-5)  to  form 

Xs((ms  a^  +  a31)  (Xp-Xe)  +  (ms  a^  +  a^XZp-Ze)  = 

-Xso  (an  (Xp-Xe)  +  A12  (Zp-Ze)) 

where 

bll  =  ms  all  *  a31 
b12  =  *s  a12  *  a32 

2.  The  pseudo  FORTRAN  follows  the  definitions 
Xp-Xe  =  Xo  +  AXp 

Zp-Ze  =  Zo  +  AZp 
Xs  =  Xsold  +  AXs 
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SAV1  =  bn  *  Xo  +  b12  *  Zo 
SAV2  =  bn  *  AXp  +  b12  *  AZp 
SAV3  =  an  *  Xo  +  a12  *  Zo 
SAV4  =  an  *  AXp  +  a12  *  AZp 
which  yields  the  iteration 

SAV2  =  bn  *  AXp  +  b12  *  AZp 

SAV1  =  SAV1  +  SAV2 

SAV4  =  a^  *  AXp  +  a12  *  AZp 

SAV3  =  SAV3  +  SAV4 

IEEE  =  IEEE  -Yso*SAV3  -Xsold*SAV2 

AXs  =  IEEE/SAV1 

IEEE  =  IEEE  AXs*SAVl 

Xsold  =  Xsold  +  AXs 

AYs  =  AXs*ms 

Ys  =  Ys  +  AYs 

This  shows  that  projection  can  be  accomplished  with  eight  (8)  multi¬ 
plications,  9  add/subtracts(s)  and  one  f  bit  division.  This  is  less 
complexity  than  required  for  the  3x3  rotation  as  per  Equation  (H-l). 
The  number  of  bits  required  for  each  variable  is  shown  in  Table  H-l. 
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TABLE  H-l.  VARIABLE  RESOLUTION 

Variable  Resolution  for  N.F  Number 
Name  _  Bits 


AXs 

f 

AYs 

n  +  2f 

Ys 

n  +  f 

ms 

n  +  f 

a  _. . 

n  +  f 

ij 

b,. 

n  +  f 

ij 

AXp 

f 

AZp 

f 

SAV1 

2n  +  2f 

SAV2 

n  +  2f 

SAV3 

2n  +  2f 

SAV4 

n  +  2f 

Xsold 

n  +  f 

Yso 

n  +  f 

IEEE 

2n  +  3f 
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APPENDIX  I 

TERRAIN  MODELING  DISTRIBUTIONS 


This  Appendix  develops  three  redistributions  which  can  be  applied 
to  filtered  white  noise.  The  distributions  developed  allow  one  to 
control  the  relative  occurrence  of  terrain  elevations.  Hence, 
different  type  of  ground  cover  can  be  modeled. 

Triangular  Distribution 

A  triangular  distribution  has  the  general  frequency  diagram  shown 
in  Figure  1-1. 

y 


The  equations  describing  Figure  1-1  are 

y(x)  =  ax;  for  0  i  x  i  fR  (1-1) 

y(x)  =  b(R  -  x);  for  fR  s  x  i  R  (1-2) 


The  area  under  the  distribution  curve  is  AR/2,  but  since  this 
encompasses  all  points, 

AR/2  =  N2  (1-3) 

or 

A  =  2N2/R  (1-4) 
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Note  that  the  location  of  the  peak  does  not  effect  the  area 
calculation. 

Letting  NT ( i )  be  the  number  of  points  in  the  ith  bucket  covering 
the  interval  from  x  =  i  -  1  to  x  =  i  in  range  0  to  fR  (i.e.,  shaded 
area  in  Figure  1-1)  then 


NT(i)  =  J  ax  dx  (1-5) 

i-i 

NT ( i )  =  (a/2)(2i  -  1)  (1-6) 


Integrating  Equation  ( I- 1)  yields 
A  =  afR  or  a  =  A/fR 

i 


(1-7) 


Using  Equations  (1-7)  and  (1-4) 

a  =  2N2/(fR2)  (1-8) 

[  Therefore,  from  (1-6)  and  (1-8),  the  number  of  points  in  the  ith 

bucket  on  the  interval  0  to  fR  is 

NT ( i )  =  N2  (2i  -  l)/( f R2)  (1-9) 

Shifting  the  origin  to  x  =  R,  the  bucket  sizes  for  the  interval 
j  fR  to  R  can  be  computed 

NT ( i )  =  N2  (2i '  -  1)/((1  -  f)R2)  (1-10) 

where  i '  =  R  -  i  +  1. 


•  Therefore, 

NT ( i )  =  N2  (2R  -  2i  +  1)/((1  -  f)R2)  (1-11) 

on  the  interval  fR  S  i  i  R 

*  The  FORTRAN  code  that  computes  these  bucket  sizes  follows: 

C  IF RAC  =  f*R 
C  FRAC  =  f 
C  BUCK(I)  =  NT ( i ) 

C 

«  C  TRIANGLE 

C 

2101  TEMPI  =  (l.*N*N)/R"'*2 
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TEMP2  -  2*R  +  1 
DO  2111  I  =  1,R 

If (I. LE. IFRAC)THEN 

8UCK(I)  =  (2*1  -  1)*TEMP1/FRAC 

ELSE 

BUCK(I)  =  (TEMP2-2*I)*TEMP1/(1  -  FRAC) 

ENDIF 
2111  CONTINUE 
GOTO  2114 


Parabolic  Distribution 

A  split  parabolic  distribution  is  shown  in  Figure  1-2. 

y 


The  equations  describing  the  split  parabolic  distribution  are 
y(x)  =  ax(l  -  x/2fR) ;  for  0  5  x  S  fR  (1-12) 

y(x)  =  b(R-x)  [l-(R-x)/(2(l-f)R)];  for  fR  g  x  U  (1-13) 

O 

The  area  under  the  distribution  curve  is  2AR/3,  and  also  N  .  It 
follows  that 

A  =  3N2/(2R)  (1-14) 

Letting  NP(i)  be  the  number  of  points  in  the  ith  bucket,  for  the 
shaded  area  in  the  Figure  1-2,  which  is  in  the  interval  0  to  fR, 
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NP( i )  =  J  ax(l  -  x/2fR)  dx 
i-1 

NP( i )  =  ( a/2 ) ( 2 i  -  1)  -  (a/6fR)(3i2  -  3i  +  1)  (1-15) 

Integrating  Equation  (1-12)  yields 

A  =  afR/2  (1-16) 

and,  from  Equations  (1-14)  and  (1-16) 

a  =  3N2/(fR2)  (1-17) 


Therefore,  from  Equations  (1-15)  and  (1-17), 

NP( i )  =  (3N2/2fR)[2i-l-(3i2-3i+l)/(3fR)]  (1-18) 


Shifting  the  origin  to  i  =  R,  yields 

NP(i )  =  [ 3N2/ 2(1  -  f)R2](2i'-l-(3i'2-3i'+l)/[3(l-f)R])  (1-19) 

where  i'  =  R-i-1  in  the  interval  fR+1  S  i  %  R 

The  FORTRAN  routine  for  the  parabola  bucket  size  calculation 
follows: 

C  FRAC  =  f 
C  I FRAC  =  f*R 

C  BUCK(I)  =  NT ( i ) 

C 

C  PARABOLA 

C 

2102  TEMPI  =  (3. *N*N)/(2*R**2) 

DO  2112  I  =  1 , R 

IF(I. LE. IFRAC)THEN 

BUCK(I)  -  (TEMP1/FRAC)*(2*I-1-((1+3.*I*(I-1))/ 

(3.  *FRAC*R))) 

* 

ELSE 

TEMP2  =  R  -  I  +  1 

BUCK(I)  =  TEMP1/(1  -  FRAC ))*(2*TEMP2-l-(( 1+3 

*  *TEMP2*(TEMP2  -  1))/ 

*  (3. *(1  -  FRAC)*R))) 

ENDIF 

2112  CONTINUE 
GOTO  2114 
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Cusp  Distribution 

A  cusp  distribution  has  the  general  frequency  diagram  shown  in  Figure  I 


The  equations  describing  this  curve  are 

y(x)  =  ax2;  for  0  §  x  §  fR 

y(x)  =  a(R  -  x)2;  for  fR  $  x  £  R 

The  area  under  the  distribution  curve  again  corresponds  to  the 
total  number  of  points.  Therefore, 

N2  =  AR/3  (1-22) 

or 

A  =  3N2/R  (1-23) 

Letting  NC(i)  be  the  number  of  points  in  the  ith  bucket  on  the 
interval  0  to  fR  (i.e.  ,  shaded  area  in  Figure  1-3),  yields 

i  ? 

NC(i )  =  /  ax^  dx  (1-24) 

i-1 

NC(i)  =  (a/3)[ i 3  -  (i  -  l)3] 


(1-20) 

(1-21) 


(1-25) 
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Integrating  Equation  (1-20)  yields 

A  =  a(fR)2  (1-26) 

and  from  Equations  (1-23)  and  (1-26) 

a  =  3N2/(f2R3)  (1-27) 

Therefore 

NC(i )  =  N2( 3i 2  -  3i  +  l)/(f2R3)  (1-28) 

Shifting  the  origin  to  x  =  R, 

NC(i )  =  N2(3i'2  -  3i'  +  !)/[(!  -  f)2R3]  (1-29) 


where  i '  =  R  -  i  +  1  in  the  interval  fR  +  1  i  i  i  R 


The  FORTRAN  code  that  computes  the  bucket  sizes  for  the  cusp 
distribution  follows: 

C  FRAC  =  f 

C  I FRAC  =  fR 

C  BUCK(I)  =  NT ( i ) 

C 

C  CUSP 

C 

2103  TEMPI  =  (1,*N*N)/R/R/R 

DO  2113  I  =  1,R 

IF(I. LE. IFRAC)THEN 

BUCK(I)  =  (1  +  3. *I*(I  -  1))*TEMP1/(FRAC*FRAC) 
ELSE 

TEMP2  =  R  -  I  +  1 

BUCK(I)  =  (1  +  3*TEMP2*(TEMP2-1)) 

*  *TEMP1/((1-FRAC)*(1  -  FRAC)) 

ENDIF 

2113  CONTINUE 
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APPENDIX  J 
LOWER  BOUND 


PROBLEM:  Find  the  sequence  of  points  on  a  given  line  which 
subtend  a  constant  angle  from  a  point  not  on  the  line.  The  signi¬ 
ficance  of  this  problem  is  that  it  is  the  REAL  SCAN  prob1  “:m  for 
computing  the  lower  bound  points.  The  lower  bound  points  are  the 
intercept  of  the  lower  bound  line,  and  the  scan  lines,  which  subtend 
a  constant  angle  from  the  nadir. 

GIVEN: 

(1)  ANG  -  The  signed  angle  between  the  points  on  Line  1 
of  Figure  J-l. 

(2)  (XS,YS)  -  The  first  point  on  Line  1  of  Figure  .J-l. 

(3)  (XE,YE)  -  he  last  point  on  Line  1  of  Figure  J-l. 

(4)  (X,Y)  -  The  last  confuted  intercept. 

Figure  J-l.  Depicts  The  Problem  Statement. 
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SOLUTION: 

Two  solutions  have  been  generated.  SOLUTION  A  has  been  imple¬ 
mented  in  REM,  SCAN,  and  SOLUTION  B  has  not  been  inplemented. 

Both  solutions  solve  for  the  next  point  (X',Y'),  which  is  the 
intercept  of  Line  2'  and  Line  1  of  Figure  J-l.  This  Appendix 
compares  the  two  solutions  for  accuracy  and  simplicity. 

SOLUTION  A: 

Line  1  of  Figure  J-l  obeys  the  following  equation 

(X*  -  X)/K1  =  (Y*  -  Y)/K2  =  T  (J-l) 


where 


K1  =  XE  -  XS 

K2  =  YE  -  YS 

The  equations  for  the  particular  point  (X',Y')  on  Line  1  is 

X'  =  X  +  K1*T  (J-2) 

Y’  *  Y  +  K2*T  (J-3) 

The  derivative  of  tan$  with  respect  to  t  is 

d/dtCtann)  =  (d<f/dt)/  (cos$>)  2 

For  small  angular  changes,  since  t  =  0  for  the  point  (X,Y) 
d*/dt  =  ANG/T 

d/dt  (tan«J>)  =  (X’2  +  Y'2)  (ANG/T) /X' 2 

=  ( (X+Kl*t) 2  +  (Y+K2*t)2) (ANG/T)/X'2  (J-4) 

tan4>  can  also  be  defined  as 

tan<t>  =  Y'/X' 

Therefore,  another  equation  for  d/dt(tan$)  is 
d/dt(tan*)=  d/dt  (Y'/X* ) 

=  (X'*dY7dt  -  Y'*dX7dt)/(X'*X')  (J-S) 


From  equations  (J-2)  and  (J-3) 

dX7dt  =  K1 
dY7dt  *  K2 
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Therefore,  Equation  (J-5)  becomes 

d/dt(tan*)  =  (K2*X’  -  K1*Y')/(X'*X') .  (J-6) 

If  we  set  Equation  (J-4)  equal  to  Equation  (J-6),  and  evaluate 
t  at  T/2  then  ANC((X  +  Kl*T/2)**2  +  (Y  +  K2*T/2)**2)  =  T*(K2*X  - 
K1*Y) .  (J-7) 

Dropping  the  T  2  terms  and  solving  for  T  yields 

T  =  ANG*(X*X  +  Y*Y)/((K2*X  -  K1*Y)  -  ANG*(K1*X  +  K2*Y))  (J-8) 

Where  (K2*X  -  K1*Y)  is  a  constant  K  for  any  point  (X,Y)  on  Line  1 
of  Figure  (J-l) ,  throughout  the  iteration.  Therefore  T  is  of  the 
form 


T  =  M/(K  -  B)  where  B  =  ANG(K1*X  +  K2*Y) . 

If  K»B  then  1/ (K  -  B)  =  (1/K)*(1  +  B/K) 

Therefore,  T  i.  approximately 

T  *  (ANG/K) * (X*X  +  Y*Y)*(1  +  (ANG/K))  (K1*X1  +  K2*Y1)  (J‘9) 

We  can  now  solve  for  all  the  points  along  Line  1  iteratively  by 
solving  for  T  and  knowing  that 

X’  =  X  +  K1*T  (J-10) 

Y'  =  Y  +  K2*T  (.1-11) 

Then  we  let  X  =  X'  and  Y  =  Y'  and  solve  for  a  new  X’  and  Y' . 

This  solution  involves  9  multiplies  and  5  adds  to  compute  each 
new  lower  bound  point  (X',Y').  But  if  T  is  confuted  as  shown  in 
Equation  (J-12),  and  the  point  (X',Y*)  is  computed  by  Equations 
(J-13)  and  (J-14)  then  only  8  multiplies  are  required. 

T  *  KK*(X*X  +  Y*Y)*  (1  +  KK* (XI  +  (K2/K1)*Y1))  (J-12) 

Where  KK  =  K1*ANG/K 

X'  *  X  +  T  (J-13) 

Y’  =  Y  +  (K2/K1)*T  (J-14) 

But  if  K1  is  zero  then  Equation  (J-14)  is  unbounded.  Therefore, 
Equations  (J-10)  and  (J-ll)  will  be  used. 

SOLUTION  B: 


This  next  solution  solves  for  the  new  lower  bound  point  by  finding 
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the  intercept  of  Line  1  and  Line  2'  of  Figure  (J-l),  which  is 


(X*  -  XS)  /  (XE  -  XS)  =  (Y*  -  YS)  /  (YE  -  YS)  (J-15) 

Let  K1  =  (XL  -  XS)  (.1-16) 

K2  =  (YE  -  YS)  (.J-l 7) 

K  =  X5*K2  -  YS*K1  =  X'*K2  -  Y’*K1  (.J-l 8) 


Line  2'  can  be  evaluated  by  rotating  the  known  Line  2  by  ANG  degrees 

fXRl  fcos(ANC)  -sin(ANG)l[x 
[YRJ  [sin (ANG)  cos(ANG)][y 

But  since  ANG  is  small,  the  following  approximation  is  valid 

cos (ANG)  =  1 
sin (ANG)  =  ANG 

Therefore,  the  result  of  the  rotation  becomes 

XR  =  X  -  ANC*Y  ( J - 1 9 ) 

YR  =  ANG*X  +  Y  (J-20) 

And  since  Line  2'  intercepts  the  origin 

X'/XR  =  Y'/YR 

or 

X’  =  (Y'/YR) *XR  (J-21) 

Substituting  Equation  (J-21)  into  Equation  (J-18)  yields 
Y'*(K2*XR/YR  -  Kl)  =  K 
or 


Y'  =  K/(XR*K2  -  YR*K1)*YR  (J-22) 

Substituting  Equation  (J-22)  into  Equation  (J-21)  yields 

X'  =  K/ (XR*K2  -  YR*K1)*XR  (J-23) 

The  term  K/(XR*K2  -  YR*K1)  can  be  simplified  to  yield  an  approxi¬ 
mate  solution  of  (X',Y')  from  (X,Y)  without  any  divides. 

TERM  =  K/(XR*K2  -  YR*K1)  (J-24) 

Substituting  Equations  (.1-19)  and  (J-20)  into  (J-24)  yields 

TERM  =  k/((X*K2  -  Y*K1)  -  ANG*(Y*K2  +  X*K1))  (J-25) 
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But  (X*K2  -  Y*K1)  is  the  constant  K  of  equation  (J-18)  therefore, 
TERM  has  the  form  of  equation  (J-26) 

TERM  =  K/(K  -  B)  (J-26) 

where  B  =  ANG* (Y*K2  +  X*K1) . 

If  K>>  B  then  K/(K  -  B)  =  1  +  B/K. 

Thus  TERM  has  been  approximated  and  there  are  no  divides  since 
ANG/K  is  a  multiplication  factor.  Therefore  the  final  solution 
for  (X',Y’)  is  found  by  substituting  equations  (J-19)  and  (J-20) 
into  equations  (J-22)  and  (J-23)  and  using  the  above  approximation 
for  TERM. 


X'  =  (X  -  ANG*Y) *  1  +  (ANG/K) *(Y*K2  +  X*K1) 
Y'  =  (ANG*X  +  Y)*  1  +  (ANG/K) *(Y*K2  +  X*K1) 


(J-27) 

(J-28) 


This  solution  requires  7  multiples  and  4  adds  while,  SOLUTION  A 
required  8  multiples  and  5  adds.  But  SOLUTION  A  is  potentially 
more  accurate. 

COMPARISON  OF  SOLUTION  A  AND  SOLUTION  B : 

A  third  solution  is  to  simplify  SOLUTION  A.  This  solution  neglects 
the  ANG/K  squared  terms  of  SOLUTION  A  and  is  given  in  equations 
(J-29)  through  (J-31)  below 


T  =  (ANG/K) *(X*X  +  Y*Y) 
X'  =  X  +  K1*T 
Y'  =  Y  +  K2*T 


(J-29) 

(K-30) 

(J-31) 


This  simplification  reduces  SOLUTION  A  to  5  multiples  and  3  adds, 
and  it  is  still  more  accurate  than  SOLUTION  B!  Therefore  equations 
(J-29)  through  (J-31)  is  the  best  solution. 

One  way  to  verify  that  SOLUTION  A  and  SOLUTION  B  are  approximately 
the  same  is  to  verify  that  the  terms  in  both  solutions  which  involve 
ANG/K  are  equivalent. 


The  ANG/K  tern  for  Y'  in  SOLUTION  A  is  K2*(X*X  +  Y*Y) , 


(J-.32) 


and  the  ANG/K  term  for  Y'  in  SOLUTION  B  is  Y*(Y*K2  +  X*K1)  +  X*K. 

(J- 33) 

Comparing  (J-32)  and  (.1-33)  yields 


K2*X*X  +  K2*Y*Y  ::  K2*Y*Y  +  K1*X*Y  +  X(X*K2  -  Y*K1 
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or 

K2*X*X  +  K2*Y*Y  : :  K2*X*X  +  K2*Y*Y 

Therefore  the  two  solutions  are  the  same  in  the  ANG/K  terms. 

Both  SOLUTION  A  and  SOLUTION  B  use  the  approximation 
K  =  ANG*(K1*X  +  K2*Y) . 

The  magnitude  of  ANG*(K1*X  +  K2*Y)  is  greatest  at  the  end  points, 
(i.e.  when  (X,Y)  is  equal  to  (XE,YE)  or  (XS,YS)).  Therefore,  a 
test  of  K  against  ANG*(XE*K1  +  YE*K2)  and  ANC*(XS*K1  +  YS*K2)  is 
sufficient  to  validate  the  complete  iteration  for  both  solutions. 

In  REAL  SCAN,  the  constant  K  of  liquation  (J-ll)  is  zero  when  the 
nadir  falls  on  the  lower  bound  line,  (i.e.  Line  1  if  Figure  (. J- 1 ) ) . 
This  does  not  cause  a  problem  since,  when  the  nadir  is  on  the  lower 
bound  line,  the  lower  bound  is  always  the  nadir  and  no  confutation 
is  needed.  A  worst  case  is  when  the  nadir  is  very  close  to  the 
lower  bound  line.  This  situation  causes  K  to  become  very  small. 
Since  all  points  are  integer  in  REAL  SCAN,  the  closest  the  nadir 
can  be  to  the  lower  bound  line  is  1.  Also,  since  REAL  SCAN  uses 
hierarchical  levels,  the  length  of  the  lower  bound  line  is  always 
less  than  or  equal  to  S12  units. 

Note  that  the  equations  derived  in  this  Appendix  require  that  ANG 
be  signed.  Positive  angles  are  defined  to  be  counter-clockwise 
rotations  about  the  Z  axis. 
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APPENDIX  K 
PROJECTION  PROCESSOR 


( 


i 


This  Appendix  describes  the  mathematics  for  PGPROJ.FOR,  the 
FORTRAN  routine  which  computes  the  screen  coordinates  for  a  visible 
point  given  in  WORLD  coordinates. 


Problem  Description 

Definition  of  Symbols: 


(X.Y.Z) 

(X'.Y'.Z') 

(U.V.W) 

(XS.YS) 


WORLD  coordinate  axes 
EYE  CENTRIC  WORLD  coordinate  axes 
EYE  coordinate  axes 
screen  coordinate  axes 


(XP.YP.ZP) 

(XP',YP',ZP') 

(UP,VP,WP) 

(XSP.YSP) 


visible  point  in  WORLD  coordinates 
visible  point  in  EYE  CENTRIC  WORLD  coordinates 
visible  point  in  EYE  coordinates 
visible  point  in  screen  coordinates 


(XE.YE.ZE) 
(US,VS,WS) 
(NX, NY) 
(LX.LY) 


eye  location  in  WORLD  coordinates 
screen  center  in  EYE  coordinates 
the  number  of  pixels  along  both  screen  axes 
the  length  of  the  screen  along  both  screen  axes 


R 


RT 


The  rotation  matrix  due  to  the  equations  of 
motion,  which  defines  the  present  eye  orientation 
relative  to  the  initial  eye  orientation. 

The  transpose  of  R  scaled  to  integer. 


Figure  K-l  depicts  the  initial  system,  ( i . e . ,  at  time  T  =  0),  with  the 
EYE  coordinate  axes  (U,V,W)  aligned  with  the  WORLD  coordinate  axes 
(X,Y,Z).  The  eye  is  at  the  world  origin  and  the  screen  is  at  any 
arbitrary  location  (US,VS,WS)  as  long  as  VS  is  greater  than  zero.  The 
screen  coordinates  (XS,YS)  align  with  the  (U,  ~W)  axes  of  the  EYE 
coordinate  system. 


t 
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Figure  K-l.  Initial  World,  Eye,  and  Screen  System  at  Time  T  =  0. 

Figure  K-2  depicts  the  system  after  the  eye  has  traversed  through 
space.  The  eye  coordinate  system  is  related  to  the  EYE  CENTRIC 
WORLD  coordinate  system  by  the  rotation  matrix  R.  The  EYE  CENTRIC 
WORLD  coordinate  system  has  the  same  orientation  as  the  WORLD 
coordinate  system  but  it  is  translated  to  the  eye. 
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Figure  K-2.  World,  Eye,  and  Screen  System  at  Time  T  >  0. 


Problem:  Find  the  screen  coordinates  of  all  the  visible  world  points 

on  a  REAL  SCAN  line,  using  integer  arithmetic. 

Solution:  The  solution  can  be  found  by  partitioning  the  problem  into 
several  smaller  problems  as  described  below: 

1.  Find  the  screen  coordinates  of  one  visible  point,  assuming 
that  the  screen  center  is  at  (0,VS,0). 

2.  Find  the  screen  coordinates  of  one  visible  point  with  the 
screen  center  at  any  arbitrary  location  (US,VS,WS). 

3.  Find  the  screen  coordinates  of  successive  visible  points  on 
the  scan  line. 

In  order  to  find  the  screen  coordinates  (XSP.YSP)  of  a  visible 
point  (XP.YP.ZP),  one  must:  (1)  find  the  location  of  the  visible 
point  in  the  EYE  coordinate  system  (UP,VP,SP);  (2)  project  that  point 
onto  the  screen. 


1 


I 

! 

1 


Ci 
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To  find  the  location  of  the  point  in  the  EYE  coordinate  system, 
one  may  consider  moving  the  world  point  in  the  opposite  direction  that 
the  eye  has  moved.  There  are  two  parts  to  this  opposite  movement:  (1) 
Translate  the  point  from  the  WORLD  coordinate  system  to  the  EYE 
CENTRIC  WORLD  coordinate  system;  (2)  Rotate  the  point  in  the  EYE 
CENTRIC  WORLD  coordinate  system  into  the  EYE  coordinate  system.  The 
translation  is  found  by  subtracting  the  eye's  location  from  the 
point's  location  as  depicted  in  Equation  (K-l). 


’XP" 

XP  -  XE 

YP' 

= 

YP  -  YE 

ZP' 

ZP  -  ZE 

(K-l) 


The  point  in  the  EYE  coordinate  system  can  be  found  by  the  matrix 
multiplication  of  the  inverse  of  R  and  the  point  in  the  EYE  CENTRIC 
WORLD  coordinate  system.  Since  the  rotation  matrix  R  is  a  matrix  of 
direction  cosines,  the  inverse  of  R  is  equal  to  the  transpose  of  R  or 
RT.  Thus,  the  point  in  EYE  coordinates  is  given  by  Equation  (K-2). 


UP 

VP 

WP 


XP' 

YP' 

ZP' 

m 


(K-2) 


Note  that  the  projection  algorithm  uses  integer  arithmetic. 
Therefore,  RT  must  be  scaled.  If  RT  is  scaled  by  a  power  of  two,  the 
scaling  will  correspond  to  a  logical  shift  of  the  bit  positions. 
Equation  (K-3)  depicts  the  scaling  of  RT. 

RT  =  2n*R_1  (K-3) 


The  value  of  n  is  directly  related  to  the  accuracy  of  the  projec¬ 
tion  algorithm. 

The  method  of  similar  triangles  is  used  to  project  the  point  in 
EYE  coordinates  onto  the  screen.  This  method  gives  a  perspective  view 
of  the  point.  Figure  K-3  illustrates  this  projection  problem. 

Similar  triangles  yield 

XSP  =  VS*UP/VP  (K-4) 

YSP  =  -VS*WP/VP  (K-5) 


*  1 


l 


I 
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(UP,VP,WP) 


(XSP.YSP) 


(XE.YE.ZE) 


(O.VS.O) 


Figure  K-3.  Projection. 


The  screen  coordinates  of  Equations  (K-4)  and  (K-5)  are  in  length 
units.  To  convert  the  screen  coordinates  to  pixel  units,  the  length 
screen  coordinates  must  be  multiplied  by  the  number  of  pixels  per  unit 
lenqth.  If  the  screen  has  square  pixels  defined  by  Equation  (K-6) 
then,  the  screen  coordinates  are  given  by  Equations  (K-7)  and  (K-8). 


NPL  =  NX/ LX  =  NV/LY 
XSP  =  K*UP/VP 
YSP  =  -K*WP/VP 


(K-6) 

(K-7) 

(K-8) 


where 


K  =  NPL*VS 

If  the  screen  center  is  at  an  arbitrary  location  (US,VS,WS),  then 
the  screen  coordinates  (XSP.YSP)  must  be  translated  relative  to 
the  screen  center.  Equations  (K-9)  and  (K-10)  illustrate  this 
translation 


XSP  =  K*UP/VP  -  US*NPL 
YSP  =  -K*WP/VP  -  WS*NPL 


(K-9) 

(K-10) 
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But  since  US*NPL  and  WS*NPL  are  constants,  Equations  (K-9)  and 
(K-10)  may  be  written 

XSP  =  K*UP/VP  -  KU  (K-ll) 

YSP  =  -K*WP/VP  -  KW  (K-12) 

Since  all  the  math  is  to  be  integer,  the  screen  coordinates  of 
Equations  (K-ll)  and  (K-12)  will  be  truncated.  Thus,  two  integer 
error  terms  must  be  created  to  manage  the  fractional  portion  of  the 
screen  coordinates.  The  real  screen  coordinates  (RXSP,RYSP)  can  be 
defined  to  be  the  sum  of  an  integer  part  and  a  fractional  part. 
Equation  (K-13)  defines  the  real  screen  coordinate  along  the  XS  axis, 
which  yields 

RXSP  =  XSP  +  FRACX  =  K*UP/VP  -  KU  (K-13) 

Then  a  scaled  integer  representation  of  RXSP  is  given  by  Equation 
(K-14) 


VP*RXSP  =  XSP*VP  +  FRACX*VP  =  K*UP  -  KU*VP  (K-14) 

The  scaled  integer  error  term  along  the  XS  axis  is  then  defined  as 
FRACX*VP,  hence 

ERRORX  =  K*UP  -  (XSP  +  KU)*VP 

ERROSX  =  K*UP  -  JIX*VP  (K-15) 

where  J I X  =  XS  +  KU. 

Since  XSP  is  a  truncated  integer,  a  test  of  FRACX  against  +  1/2 
will  determine  if  XSP  should  actually  be  XSP  +  1.  A  test  of  ERRORX 
against  +  VP/2  is  equivalent  to  testing  FRACX  against  +  1/2.  A 
similar  error  term  along  the  US  axis  is  defined  by  Equation  (K-16). 
Thus,  with  the  use  of  these  two  error  terms,  the  actual  screen  coor¬ 
dinate  can  be  found  using  only  integer  arithmetic.  The  corresponding 
YS  axis  terms  are 

ERRORY  =  -K*WP  -  JIY*VP  (K-16) 

where  JIY  =  YS  -  KW 

[XPINC]  f  XP  '  -  XP| 

YPINC  YP'  -  YP  (K-17) 

ZPINCJ  UP'  *  ZPJ 

The  incremental  distance  between  visible  points  (XPINC , YPINC , 
ZPINC)  is  then  rotated  into  the  EYE  coordinate  system  by  the  matrix 
multiplication  of  RT,  to  yield  the  incremental  distance  in  the  EYE 
coordinate  system  (UPINC.VPINC ,WPINC) ,  as 
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UPINCl  , 

XPINC 

vpinc  =  [rtJ 

YPINC 

WPINCJ 

ZPINC 

■»  M 

(K-18) 


The  incremental  distance  between  visible  points  in  the  eye  coor¬ 
dinate  system  is  then  used  to  update  the  integer  error  terms.  The  new 
point  in  the  EVE  coordinate  system  (UP',VP',WP')  is  defined  in 
Equation  (K-19) 


—  - 

UP' 

UP  +  UPINC 

VP' 

VP  +  VPINC 

WP' 

WP  +  WPINC 

(K-19) 


Substituting  Equation  (K-19)  into  Equation  (K-15)  yields  the  error 
term  for  the  new  point  along  the  XS  axis 

ERRORX '  =  K*(UP  +  UPINC)  -  JIX*(VP  +  VPINC) 


or 


ERRORX'  =  (K*UP  -  JIX*VP)  -  (K*UPINC  -  JIX*VPINC) 

But  (K*UP  -  JIX*VP)  is  ERRORX.  Therefore  ERRORX'  is  equal  to  the 
old  error  term  plus  an  incremental  error  term,  which  accounts  for  the 
incremental  distance  between  visible  points 

ERRORX'  =  ERRORX  +  K*UPINC  -  JIX*VPINC  (K-20) 


Similarly  substituting  Equation  (K-19)  into  (K-16)  yields 
ERRORY',  the  error  term  for  the  new  visible  point  along  the  YS  axis  is 

ERRORY'  =  ERRORY  -  K*WPINC  -  JIY*VPINC  (K-21) 


Thus  the  computation  for  the  new  error  terms  is  an  iterative 
operation.  The  test  for  pixel  boundary  crossing  is  if  the  absolute 
value  of  FRACX  or  FRACY  is  greater  than  1/2  (See  Figure  15).  Thus  the 
integer  test  for  the  pixel  boundary  crossing  is  if  the  absolute  value 
of  ERRORX'  or  ERRORY'  is  greater  than  VP/2.  If  the  new  point  does  map 
to  an  adjacent  pixel,  then  the  corresponding  error  term  must  be  decre¬ 
mented  or  incremented  by  VP,  depending  on  the  change  in  screen  coor¬ 
dinate,  (i.e.,  if  XSP  -  (XSP  +  1)  then  ERRORX  «-  (ERRORX  -  VP),  or  if 
XSP  «-  (XSP  -  1)  then  ERRORX  «-  (ERRORX  +  VP)). 


The  direction  in  which  the  scan  line  moves  across  the  screen 
( INCXS ,  INCYS)  is  used  to  determine  which  pixel  boundary  crossing  test 
applies.  The  value  of  INCXS  or  INCYS  is  (-1,  0,  or  +1).  If  INCXS  is 
equal  to  1  then  the  pixel  boundary  crossing  test  for  the  XS  axis  is  if 
ERRORX  is  greater  than  or  equal  to  VP/2.  Likewise,  if  INCXS  is  equal 
to  minus  1  then  the  pixel  boundary  crossing  test  on  the  XS  axis  is  if 
ERRORX  is  less  than  minus  VP/2. 
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One  can  identify  the  direction  of  the  scan  line  on  the  screen 
(INCXS,  INCYS)  by  projecting  the  nadir  and  the  horizon  on  the  screen. 
If  the  nadir  and  horizon  in  EYE  coordinates  are  (UNADIR,VNADIR,WNADIR) 
and  (UHORIZ,VHORIX,WHORIX) ,  then  the  screen  coordinates  for  the  nadir 


and  the  horizon  are  given  by  Equations  (K-22)  through  (K-25) 

XSN  =  K*UNADIR/VNADIR  -  IU  (K-22) 

YSN  =  -K*WNADIR/VNADIR  -  KW  (K-23) 

XSH  =  K*UH0RIZ/VH0RIZ  KU  (K-24) 

YSH  =  -K*WH0RIZ/VH0RIZ  -  KW  (K-25) 

The  slope  of  the  scan  line  projected  on  the  display  screen  is 

SLOPE  =  (YSH  -  YSN)/(XSH  -  XSN)  (K-26) 

If  two  terms  DELX  and  DELY  are  created  as 

DELX  =  UHORIZ*VNADIR  -  UNADIR*VHORIZ  (K-27) 

DELY  =  WHORIZ*VNADIR  -  WNADIR*VH0RIZ  (K-28) 

then  the  slope  is 

SLOPE  =  DELY/DELX  (K-29) 


If  the  magnitude  of  the  inverse  slope  on  the  slope  is  less  than 
the  slope  of  the  line  which  defines  a  half  pixel  change  across  the 
screen,  then  either  INCXS  or  INCYS  should  be  set  to  zero  respectively. 
Otherwise  INCXS  and  INCYS  should  be  equal  to  the  sign  of  DELX  and  DELY 
respectively.  The  FORTRAN  test  for  determining  if  INCXS  should  be 
zero  is 


IF(ABS(DELX/DELY)  .LE.  1/(NY*2))  INCXS  =  0  (K-30) 

or  more  efficiently 

IF(ABS(2*NY*DELX  -  DELY)  .LE.  0)  INCXS  =  0  (K-31) 

A  similar  FORTRAN  equation  for  INCYS  is 

IF(ABS(2*NX*DELY  -  DELX)  .LE.  0)  INCYS  =  0  (K-32) 

If  INCXS  is  not  zero  then  INCXS  =  SIGN(1,DELX)*SGN, 

IF  INCYS  is  not  zero  then  INCYS  =  SIGN(1. DELY)*SGN 
where  SGN  =  SIGN(1,(VNADIR*VH0RIZ)). 
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APPENDIX  L 
CPU  TIME  COMPARISON 


This  Appendix  compares  the  two  sets  of  software  (PG*.F0R)  and 
(PZ*.F0R)  for  the  CPU  time  required  to  compute  an  identical  scene.  A 
scene  was  created  with  the  following  input  data  using  both  sets  of  the 
REAL  SCAN  software  routines. 


EYE  LOCATION 

PITCH 

BANK 

HEADING 

LX 

LY 

NPL 

HORIZON  LIM 


0,0,2000 
5  DEGREES 
0  DEGREES 
0  DEGREES 
1 
1 

512 

45000 


The  two  pictures  that  were  created  by  the  two  sets  of  routines 
are  identical  except  for  the  sky  shading,  and  the  CPU  time  required  to 
create  the  pictures  was  significantly  different.  The  two  pictures  are 
given  in  Figures  L-l  and  L~2. 

The  CPU  time  for  Figure  L-l  was  1  hour  and  54  minutes  while  the 
CPU  time  for  Figure  L-2  was  1  hour.  The  reason  for  the  difference  in 
CPU  times  is  attributed  to  the  fact  that  in  the  PZ*.F0R  routines  the 
scan  lines  don't  start  at  the  nadir  like  they  do  in  the  PG*.F0R 
routines. 


Figure  L-l.  Scene  Using  PG*.F0R  Routines. 
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gure  L-2.  Scene  Using  PZ*.FOR  For  Routines. 
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APPENDIX  M 

EFFECT  OF  ANGFACT  ON  CPU  TIME  AND  ALIASING 


This  Appendix  compares  six  pictures  for  their  clarity.  All  six 
pictures  are  of  the  same  scene  but  each  picture  has  a  different  angle 
factor  for  the  angle  between  scan  lines.  The  sequence  of  angle 
factors  for  the  six  pictures  is  5,4,3,2,1,.5.  The  input  data  for 
these  scenes  are: 


EVE  LOCATION 

=  0,0,2000 

PITCH 

=  15 

BANK 

=  0 

HEADING 

=  0 

LX 

=  1 

LY 

=  1 

NPL 

=  512 

These  six  pictures  are  given  in  Figures  M-l  through  M-6.  Each  picture 
is  accompanied  by  another  picture  which  is  the  result  of  filtering 
any  missed  pixels.  The  missed  pixels  are  filled  by  using  the  FILT2 
routine. 


Figure  M-l.  ANGFACT  =  5  CPU  TIME  =  14  MIN  241  SCAN  LINES. 


igure  M-2.  ANGFACT  = 


Figure  M-3.  ANGFACT 
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Figure  M-5.  ANGFACT  =  1  CPU  TIME  =  68  MIN  1201  SCAN  LINES 
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Figure  M-6.  ANGFACT  =  .5  CPU  TIME  =  135  MIN  2401  SCAN  LINES. 


The  above  pictures  demonstrate  how  effective  FILT2  is  when  missed 
pixels  are  encountered.  As  can  be  seen  there  is  a  trade  off  for 
CPU  time  and  scene  clarity.  Figure  M-l  was  computed  in  just  14 
minutes  but  the  scene  has  a  large  amount  of  aliasing  problems, 
while  Figure  M-6  was  computed  in  135  minutes  and  has  almost  no 
aliasing  problems. 
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APPENDIX  N 

OVERHAUSER-COONS  INTERPOLATION 


This  Appendix  develops  the  Overhauser-Coons  interpolation 
routines  and  the  elevation  error  evaluation  routines. 

The  elevation  error  evaluation  routine  for  0-C  is  listed  in 
Appendix  HB  and  the  elevation  error  evaluation  routine  for  the  simpler 
straight  line  formula  is  listed  in  Appendix  HC.  Results  of  both 
elevation  evaluations  are  presented  at  the  end  of  this  Appendix. 

Introduction 

It  appears  that  most  terrain  can  be  modeled  with  a  data  base 
which  describes  a  single  value  surface.  For  rectangular  coordinates 
with  axes  X  and  Y,  every  point  on  the  single  value  surface  has  a 
corresponding  height,  Z(X,Y).  The  data  base  for  a  complex  scene  is 
quite  large.  One  of  the  problems  is  to  create  a  means  of  generating  a 
complex  function,  Z(X,Y),  using  a  minimal  amount  of  data.  The 
Overhauser-Coons  (0-C)  Bicubic  Patch  Function  was  investigated  as  a 
possible  solution.  The  0-C  Function  interpolates  the  height  of  a 
surface  at  some  point  (X,Y)  for  a  given  region  knowing  adjacent  height 
values  PI  through  P12  as  shown  in  Figure  N-la.  The  shaded  area,  in 
Figure  N-la,  is  the  interpolation  region  or  "patch"  where  the  values 
of  Z(X,Y)  are  to  be  computed.  A  large  area  is  divided  into  many 
patches  where  interpolation  of  each  patch  requires  adjacent  height 
values.  In  Figure  N-lb,  the  surface  is  divided  into  16  areas  where 
the  four  shaded  areas  are  the  Overhauser-Coon' s  Patch  regions.  The 
asterisks  denote  the  sample  points  that  are  needed  to  interpolate  the 
four  shaded  regions.  The  sample  points  form  a  grid  which  is  the 
sample  data  array  required  for  the  interpolation  of  the  surface. 
Therefore,  the  data  base  describing  a  surface  is  reduced  since  the 
data  base  is  the  sample  data  array  rather  than  a  height  corresponding 
to  every  point  (X,Y)  on  the  surface. 

The  Overhauser-Coons  Function 

The  Overhauser-Coons  (0-C)  Bicubic  Patch  Function,  Z(X,Y),  is 

Z(X ,Y)=C1(X)B0(Y)-(Z1)B0(X)B0(Y)+C2(Y)B0(X)- (Z2)B1(X)B0(Y) 

C3(X )B1(Y)-(Z3)B0(X)B1(Y)+C4(Y)B1(X)-(Z4)B1(X)B1(Y)  (N-l) 

Shown  in  Figure  N-2  are  Zl,  Z2,  Z3,  and  Z4  which  are  the  heights 
at  the  corners  of  the  patch  corresponding  to  the  adjacent  points  to 
the  patch  P8,  P9,  P48,  and  P5,  respectively.  The  boundary  lines  of 
the  patch  are  C1(X),  C2(Y),  C3(X),  and  C4(Y)  which  are  defined  by  the 
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Figure  N-l.  Sample  Data  Array  (a)  for  Overhauser-Coons  Patch 
Region,  (b)  for  Area  Interpolated  by  4  Patches 
with  Sample  Data  Array  in  the  Form  of  a  Grid. 


Overhauser  Functions.  The  Overhauser  Functions  permit  the  interpola¬ 
tion  of  points  on  a  line  given  four  points  on  that  line.  Here,  the 
line  is  one  of  the  boundary  lines  of  tne  patch.  The  four  points  on 
the  line  are  the  points  in  the  sample  data  array.  B0(X),  B0(Y), 
B1(X),  and  B1(Y)  are  the  Coons  Blending  Functions  which  permit  inter¬ 
polation  between  the  boundary  lines  thereby  defining  the  interior  of 
the  patch.  The  0-C  Function  is  evaluated  at  any  point  (X,Y)  within 
the  patch  as  t(X)  and  in  the  Y-direction  as  t(Y).  Therefore,  "the 
interior  of  the  patch  is  expressed  in  terms  of  the  boundary  curves 
(the  Overhauser  Functions),  the  four  bounding  points  of  the  patch  and 
two  Coon's  Blending  Functions"  (17). 

The  incremental  distances  within  the  patch,  t ( X )  and  t(Y),  are 
determined  for  each  point  interpolated  within  the  patch.  Given  a 
point  ( X , Y)  to  be  interpolated  within  the  patch,  the  incremental 
distance  t(X),  is  the  distance  from  the  point  to  the  boundary  line 
C2( Y) ,  Figure  N-2.  The  incremental  distance,  t(Y),  is  the  distance 
from  the  point  to  the  boundary  to  the  line  C1(X).  The  incremental 
distance  is  then  normalized  by  dividing  by  the  width  of  the  patch 
illustrated  in  Figure  N-2. 


^Brewer,  J.  and  Anderson,  D.  "Visual  Interaction  with 
Overhauser-Coons  Curves  and  Surfaces",  Computer  Graphics,  Vol.  11,  No. 
2,  pp.  133-137,  Summer  1977. 
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Figure  N-2.  Variables  in  Overhauser  Functions. 

The  Overhauser  Function  of  the  boundary  lines  of  the  patch  are  of 
the  form 

Cn(X)=V(n,l)t3(X)+V(n,2)t2(X)+V(n,3)t(X)+V(n,4);  n=l  or  3  (N-2) 

Cn(Y)=V(n, l)t3(Y)+V(n,2)t2(Y)+V(n,3)t(X)+V(n,4) ;  n=2  or  4  (N-3) 

The  derivation  of  the  Overhauser  Functions  is  provided  in 
Reference  17.  Equations  N-2  and  N-3  define  the  X-  and  Y-dependent 
boundary  lines,  respectively.  The  boundary  lines  are  said  to  be 
X-dependent  if  the  sample  data  points  on  the  line  (X,Y),  have 
different  values  for  X  but  the  same  value  for  Y.  Referring  to  Figu* e 
N-2,  the  boundary  lines  C1(X)  and  C3(X)  are  the  X-dependent  boundary 
lines.  C1(X)  is  dependent  on  the  sample  data  points  P7,  P8,  P9,  and 
P10.  C3(X)  is  dependent  on  the  sample  data  points  P3,  P4,  P5,  and  P6. 
The  Y-dependent  boundary  lines  are  C2(Y)  and  C4(Y).  C2(Y)  is  depen¬ 

dent  on  sample  data  points  PI,  P4,  P8,  and  Pll.  C4(Y)  is  dependent  on 
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points  P2,  P5,  P9,  and  P12.  The  value  of  the  incremental  distance 
used  in  the  equations  for  the  X-dependent  boundary  lines  is  t(X)  and 
for  the  Y-dependent  boundary  lines  is  t(Y).  The  coefficients  of  the 
Overhauser  Functions  of  the  boundary  lines  are  the  elements  of  the 
array  V(4,4).  The  coefficients  for  the  equations  of  each  boundary 
lines  are  obtained  by  the  matrix  multiplication  of  the  4  by  4  data 
matrix  derived  in  Reference  17  and  the  4  by  1  matrix  of  the  four 
sample  data  points  on  the  boundary  line. 

The  Coon's  Blending  Functions,  B0(X),  B1(X),  B0(Y),  and  B1(Y), 
are  also  evaluated  for  each  point  interpolated  within  the  patch.  The 
Coon's  Blending  Functions  allow  for  interpolation  of  the  interior  of 
the  patch  between  the  boundary  lines.  Referring  to  the  0-C  Function, 
Equation  N-l,  the  Overhauser  Function  of  a  boundary  line  in  one  direc¬ 
tion  (X  or  Y)  is  multiplied  by  a  Coon's  Blending  Function  in  the  other 
direction.  Also,  the  height  at  the  corners  of  the  patch,  Zl,  Z2,  Z3, 
and  Z4,  are  considered  in  the  interpolation  by  multiplying  each  by  two 
of  the  Coon's  Functions.  The  Coon's  Blending  Functions  in  the  X- 
direction  are  defined  as 

B0(X)=l-3t2(X)+2t3(X)  and  Bl(X)=3t2(X)-2t2(X) 
and  in  the  Y-direction,  as 

B0(Y)=l-3t2(Y)+2t3(Y)  and  Bl(Y)=3t2(Y)-2t j(Y). 

The  Overhauser-Coons  Bicubic  Patch  Routine 

The  Overhauser-Coon' s  Bicubic  Patch  Routine  is  software  which 
controls  the  computation  of  the  Overhauser-Coon' s  Function  over  a 
single  value  surface  given  the  sample  data  array  of  the  surface.  The 
FORTRAN  file  for  the  0-C  Routine,  LCOVRCNS. FOR,  is  provided  in 
Appendix  GB. 

The  Overhauser-Coons  Bicubic  Patch  routine  interpolates  points 
(X,Y)  in  world  coordinates  in  a  square  surface  area.  Here,  world 
coordinates  are  the  actual  locations  (in  dimensions  such  as  feet  or 
meters)  of  points  on  the  surface  with  reference  to  some  point  desig¬ 
nated  as  the  origin  (0,0).  The  choice  of  dimensions  is  arbitrary  so 
long  as  the  units  are  consistent  for  all  variables  throughout  the 
routine.  Figure  N-3  illustrates  the  variables  PICWIT,  ISAMPSP,  and 
DELTA.  The  width  of  the  surface  is  referred  to  as  the  picture  width 
(the  variable  PICWIT).  The  distance  between  the  sample  data  points, 
the  width  of  one  patch,  is  the  sample  spacing  (SAMPSPAC).  However, 
the  data  base  source  information  (i.e.,  the  sample  data  array)  is 
created  on  integer  (X,Y)  coordinates.  Hence,  the  sample  spacing,  or 
patch  width,  is  defined  as  the  integer  ISAMPSP  where 


SAMPSPAC- 1  <  ISAMPSP  <  SAMPSPAC. 
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SAMSPSPAC-1  <  ISAMPSP  <  SAMPSPAC  where  SAMPSPAC  is  a 
real  number  and  ISAMPSP  is  an  integer. 


Figure  N-3.  Illustration  of  Variables  (PICWIT,  ISAMPSP,  DPTDEN, 
DELTA),  Sample  Data  Array,  and  Interpolated  Points. 


Any  real  number  can  be  entered  for  the  value  of  SAMPSPAC  but  the 
integer  value,  ISAMPSP,  will  be  used  in  computation  of  the  sample  data 
array  coordinates.  The  number  of  divisions  of  this  sample  spacing  by 
the  interpolated  points  is  the  data  point  density  (DPTDEN).  The 
distance  between  the  interpolated  points  is  given  the  FORTRAN  variable 
name  DELTA  which  is  calculated  in  the  routine  as  DELTA=  ISAMPSP/ 
DPTDEN.  Also,  Figure  N-3  denotes  the  location  of  some  sample  array 
points  (*)  and  their  corresponding  interpolated  points(*)- 

Since  adjacent  points  are  required  for  each  patch,  an  area  of 
length  PICWIT  and  width  ISAMPSP  along  each  edge  is  not  interpolated. 
Therefore,  the  area  of  interpolation  region  can  be  calculated  as 

C(INT(PI CWI T/ I SAMPSP )  -  2)  ISAMPSP)2,  where  the  function  INT(  )  yields 
the  greatest  interger  less  than  the  argument  of  the  function. 
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In  a  CIG  System,  the  sample  data  array  for  the  0-C  routine  is  the 
actual  heights  of  a  known  single  value  surface  with  coordinates  X  and 

Y  where  the  distance  between  the  sample  data  points  in  the  X  and  Y 
directions  is  ISAMPSP.  The  sample  data  array  is  a  grid  of  the 
surface,  separating  the  surface  into  many  0-C  patches.  In  developing 
the  routine,  a  test  function  for  which  an  exact  value  at  each  point 
(X,Y)  could  be  determined  was  used  to  check  the  accuracy  of  the  0~C 
procedure.  The  sample  data  array  for  the  test  was  the  value  of  the 
function  for  each  point  (X,Y)  at  the  intersection  of  the  grid. 

The  sample  data  points  are  elements  of  the  FORTRAN  array  SAMPT 
(IX, IY)  where  IX  and  IY  are  the  indices  of  the  array,  as  shown  in 
Figure  N-4a.  Since  FORTRAN  requires  the  indices  of  an  array  be  non¬ 
zero,  positive  integers,  the  indices,  IX  and  IY,  are  counted  from  1  to 
some  maximum  value.  The  maximum  value  is  IEND  where  IEND  is  a  FORTRAN 
variable  calculated  as 

DPAC=1. /  ISAMPSP  (N-4) 

IEND=PICWIT*DPAC+1  (N-5) 

The  world  coordinates  of  a  sample  data  point  (X,Y)  with  indices  (IX, 
IY)  can  be  thought  of  as  X=( IX-1)ISAMPSP  and  Y=( IY-1)ISAMPSP.  There¬ 
fore,  the  origin  has  world  coordinates  (0,0)  and  indices  (1,1).  As  a 
further  example,  the  point  with  world  coordinates  of  (ISAMPSP, 
2(ISAMPSP))  has  indices  of  (2,3).  Each  patch  is  referenced  by  the 
indices  of  the  sample  data  point  at  the  lower  left  corner  of  the 
patch,  (IX, IY).  Figure  N~4b  shows  that  all  other  indices  of  points 
adjacent  to  the  patch  are  determined  from  the  choice  of  (IX, IY). 

Referring  to  Figure  N-3,  the  order  of  computation  of  the  inter¬ 
polation  region  in  the  test  routine  begins  at  point  (1)  and  increments 
along  Y  until  reaching  point  (2).  This  completes  one  "segment".  The 

Y  increment  continues  until  reaching  (3),  completing  one  "line".  Then 
X  is  incremented  to  point  (4)  while  Y  returns  to  its  initial  value. 
The  X  and  Y  increments  continue  until  reaching  (5)  completing  the 
interpolation  region  or  one  "picture"  (not  the  same  as  PICWIT).  Since 
the  Overhauser  Functions  of  the  boundary  lines  are  unique  for  each 
patch,  whenever  a  boundary  line  of  a  patch  is  crossed  it  is  necessary 
to  compute  the  Overhauser  Functions  for  the  boundary  lines  of  the  new 
patch.  The  Coon's  Blending  Functions  and  the  complete  Overhauser- 
Coon's  Function,  however,  are  evaluated  at  each  interpolated  point 
within  the  patch.  It  should  be  noted  that  the  particular  order  of 
computation  used  by  the  test  routines  is  completely  arbitrary. 

The  changes  in  the  X-  and  Y-coordi nates  occur  in  increments  of 
DELTA  along  each  axis.  Again,  in  the  0-C  routine,  DELTA  is  calculated 
as  DELTA=I$AMPSP/DPTDEN  which  is  ^ne  distance  between  the  interpolated 
points.  As  shown  in  Figure  N-5,  the  increments  of  DELTA  are  numbered 
consecutively  along  the  axis  starting  from  0  at  the  origin.  Let  A  and 
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(IX-1.IY4-1) 
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l(IX,IY)  (1X41, IY) 
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Figure  N-4. 


(IX.IY-1)  (1X4-1,  IY-1) 

(b) 

Indices  (a)  for  Sample  Data  Array, 

(b)  for  Adjacent  Points  of  Patch  Region. 
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B,  in  units  of  DELTA,  be  values  on  the  X-axis  and  the  Y-axis  which 
mark  the  beginning  and  end  of  the  interpolation  region  along  each 
axis.  In  terms  of  A  and  B,  the  first  point  interpolated,  (I),  in 
Figure  N-5,  has  world  coordinates  (X,Y)=((A)DELTA,(A)DELTA).  The  last 
point  interpolated,  (2),  has  world  coordinates  (X,Y)=((B)DELTA,(B) 
DELTA).  The  FORTRAN  DO  loops,  which  perform  the  interpolation  of  the 
region,  add  DELTA  as  a  first  step  prior  to  calculating  an  interpolated 
value.  Thus,  the  indices  of  the  DO  loops  vary  from  A  -  1  to  B  -  1. 


Interpolation 

Region 


IPP  A 


IUP  b 


X, DELTA 


Figure  N-5.  Limits  IPP  and  I UP. 


The  numerical  value  of  A  -  1  is  given  the  FORTRAN  variable  name  IPP 
and  of  B  -  1  the  name  IUP.  Figure  N-5  illustrates  IPP  and  IUP,  which 
are  calculated  in  the  routine  as 


IPP=DPTDEN- 1  (N-6) 

IUP=(IEND-2)*DPTDEN-1  (N-7) 

Note  that  in  Figure  N-5,  the  solid  lines  are  separated  by  a  distance 
ISAMPSP.  The  dashed  lines  are  separated  by  a  distance  DELTA.  Here, 
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ISAMPSP  is  an  integer  multiple  of  DELTA,  namely  3,  which  is  the  data 
point  density,  DPTDEN.  In  this  case,  the  solid  and  dashed  lines 
coincide  every  third  dashed  line.  If  the  DPTDEN  is  not  an  integer, 
then  these  lines  may  not  necessarily  coincide.  Figure  N-6  depicts  the 
case  where  DPTDEN=1.5.  Using  Equations  N-6  and  N-7,  the  limits  IPP 
and  IUP  would  be  calculated  as  IPP=0  and  IUP=3.  These  limits  are 
incorrect  because  the  first  interpolated  point  would  then  have  coord¬ 
inates  X=Y=DELTA,  which  is  point  (1)  in  Figure  N-6.  This  point  cannot 
be  interpolated  by  the  Overhauser-Coon' s  Function  because  the  required 
adjacent  sample  data  points  are  not  available  for  the  patch  which 
includes  this  point.  This  error  occurs  when  DPTDEN  is  not  an  integer 
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Figure  N-6.  Example  with  DPTDEN=1.5. 

or  when  there  is  a  round  off  error  in  DELTA.  Therefore,  the  following 
check  is  required 

IF( ISAMPSP. GT. ( ( IPP+1)*DELTA) )  IPP=IPP+1 
IF(PICWIT- ISAMPSP. LE. ( IUP+1)*DELTA)  IUP=IUP-1 
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After  the  check, 
IPP=1  and  IUP=4. 
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example  illustrated  in  Figure  N-6  has  limits 


For  the  general  case,  in  terms  of  IPP  and  DELTA,  the  first  point, 
(1),  interpolated  has  world  coordinates  ( X , Y )  where  X=V=(IPP+1)DELTA 
and  the  last  point  interpolated,  (2),  has  world  coordinates  X=Y= 
(IUP+1)DELTA.  For  the  example,  in  Figure  N-6,  it  follows  that  the 
first  point  interpolated,  (2),  has  world  coordinates  (X,Y)  where 
X=Y=(IPP+1)DELTA=(2)DELTA.  The  last  point  interpolated,  (3),  has 
world  coordinates  (X,Y)  where  X=Y=( IUP+1)DELTA=(5)DELTA. 

The  FORTRAN  variables  "X"  and  "Y"  are  used  for  the  values  of  the 
X  and  Y  world  coordinates,  respectively,  during  the  increments  along 
each  axis.  The  variable  XX,  shown  in  Figure  N-7,  is  used  to  initial¬ 
ize  both  the  X  and  Y  increment.  XX  is  calculated  in  the  routine  as 
XX-IPP*DELTA.  In  terms  of  XX  and  DELTA,  the  first  interpolated  point, 
(1),  has  world  coordinates  (X,Y)=(XX+DELTA,XX+DELTA). 


ISAMPSP 

DELTA— |*--*|  (-*- 
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Figure  N-8.  Initialization  of  Increments  with  XX. 
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To  allow  for  boundary  crossing  checks  after  each  increment,  the 
variable  FORTRAN  coordinates  (IRLX.IRLY)  and  (IRUX.IRUY)  are  defined. 
The  point  (IRLX.IRLY)  is  the  lower  left  boundary  in  world  coordinates 
corresponding  to  the  first  potential  point  of  the  patch  region.  In 
Figure  N-4b,  this  is  the  point  with  indices  (IX, IY)  such  that  IRLX= 
(IX)ISAMPSP  and  IRLY=( IY)ISAMPSP.  The  point  (IRUX.IRUY)  is  the  upper 
right  boundary  in  world  coordinates  corresponding  to  the  potential 
last  point  of  the  patch  or  the  point  with  indices  (IX+l.IY+l)  such 
that  IRUX=( I X+l) ISAMPSP  and  IRUY=(IY+1)ISAMPSP.  In  the  FORTRAN 
routine  IRLX  and  IRLY  are  initialized  in  the  routine  as  ISAMPSP  or 
IRLX=ISAMPSP  and  IRLY=ISAMPSP  with  IRUX  and  IRUY  equal  to  IRUX=IRLX+ 
ISAMPSP  and  IRUY=IRLY+ISAMPSP.  After  an  increment,  the  world 
coordinate  in  the  direction  of  the  increment,  X  or  Y,  is  compared  to 
the  upper  boundary  (IRUX  if  X  is  incremented  or  IRUY  if  Y  is  incre¬ 
mented).  If  the  world  coordinate  is  greater  than  the  upper  boundary 
then  the  boundary  line  has  been  crossed. 

To  allow  the  values  of  the  Overhauser  Functions  of  the  boundary 
lines  evaluated  at  a  point  (X,Y)  to  be  accessed  in  the  array  C(4),  the 
following  equivalence  is  made: 

C1(X)=C(1)  C3(X)=C(3) 

C2(Y)=C(2)  C4(Y)=C(4) 


From  Figure  N-8a,  the  boundary  line  crossed  while  incrementing  along 
the  Y  axis  is  the  upper  horizontal  line,  C(3).  With  the  crossing  of 
the  boundary,  IRLY  and  IRUY  are  incremented  such  that  IRLY  =  IRUY  and 
IRUY  =  IRUY+ISAMPSP.  The  use  of  the  prime  notation  in  Figure  N-8 
denotes  the  new  value  of  the  variables  in  the  next  patch  to  be  inter¬ 
polated.  When  C(3)  is  crossed,  the  boundaries  IRLX  and  IRUX  are 
unchanged.  The  Overhauser  Functins  of  the  boundary  lines  are  calcu¬ 
lated  for  the  next  patch.  Figure  N-8b  refers  to  incrementing  along 
the  X-axis  so  the  boundary  line  crossed  is  the  right  vertical  line, 
C(4).  Here,  the  new  values  of  IRLX  and  IRLY  are  IRLX  =  IRUX  and  IRUX 
=  IRUX+ISAMPSP  while  IRLY  and  IRUY  remain  unchanged.  With  the  cross¬ 
ing  of  a  boundary  line,  the  Overhauser  Functions  of  the  boundary  lines 
are  then  calculated  for  the  next  patch.  In  the  0-C  routine  the  code 
which  performs  the  increment  in  the  X  direction,  the  boundary  crossing 
check,  and  the  subsequent  increments  of  the  index  and  upper  and  lower 
boundaries  is 


X=X+DELTA 

IF(X.GT. IRUX)THEN 
IX=IX+1 
I RLX= I RUX 
I RUX= IRUX+ISAMPSP 
ENDIF 


NAVTRAEQU 1 PCEN  80-D-0014-2 

ISAMPSP 

-H  I— 

PICWIT  - 


C(3)' 


C(2) 


(IRUX.IRUY') 

C(4)' 


| _ 0  C(1)'  (  QURX.IRUY? 

(IRLX.IRLY')  c(3)  ' 

C(2)  C(4) 

_ _  C(1) _ 

(IRLX.IRLY)  ' 


ISAMPSP 


PICWIT 


(IRUC.IRUY) 


C(2 


(IRUX  ,IRUY) 


(IRLX.IRLY) 


(IRLX'.IRLY) 


Figure  N-8.  Change  of  Boundary  Lines  and  Boundary  Points  after  a 
Boundary  Crossing  (a)  after  an  Increment  along  the  Y 
Axis  (b)  after  an  Increment  along  the  X  Axis. 
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In  the  Y-d i recti  on ,  the  code  is 

Y=Y+DELTA 

IF(Y. GT. IRUX)THEN 
IY=I Y+l 
I RLV=I RUY 
1 RUY= I RUY+ I SAMPSP 
ENDIF 


The  Overhauser  Functions  of  the  boundary  lines  and  the  Coon's 
Blending  Functions  are  evaluated  with  the  value  of  the  incremental 
distances,  t(X)  and  t(Y),  calculated  for  each  point  (X,Y)  interpolated 
within  the  patch.  The  incremental  distance  in  either  direction  is 
obtained  by  subtracting  the  lower  boundary  from  the  world  coordinate. 
Then  each  difference  is  normalized  by  dividing  by  the  sample  spacing, 
ISAMPSP.  The  incremental  distance  in  the  X-direction,  t(X),  is  calcu¬ 
lated  in  the  0-C  routine  as 

DPAC=1. /ISAMPSP 

TX=( X- I RLX )*DPAC 

The  incremental  distance  in  the  Y-direction,  t(Y),  is  calculated  as 
TY-(Y- IRLY)*DPAC 

When  a  patch  boundary  is  crossed,  the  0-C  Function  is  recalcu¬ 
lated  for  the  new  patch.  The  Coon's  Blending  Functions  are  dependent 
only  on  the  incremental  distances  at  each  point  interpolated  in  the 
patch.  The  coefficients  of  the  Overhauser  Functions  of  the  boundary 
lines,  the  array  V(4,4),  are  generated  by  the  subroutines  PTCHNG  and 
C(IC,JC). 

In  the  Subroutine  PTCHNG  the  height  at  each  bounding  corner  of 
the  patch,  from  the  sample  data  array,  SAMPT,  is  identified  by  the 
indices  at  the  corners  of  the  patch: 

IX1-IX+1 
I  Yl-IY  +  1 

Z1=SAMPI( IX, I Y)  ! LOWER  LEFT  CORNER  OF  PATCH 

Z2=SAMPT( I X 1 , IY)  ! LOWER  RIGHT  CORNER  OF  PATCH 

Z3=SAMPT( IX, IY1)  ! UPPER  LEFT  CORNER  OF  PATCH 

Z4=SAMPI(IX1,IY1)  ! UPPER  RIGHT  CORNER  OF  PATCH 

PTCHNG  then  calls  subroutine  C(IC,JC)  to  generate  the  coefficients  of  the 

boundary  lines: 
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CALL  C(2 , 1 ) 
CALL  C( 1 , 1 ) 
CALL  C(2 ,2) 
C  LL  C( 1 ,2) 


! LOWER  HORIZONTAL  LINE,  C(l) 
! LEFT  VERTICAL  LINE,  C(2) 

! UPPER  HORIZONTAL  LINE,  C(3) 
! RIGHT  VERTICAL  LINE,  C(4) 


The  notation  C(IC,JC)  designates  the  boundary  lines  of  the  patch  where 
IC=1  is  a  vertical  line,  IC=2  is  a  horizontal  line,  JC=1  is  either  the 
left  or  lower  line,  and  JC=2  is  either  the  right  or  the  upper  line. 

The  four  coefficients  of  the  Overhauser  Functions  are  calculated 
for  one  line  boundary  in  the  subroutine  C(IC,JC)  and  then  assigned  to 
the  array  V(4,4)  by 

DO  --  J2=l ,4 

V(n,J2)=ANS(J2) 

--  CONTINUE 


Note  that  n  represents  the  values  1  through  4  where  V(1,J2)  assigns 
coefficients  to  the  equation  for  the  boundary  line  C(l),  and  so  on. 
The  FORTRAN  code  for  the  calculation  of  the  coefficients  of  the 
Overhauser  Functions  of  the  boundary  lines  and  the  assignment  to  the 
array  V(4,4)  for  all  four  boundary  lines  in  PTCHNG  is  accomplished  by 


CALL  C(2,l) 

DO  20  J2=l,4 

V(1,2)=ANS(J2) 

20  CONTINUE 

CALL  C(l,l) 

DO  30  J2=l,4 

V(2,J2)=ANS(J2) 
30  CONTINUE 

CALL  C(2 ,2) 

DO  40  J2=l,4 

V(3,J2)=ANS(J2) 
40  CONTINUE 

CALL  C( 1,2) 

DO  50  J2=l ,4 

V(4,J2)=ANS(J2) 
50  CONTINUE 


!  LOWER  HORIZONTAL  LINE,  C(l) 

! LEFT  VERTICAL  LINE,  C(2) 

! UPPER  HORIZONTAL  LINE,  C(3) 

! RIGHT  VERTICAL  LINE,  C(4) 


The  notation  for  the  boundary  lines  in  PTCHNG  allows  for  a  check 
in  subroutine  C(IC,JC)  such  that 

IF(IC.EQ.l)  THEN  !  Y-DEPENDENT  BOUNDARY  LINES,  C(2),  C(4) 

IP=IX+JC-1 

K=2-IY 

DO  10  1=1,4 

ANS( I )=0 

DO  10  J=IY- 1 , IY+2 
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ANS  ( I )=ANS( I )+MAT( I , J+K)*SAMPT( IP , J) 

10  CONTINUE 

ELSE  ! X-DEPENDENT  BOUNDARY  LINES,  C(l),  C(3) 

IP=I Y+JC-1 
K=2- IX 
DO  20  1=1,4 
ANS( I )=0 

DO  20  J= I X- 1 , IX+2 

ANS(I)=ANS(I)+MAT(I,J+K)*SAMPT(J,IP) 

20  CONTINUE 
ENDIF 


For  the  condition  IC=1,  the  data  matrix,  MAT,  is  multiplied  by 
the  four  points  on  one  of  the  vertical  (Y-dependent)  boundary  lines, 
C ( 2 )  or  C(4).  The  four  points  on  the  Y-dependent  boundary  lines  are 
accessed  from  the  sample  data  array  by  SAMPT(IP.J).  The  FORTRAN 

variable  IP  is  equal  to  the  index  in  the  X-di  recti  on  of  the  sample 

data  points  on  the  boundary  line.  For  a  Y-dependent  line,  the  value 

of  X  for  the  points  on  the  line  do  not  vary.  Therefore,  IP  is  a 
constant  and  is  calculated  as  IP=IX+JC-1.  If  JC=1  then  I P=  I X ,  des¬ 
ignating  the  left  vertical  line,  C(2)  (i.e.,  see  Figure  N-4b).  If 
JC=2  then  IP=  IX+1,  designating  the  right  vertical  line,  C(4).  The 
index  J  varies  in  the  DO  loop  as 

DO  10  J=IY , IY+2. 

The  points  on  C(2)  are  accessed  from  the  array  SAMPT  when  JC=1  by 

SAMPT ( IX , IY- 1) ,  SAMPT( IX , IY) , 

SAMPT( IX , IY+1) ,  SAMPT( IX , IY+2) . 

The  points  on  C(4)  are  accessed  from  the  array  when  JC=2  by 
SAMPT( IX+1, I Y- 1 ) ,  SAMPT ( IX+1 , IY) 

SAMPT( IX+1, IY+1),  SAMPT( IX+1, IY+2). 

If  IC=1,  the  data  matrix  is  multiplied  by  the  four  points  on  one 
of  the  horizontal  (X-dependent)  boundary  lines,  C(l)  or  C(3).  The 
points  are  accessed  by  SAMPT(J,IP).  The  FORTRAN  variable  IP  is  calcu¬ 
lated  as  IP=IY+JC-1.  If  JC=1  then  IP=IY,  designating  the  lower  hori¬ 
zontal  boundary  line,  C(l).  If  JC=2  the  IP=IX1,  designating  the  upper 
horizontal  line,  C(3).  This  time  the  index  J  varies  in  the  DO  loop  as 

DO  10  J= IX- 1 , IX+2. 

The  points  on  C ( 1 )  are  accessed  from  the  array  SAMPT  when  JC=1  by 
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SAMPT(IX-l.IY),  SAMPT ( IX , IY) 

SAMPT(IX+1,IY),  SAMPT(IX+2, IY). 

The  points  on  C(3)  are  accessed  from  the  array  when  JC=2  by 

SAMPT(IX-1, IY+1) ,  SAMPT ( IX , IY+1) 

SAMPT( IX+1 , IY1) ,  SAMPT( IX+2 , IY+1) . 

The  element  of  the  data  matrix  are  referenced  in  the  DO  loop  by 
MAT(I,J+K).  The  index,  I,  varies  from  1  to  4  which  represents  the 
four  rows  of  the  matrix.  The  FORTRAN  variable  K  is  used  to  shift  J 
from  the  index  of  the  points  on  the  boundary  line  to  the  values  of  1 
through  4.  To  illustrate,  with  K=2-IY,  then  J  and  J+K  become 

J=IY-1,  J+K=IY-l+2-IY=  1 

J=IY,  J+K=IY+2-IY=  2 

J=IY+1,  J+K=IY+l+2-IY=  3 

J=IY+2 ,  J+K=IY+2+2-IY=  4 

The  value  of  J+K  represents  the  four  columns  of  the  data  matrix.  Each 
term  of  the  matrix  multiplication  is  summed  into  ANS(I)  as  I  varies 
from  1  to  4.  The  result  of  the  multiplication  for  each  value  of  I  is 

one  of  the  coefficients  of  the  Overhauser  Functions  where 

ANS(l)=V(n,l)  ANS(3)=V(n,3) 

ANS(2)=V(n ,2)  ANS(4)=V(n,4) ,  n=l,2,3,4. 

The  Overhauser  Functions  of  the  X-dependent  boundary  lines  are 
calculated  in  the  routine  as 

DO  150  I0X=1,3,2 

CCX=V(I0X,1) 

DO  140  IEX=2 ,4 

CCX=CCX*T(I0X)+V(I0X,IEX) 

140  CONTINUE 

C(I0X)=CCX 

150  CONTINUE 

CZ1=C(1)-Z1*B0X-Z2*B1X 

CZ2=C(3)-Z3*B0X-Z4*B1X 

CZ1  and  CZ2  are  FORTRAN  variables  used  for  intermediate  sums.  The 
Overhauser  Functions  of  the  Y-dependent  boundary  lines  as  calculated  in 
the  routine  as 

CZ=CZ1*B0Y+CZ2*B1Y 

CSTUFF=0 

DO  70  IEY-2,4,2 
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CCY=V( IEY ,  1 ) 

DO  60  I0Y=2 ,4 

CCY=CCY*T( ICY)+V( IEY ,  IOY) 

60  CONTINUE 

CSTUFF=CSTUFF+CCY*B( IEY) 

!  CSTUFF=C(2)B0X+C(4)B1X 


CZ  and  CSTUFF  are,  also,  FORTRAN  variables  used  for  intermediate  sums. 

The  Coon's  Blending  Functions  in  the  X  direction  are  computed  as 
B1X=(3. 0~2. 0*TX)*TX2  and  B0X=1.0-B1X.  The  FORTRAN  code  for  TX2  is 
TX2=TX*TX.  In  the  Y  direction,  they  are  calculated  as  B1Y=(3. 0-2. 0* 
TY)*TY2  and  B0Y=1.0-B1Y.  The  FORTRAN  code  for  TY2  is  TY2=TY*TY. 

At  this  point,  all  the  required  information  has  been  calculated 
so  that  the  0-C  Function  can  be  evaluated  to  obtain  the  interpolated 
value  of  the  height  of  the  surface  at  a  point  (X,Y).  The  value  of 
height,  FEND,  interpolated  by  the  0-C  Function  is  calculated  as  FEND= 
CSTUFF+CZ. 

The  Test  of  the  Overhauser-Coons  Bicubic  Patch  Routine 

The  accuracy  of  the  0-C  routine  was  tested  by  using  a  sample 
function  FT(X,Y).  The  sample  data  array  was  computed  at  values  (X,Y) 
on  a  grid  of  width  ISAMPSP.  The  surface  was  interpolated  at  a  data 
point  density  which  kept  the  number  of  interpolated  points  constant. 
Each  value  of  height  of  an  interpolated  point  was  compared  with  the 
exact  value  of  the  function  at  the  same  point  (X,Y).  The  statistic 
used  in  evaluating  the  accuracy  of  the  routine  was  the  difference  in 
the  0-C  value  and  the  exact  value  at  each  point  (X,Y).  The  differ¬ 
ences  at  each  point  were  summed  to  obtain  the  statistics  considered  in 
the  results  of  the  accuracy. 

The  test  function  which  was  used  to  evaluate  the  accuracy  of  the 
0-C  procedure  was 

FT(X,Y)=127*SIN(6. 283185*X/1024)*S1N(6. 283 185* Y/ 1024 ) .  (N-8) 

The  selection  of  a  test  function  is  arbitrary.  This  function  was 
chosen  because  of  the  ease  of  detecting  errors  due  to  the  symmetry  of 
the  X  and  Y  coordintes. 

The  sample  data  array  was  determined  by  calculating  the  value  of 
the  test  function,  F  T ( X , Y ) ,  by  Equation  N-8,  at  each  intersection  of 
the  grid.  The  following  FORTRAN  code  was  used  to  create  the  sample 
data  array. 

DO  10  I  =  1,1  END 

XMIS- ( I-l)*ISAMPbP 


293 


NAVTRAEQUIPCEN  80-D-0014-2 


4 


( 
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DO  10  J=1,IEND 

SAMPT(I,J)=FT(XMIS,(J-1)*XSAMPSP) 


CONTINUE 


s 


\ 


4 


B 


4 


4 


The  FORTRAN  variable  XMIS  is  the  world  coordinate  in  the  X-direction 
of  the  sample  data  point  while  ( J- 1 )  *XSAMPSP  is  the  world  coordinate 
in  the  Y-direction.  XSAMPSP  is  the  floating  point  equivalent  of 
ISAMPSP. 

The  statistic,  DIF,  was  determined  from  the  difference  of  the 
exact  value,  EXACT,  and  the  0-C  value,  FEND,  or  DIF=EXACT-FEND.  The 
differences  squared,  DIF2,  and  the  absoluted  value  of  the  differences, 
DABS,  was  then  determined.  Also,  two  values  of  maximum  difference  was 
found:  the  maximum  positive  difference,  DIFMXPS,  and  the  maximum 

negative  difference,  DIFMXNG. 

To  evaluate  the  statistics,  the  differences  were  first  summed. 
Round  off  error  can  occur  when  a  small  value  is  added  to  a  large  sum. 
To  avoid  round  off  error,  the  statistics  were  summed  first  for  a 
segment,  then  for  a  line,  and  then  for  the  whole  picture. 

The  statistics  for  the  interpolation  region  are  summed  first  for 
each  segment  to  calculate  the  segment  statistics:  the  sum  of  segment 
differences,  SGSMDF ;  the  sum  of  segment  differences  squared,  SGSMDF2; 
the  sum  of  the  absolute  value  of  the  segment  differences,  SGSMA;  and 
the  counter  for  the  points  in  a  segment,  ICNT1.  The  segment  data  is 
then  summed  to  calculate  the  line  statistics:  the  sum  of  the  line 
differences,  SMLND;  the  sum  of  line  differences  squared,  SMLND2;  the 
sum  of  the  absolute  value  of  the  line  differences,  SMLNA;  and  the 
counter  for  the  points  in  a  line,  ICNTA.  Then  the  line  statistics  are 
summed  to  calculate  the  picture  statistics:  the  sum  of  the  differ¬ 
ences  for  the  picture,  SMDIF;  the  sum  of  the  differences  squared  for 
the  picture,  SMDIF2;  the  sum  of  the  absolute  value  of  the  differences, 
SMABS;  and  the  counter  for  the  total  number  of  points  interpolated  in 
the  picture,  ICNT. 

From  the  summation  of  the  data,  the  average  difference,  the 
average  of  the  absolute  differences  and  the  RMS  (the  standard  devia¬ 
tion),  can  be  calculated  for  the  segments,  the  lines,  and  the  picture. 
For  the  segment,  these  are  as  follows: 

1.  The  standard  deviation,  SGRMS 
SGRMS=SQRT(SGSMDF2/ICNT1-SGAVG*SGAVG) 
where  SGAVG=SGSMDF/ICNT1 

2.  The  average  of  the  absolute  value  of  the  differences 
SGABS=SGSMA/ICNT1. 

For  the  line,  these  are  as  follows: 
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1.  The  standard  deviation,  LNRMS 
LNRMS=SQRT(SMLND2/ICNTA-LNAVG*LNAVG) 

2.  The  average  of  the  absolute  value  of  the  differences 
LNDABS=SMLNA/ICNTA. 

The  statistics  of  interest  for  the  total  picture  are 

1.  The  standard  deviation,  RMS 
RMS=SQRT(SMDIF2/ICNT-T0TAVG*T0TAVG) 
where  TOTAVG=SMDIF/ICNT 

2.  The  average  of  the  absolute  value  of  the  differences 
DABS=SMABS/ICNT. 


Note  that  the  TOTAVG  is  approximately  zero,  on  the  order  of  10**(-5). 

The  0-C  routine  was  tested  for  accuracy  at  difference  sample 
spacings  while  keeping  the  number  of  interpolated  points  per  picture 
approximately  the  same.  Two  tests  were  performed  to  accomplish  this, 
labeled  "Test  1"  and  "Test  2".  Both  tests  are  included  in  LCOVRCNS. 
FOR  (i.e.,  Appendix  GB).  The  lines  corresponding  to  the  first  method 
of  testing  are  labeled  "Test  1"  and  the  second,  "Test  2".  Test  1  or 
Test  2  was  performed  by  placing  a  D  in  the  first  character  of  a  line 
corresponding  to  the  test  not  desired. 

Test  1  uses  a  FORTRAN  loop  of  40  steps  where  the  sample  spacing 
was  varied  from  approximately  50  to  600.  At  the  beginning,  the  sample 
spacing  is  calculated  as 

SAMPSPAC=50/1. 064692  ITest  1:  1.0640929=12**1/40. 
In  the  loop, 

SAMPSPAC=SAMPSPAC*1 . 0640929  ! TEST1. 

The  expression  12**(l/40)  arises  because  the  sample  spacing  varies 
from  50  to  600  where  600/50=12  in  40  steps  for  which  the  intervals 
between  the  steps  increase  with  each  successive  step.  Test  2  uses  a 
FORTRAN  loop  of  30  steps  where  the  sample  spacing  was  varied  from 
approximately  10  to  600.  For  Test  2,  the  sample  sapcing  is  calculated 
as 


SAMPSPAC=10/1.  1462298  MIST?:  1 .  140.V'*o  no*  ; 

In  the  loop, 

SAMPSPAC  6AMPSPACM.  146229H  'It  .1  .' 

The  expression  600**(  1  P))  *.*••  u.ml  t t  * 
from  10  to  600,  600. 'in  on,  m  u1 
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SPAC  has  been  calculated,  the  integer  value  of  the  sample  spacing  is 
calculated  as  ISAMPSP=SAMPSPAC. 

It  was  desired  that  the  variation  between  two  sample  spacing 
increase  as  the  value  of  the  spacings  increased.  This  enabled  more 
tests  to  be  run  at  smaller  values  of  ISAMPSP  where  the  accuracy  was 
assumed  to  be  better  because  more  sample  data  points  were  used.  For 
Test  1,  the  sample  spacing  divided  by  one-half  the  period,  ISAMPSP/ 
512,  varied  from  0.0957  to  1.0966.  For  Test  2,  the  sample  spacing 
divided  by  one-half  the  period  varied  approximately  0.0195  to  1.0215. 

The  data  point  density,  OPTDEN,  was  calculated  so  that  the  number 
of  points  interpolated  remained  constant  for  each  test.  At  the  begin¬ 
ning  of  the  routine,  the  picture  width,  PICWIT,  and  the  number  of 
points  to  be  interpolated,  POINTS,  were  entered  by  the  user.  These 
values  were  used  in  the  computation  of  DPTDEN  for  each  step  as  follows 

SQRPTS=SQRT(P0INTS)  ! CALCULATION  OF  DPTDEN  ENSURES  A 

IPICSMP=PICWIT*DPAC  !  CONSTANT  NUMBER  OF  INTERPOLATED 

IF(IPICSMP.LE.2)  GOTO  400  ! POINTS  FOR  EACH  STEP 

!  REQUIRED  DATA  BASE  NOT  AVAILABLE 

DEN0M=IPICSMP-2 

DPTDEN=SQRPTS/DEN0M 


Each  time  the  loop  is  started,  new  values  for  SAMPSPAC,  ISAMPSP,  and 
DPTDEN  are  calculated. 

Because  12  adjacent  points  are  needed  for  interpolation,  PICWIT 
must  contain  at  least  three  divisions  of  width  ISAMPSP.  A  check  is 
provided  such  that 

IPICSMP=PICWIT*DPAC 

IF(IPICSMP. LE.2)  GOTO  400 

400  STOP 

For  a  given  PICWIT  and  COUNT,  the  DPTDEN  may  be  less  than  one. 
This  means  that  some  patches  may  have  no  interior  points  interpolated. 
Since  the  purpose  of  this  routine  is  data  base  reduction,  the  case  of 
DPTDEN  less  than  one  is  not  considered.  For  DPTDEN  less  than  one, 
some  data  points  might  be  stored  but  not  used  in  the  interpolation  of 
interior  points.  A  check  is  provided  for  this  case. 

IF(DPTDEN. LT. 1)THEN 

TYPE*,  'ROUTINE  IS  INVALID  FOR  DPTDEN  <  1' 

GOTO  210 


210  CONTINUE 
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The  0-C  routine  was  tested  for 

PICWIT=7200,  NUMBER  OF  P0INTS=.25  MILLION 

PICWIT=2048,  NUMBER  OF  P0INTS=.25  MILLION 

PICWIT=2048,  NUMBER  OF  P0INTS=1000. 

The  results  are  found  in  Tables  N-l  through  N-3.  The  first  lists  the 
errors  corresponding  to  the  sample  spacing  and  the  data  point  density: 
ISAMPSP,  DPTDEN,  DIFMXPS,  OIFMXNG,  RMS/127  and  DAVG.  Note  the  RMS  is 
normalized  by  dividing  by  the  maximum  value  of  the  test  function  which 
is  127.  The  number  of  points  equal  to  .25  MILLION  was  chosen  to  get  a 
sufficiently  large  sample.  One  run  of  only  1000  points  was  included 
for  comparison.  Since  one  period  of  the  function  is  1024,  a  picture 
width  of  7200  includes  seven  periods  and  a  width  of  2048  includes  two 
periods. 

The  accuracy  of  the  interpolation  is  a  function  of  the  sample 
spacing.  The  value  of  DPTDEN,  by  definition  in  the  test  runs,  ensures 
that  the  total  number  of  interpolated  points  will  remain  constant  for 
a  given  value  of  ISAMPSP.  The  larger  the  sample  spacing  the  smaller 
the  data  base  required.  Use  of  the  0-C  routine  allows  for  data  base 
reduction  but  with  a  finite  error  in  the  interpolated  values  for  the 
points.  This  error  must  be  within  the  tolerated  error  of  the  specific 
application  of  the  routine. 

Note  in  the  table  of  data  for  PICWIT=2048  and  the  approximate 
number  of  points  interpolated  equal  to  1000,  the  value  for  the  RMS/127 
increases  with  the  sample  spacing  until  ISAMPSP=322.  This  inconsis¬ 
tency  does  not  occur  until  the  'ast  value  of  ISAMPSP  when  PICWIT=2048 
and  the  number  of  points  is  equal  to  .25  million.  The  inconsistency 
of  the  RMS  occurs  when  the  maximum  positive  and  negative  differences 
vary  significantly.  Since  this  test  function  is  sinusiodal,  it  has 
equal  positive  and  negative  values  over  a  period.  Interpolation  of  a 
period  of  the  function  results  in  approximately  equal  maximum  positive 
differences,  DIFMXPS,  and  maximum  negative  differences,  OIFMXNG.  The 
function,  however,  may  not  be  evenly  interpolated  over  a  period 
because  the  sample  spacing  is  too  large.  Remember  that  an  area  the 
width  of  ISAMPSP  and  the  length  of  PICWIT  is  not  interpolated  along 
each  axis.  A  large  sample  spacing  would  require  that  a  large  area  not 
be  interpolated  so  that  the  sample  data  array  will  be  available. 
Therefore,  a  good  representation  of  a  period  would  not  have  been 
interpolated.  As  a  result,  the  maximum  positive  and  negative  differ¬ 
ences  are  not  approximately  equal.  Also,  if  the  data  point  density  is 
large,  a  period  may  not  be  interpolated  evenly. 

The  results  of  the  interpolation  of  a  surface  using  the 
Overhauser-Coons  Function  was  compared  to  the  results  using  a  straight 
line  approximation.  The  straight  line  approximation  assumes  a 
straight  line  between  given  sample  data  points  and  interpolates  the 
height  along  the  line  for  the  interior  of  the  patch.  To  interpolate 
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TABLE  N-l.  0-C  INTERPOLATION  WITH  PICWIT=7200* 


ISMAPSP 

DPTDEN 

DIFMXPS 

DIFMXNG 

RMS/127 

DAVG 

49 

3.4722 

0.1501 

0.1495 

0.0004013 

0.0400 

53 

3.7594 

0.1812 

0.1807 

0.0005019 

0.0501 

56 

3.9683 

0.2123 

0.2120 

0.0005890 

0.0591 

60 

4.2373 

0.2545 

0.2476 

0.0007212 

0.0718 

64 

4.5455 

0.2950 

0.2950 

0.0008757 

0.0880 

68 

4.8544 

0.3587 

0.3571 

0.0010524 

0.1060 

72 

5.1020 

0.4227 

0.4217 

0.0012539 

0.1265 

77 

5.4945 

0.5092 

0.5082 

0.0015479 

0.1564 

82 

5.8824 

0.6163 

0.6168 

0.0018890 

0. 1909 

87 

6.2500 

0.7402 

0.7308 

0.0022831 

0.2306 

93 

6. 6667 

0. 9035 

0.8994 

0.0028311 

0.2854 

98 

7.0423 

1.0788 

1.0786 

0.0033593 

0.3375 

105 

7.5758 

1.3523 

1.3491 

0.0042180 

0.4248 

112 

8.0645 

1.6831 

1.6818 

0.0052245 

0.5255 

119 

8.6207 

2.0825 

2. 0819 

0.0064009 

0.6439 

126 

9.0909 

2.5688 

2.5669 

0.0077564 

0.7793 

135 

9.8039 

3.3287 

3. 3269 

0.0097933 

0.9811 

143 

10.4167 

4.1318 

4. 1309 

0.0118981 

1.1867 

152 

11.1111 

5.1591 

5.1588 

0.0146192 

1.4537 

162 

11.9048 

6.5545 

6.5253 

0.0180936 

1.7939 

173 

12.8205 

8. 3122 

8. 3111 

0.0224413 

2.2088 

184 

13.5135 

10.2923 

10. 3609 

0.0278598 

2.7402 

196 

14.7059 

12.9132 

12.8581 

0.0337104 

3.3156 

208 

15.6250 

15.9472 

15.1415 

0.0409930 

4.0204 

221 

16.6667 

19.5749 

19.5167 

0.0497849 

4.8859 

236 

17.8571 

24.1780 

24. 0867 

0.0612823 

6.0408 

251 

19.2308 

29.7601 

29.7349 

0.0738485 

7.0595 

267 

20.8333 

35.9613 

35.9448 

0.0903933 

8.8995 

284 

21.7391 

43.5116 

43.4260 

0.1068842 

10.3175 

302 

23.8095 

51.8541 

51. 1767 

0.1302255 

12.7202 

322 

25.0000 

61. 5244 

61.1060 

0.1509459 

14.7113 

342 

26.3158 

59. 3524 

56.9323 

0.1774788 

16.4165 

364 

29.4118 

82.7326 

82.3238 

0.2172158 

21.4628 

388 

31.2500 

94.2486 

94.0499 

0.2507326 

24.9101 

413 

33.3333 

105.1786 

99.6477 

0. 2873450 

28.7446 

439 

35.7143 

111.9790 

111.7547 

0.3306687 

33.2256 

467 

38.4615 

122.1083 

120.9100 

0.3834579 

39.1429 

497 

41.6667 

126.0886 

125.7895 

0.4452635 

46.7764 

529 

45.4545 

133.5335 

132.7111 

0.4727468 

49.9488 

563 

50.0000 

154.8192 

154.2198 

0.4934835 

50.8588 

*The  approximate  number  of  Interpolated  points  is  0.25  million 
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TA8LE  N-2. 

ISMAPSP 

DPTDEN 

10 

2.4752 

11 

2.7174 

13 

3.2258 

15 

3.7313 

17 

4.2373 

19 

4.7619 

22 

5.4945 

25 

6. 3291 

29 

7.3529 

34 

8. 6207 

39 

10.0000 

44 

11.3636 

51 

13.1579 

58 

15.1515 

67 

17.8571 

77 

20.8333 

88 

23.8095 

101 

27.7778 

116 

33.3333 

133 

38.4615 

153 

45.4545 

175 

55. 5556 

201 

62.5000 

230 

83.3333 

264 

100.0000 

303 

125.0000 

347 

166.6667 

398 

166.6667 

456 

250.0000 

523 

500.0000 

*The  approximate  number 


0-C  INTERPOLATION  WITH 

DIFMXPS  DIFMXNG 

0.0045  0.0045 

0.0055  0.0055 

0.0077  0.0077 

0.0104  0.0103 

0.0134  0.0134 

0.0171  0.0170 

0.0232  0.0231 

0.0309  0.0308 

0.0430  0.0429 

0.0616  0.0614 

0.0840  0.0840 

0.1146  0.1139 

0.1640  0.1634 

0.2328  0.2327 

0.3440  0.3424 

0.5130  0.5090 

0.7678  0.7658 

1.1898  1.1893 

1.9046  1.8925 

3.1464  3.1460 

5.2805  5.2523 

8.6817  8.6435 

13.8902  13.1254 

22.2807  21.8251 

24.9628  23.2969 

52.1643  45.6776 

63.9731  57.7080 

66.7295  52.5033 

104.5176  92.5886 

126.8260  17.8727 

of  interpolated  points 


PICWIT=2048* 

RMS/127  DAVG 

0.0000092  0.0008 

0.0000113  0.0010 

0.0000160  0.0014 

0.0000218  0.0020 

0.0000286  0.0026 

0.0000366  0.0034 

0.0000513  0.0048 

0.0000689  0.0094 

0.0000990  0.0143 

0.0001483  0.0143 

0.0002118  0.0205 

0.0002954  0.0291 

0.0004491  0.0447 

0.0006555  0.0656 

0.0010183  0.1026 

0.0015795  0.1600 

0.0024339  0.2471 

0.0038489  0.3928 

0.0061084  0.9893 

0.0097649  0.9893 

0.0156466  1.5673 

0.0234878  2.3688 

0.0384678  3.7019 

0.0547172  4.9317 

0.0824098  9.0863 

0.1278739  12.1058 

0.1945773  18.3542 

0.1878833  18.8707 

0.3884520  41.1434 

0.3051477  49.4079 

is  0.25  million 
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TABLE  N-3.  0-C  INTERPOLATION  WITH  PICWIT=2048* 


ISMAPSP 

DPTDEN 

64 

1.0541 

68 

1.1294 

72 

1.2163 

77 

1.3176 

82 

1.4374 

87 

1. 5058 

93 

1. 5811 

98 

1. 7568 

105 

1.8702 

112 

1. 9764 

119 

2. 1082 

126 

2.2588 

135 

2.4325 

143 

2.6352 

152 

2.8748 

162 

3. 1623 

173 

3.5136 

184 

3.5136 

196 

3.9528 

208 

4.5175 

221 

4.5175 

236 

5.2705 

251 

5.2705 

267 

6.3246 

284 

6.3246 

302 

7.9057 

322 

7.9057 

342 

10.5409 

364 

10.5409 

388 

10.5409 

413 

15.8114 

439 

15.8114 

467 

15.8114 

497 

15.8114 

529 

31.6228 

563 

31.6228 

DIFMXPS 

DIFMXNG 

0.2926 

0.2590 

0.2373 

0.2273 

0.4221 

0.4098 

0.5019 

0.4913 

0.5966 

0.5889 

0.7402 

0.7366 

0.8962 

0.8974 

1.0282 

1.0298 

1.3332 

1. 3098 

1. 6409 

1.6388 

2.0749 

2.0756 

2.5602 

2. 5580 

3.3126 

3.2988 

4. 1099 

3. 9966 

5.0344 

4. 9714 

6.3543 

6.2601 

8.2493 

8.1369 

9.6853 

9.6950 

12.4831 

10.8476 

14.6375 

14.5238 

19.4778 

17.8292 

24.1607 

22.4294 

19.8725 

18.7292 

27.6182 

25.7433 

42.1395 

40.0836 

51.3623 

45.4790 

57.8143 

36.8851 

55.3536 

54.8264 

82.7272 

58.7527 

78.4418 

53.5184 

52.3859 

42.0549 

85.8550 

69.2740 

113.2244 

105.9467 

125.4555 

125.1960 

126.6752 

24.8862 

127.4397 

79.3752 

RMS/127 

DAVG 

0.0008768 

0.0880 

0.0006796 

0.0689 

0.0012742 

0.1277 

0.0015703 

0.1610 

0.0019384 

0.1935 

0.0022462 

0.2225 

0.0029552 

0.2966 

0.0035742 

0.3751 

0. 0043543 

0.4530 

0. 0051836 

0. 5231 

0.0070340 

0.7244 

0.0079665 

0.7801 

0.0102512 

1.0333 

0.0124111 

1.2324 

0.0151267 

1.5355 

0.0188205 

1.8634 

0.0222858 

2.2827 

0.0290915 

2.8322 

0.0340630 

3.3775 

0.0394553 

3.7340 

0.0502152 

4.9720 

0.0589800 

5.4024 

0.0737056 

8.3514 

0.0850510 

9.2224 

0.0982114 

8.8699 

0.1274853 

12.0538 

0.1290846 

12.5800 

0.1844455 

17.3461 

0. 2102028 

20.4021 

0.1974677 

19.5804 

0.1592090 

15.3632 

0.2895007 

30.4893 

0.4381936 

46.0463 

0.5024350 

52.1929 

0.3201352 

48.1689 

0.4397611 

52.8839 

*The  approximate  number  of  interpolated  points  is  1000. 
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the  interior  of  a  patch  by  the  Straight  Line  Approximation,  only  the 
heights  at  the  four  corners  of  the  patch  are  needed,  Zl,  Z2,  Z3,  and 
Z4.  The  data  base  for  the  straight  line  approximation  is  the  same  as 
for  the  0-C  Function,  a  sample  data  array  of  the  surface  in  the  form 
of  a  grid.  The  definitions  of  the  incremental  distances  TX  and  TY  and 
the  width  of  the  patch,  ISAMPSP,  are  the  same  as  the  0-C  routine. 
Using  these  definitions,  the  function  Z(X,Y)  for  the  Straight  Line 
interpolation  is 

Z(X,Y)=Z1+TX(Z2-Z1)/ISAMPSP+TY(Z3-Z1)/ISAMPSP 

+(TX)(TY)[(Z4+Z3)-(Z2+Z1)]/ISAHPSP2  (N-9) 

The  FORTRAN  listing  of  the  Straight  Line  Approximation  Routine, 
LCSTRAIT. FOR,  is  in  Appendix  GC.  All  of  the  variables  used  in  the  0-C 
routine  have  the  same  meaning  in  the  Straight  Line  Approximation 
Routine.  The  order  of  computation  and  the  calculation  of  the  error 
are  also  the  same. 

The  Straight  Line  Approximation  does  not  have  equations  for  the 
boundary  lines  Cn(X)  or  Cn(Y).  Therefore,  the  subroutine  in  the 
Straight  Line  Approximation  (SLA)  is  different  from  the  subroutines  in 
the  0-C  routine.  Subroutine  PITCH  of  the  SLA  assigns  the  values  of 
the  array  SAMPT  to  Zl,  Z2,  Z3,  and  Z4,  according  to  the  index  of  the 
point,  as  in  subroutine  PTCHNG.  Subroutine  PITCH  performs  addition 
and  subtration  on  the  height  at  the  corners  to  produce 

C1=Z2-Z1 

C2=Z3-Z1 

C3=Z4-Z3-Z2+Z1 

The  FORTRAN  code  for  the  Straight  Line  Approximation  is 

FEND=Z1+TX*C1/ISAMPSP+TY*C2/ISAMPSP+TX*TY*C3/ISAMP2 


where 


ISAMP2=ISAMPSP*ISAMPSP. 

The  Straight  Line  Approximation  was  tested  in  the  same  manner  as 
the  0-C  routine. 

The  results  of  the  rms  (i.e.,  root  of  the  mean  of  the  squares) 
elevation  error  versus  the  sample  spacing  of  the  test  function  are 
plotted  in  Figure  N-9  for  PICWIT=7200  and  the  number  of  interpolated 
points  equal  to  0.25  million.  The  data  was  produced  by  Test  1  for  40 
steps.  The  rms  error  is  normalized  by  dividing  by  the  maximum  height 
of  the  test  function,  127.  The  sample  spacing  is  divided  by  one  half 
the  period  where  the  period  of  the  test  function  is  1024.  This 
normalized  the  sample  space  to  the  Nyquist  rate.  Figure  N-9  is  a  plot 
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TABLE  N-4.  0-C  AND  S-L  INTERPOLATION  COMPARISON  I* 


ISMAPSP/512 

(0-C)RMS/127 

(S-L)RMS/127 

0.0957 

0.0004013 

0.0079639 

0. 1035 

0.0005019 

0. 0093148 

0.1094 

0.0005890 

0.0102789 

0.1172 

0.0007212 

0.0118682 

0.1250 

0.0008757 

0.0135461 

0.1328 

0.0010524 

0.0153270 

0.1406 

0.0012539 

0.0170596 

0. 1504 

0.0015479 

0.0195759 

0.1602 

0.0018890 

0.0221940 

0.1699 

0.0022831 

0.0249310 

0. 1816 

0.0028311 

0.0283858 

0. 1914 

0.0033593 

0.0314973 

0.2051 

0.0042180 

0.0360472 

0.2188 

0.0052245 

0.0408470 

0.2324 

0.0064009 

0.0459282 

0.2461 

0.0077564 

0.0512588 

0.2637 

0.0097933 

0.0584865 

0.2793 

0.0118981 

0.0651952 

0.2969 

0.0146192 

0.0730509 

0. 3164 

0.0180936 

0. 0820243 

0. 3379 

0.0224413 

0.0929381 

0.3594 

0.0278598 

0.1038275 

0. 3828 

0.0337104 

0.1139896 

0.4063 

0.0409930 

0.1265628 

0.4316 

0.0497849 

0.1401669 

0.4609 

0. 0612823 

0.1563502 

0.4902 

0.0738485 

0.1720698 

0.5215 

0.0903933 

0.1922699 

0.5547 

0.1068842 

0.2087045 

0.5898 

0.1302255 

0.2330021 

0.6289 

0. 1509459 

0.2490599 

0. 6680 

0. 1774788 

0.2714307 

0.7190 

0.2172158 

0.3057964 

0.7578 

0.2507326 

0.3288822 

0.8066 

0.2783450 

0. 3531354 

0.8574 

0.3306687 

0.3821282 

0.9121 

0.3835679 

0.4175627 

0.9707 

0.4452635 

0.4586033 

1.0332 

0.4727468 

0.4698608 

1.0996 

0.4934835 

0.4754561 

*PICWIT=7200,  total  interpolations^.  25  million 
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of  RMS/127  vs.  ISAMPSP/512.  The  values  that  are  plotted  in  Figure  N-9 
are  tabulated  in  Table  N-4.  The  plot  for  the  Straight  Line 
Approximation  shows  greater  normalized  rms  error  and  therefore  more 
error  than  the  plot  for  the  Overhauser-Coons  Function.  The  normalized 
rms  as  a  function  of  the  sample  spacing  divided  by  one- half  the  period 
can  be  estimated  by  extrapolating  the  lines  connecting  the  plotted 
data  to  determine  the  slopes.  The  Straight  Line  Interpolation  error 
may  be  approximated  as  the  normalized  RMS,  say  NRMS  is 

NRMS~[ISAMPSP/(PERI0D/2)]2  (N-10) 


rms 

Elevation 

Error 

— w — 


Times  Nyquist  Rate 


Plot  of  RMS  Divided  by  Maximum  Height  of  Test 
Function,  127  vs.  the  Sample  Spacing  Divided 
by  One-Half  the  Period,  512,  for  0.25  Million 
Interpolated  Points  by  Overhauser-Coons  and 
Straight  Line  Approximation. 


Figure  N-9 
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TABLE  N-5.  0-C  ANO  S-L  INTERPOLATION  COMPARISON  II* 


ISMAPSP/512 

(0-C)RMS/127 

(S-L) RMS/127 

0.0195 

0.0000092 

0.0003335 

0.0215 

0.0000113 

0.0004029 

0.0254 

0.0000160 

0.0005649 

0.0293 

0.0000218 

0.0007538 

0.0332 

0.0000286 

0.0009699 

0.0371 

0. 0000366 

0.0012176 

0.0430 

0.0000513 

0.0016266 

0.0488 

0.0000689 

0.0021259 

0.0566 

0.0000990 

0. 0028640 

0.0664 

0.0001483 

0.0039334 

0.0762 

0.0002118 

0.0051861 

0.0859 

0.0002954 

0.0066749 

0.0996 

0.0004491 

0.0089493 

0.1133 

0.0006555 

0.0116582 

0.1309 

0.0010183 

0.0156843 

0.1504 

0.0015795 

0.02076 22 

0.1719 

0.0024339 

0.0270615 

0.1973 

0.0038489 

0.0356075 

0. 2266 

0.0061084 

0.0462589 

0.2598 

0.0097649 

0.0603879 

0.2988 

0.0156466 

0.0779049 

0.3418 

0.0234878 

0.0945775 

0.3926 

0.0384678 

0.1250140 

0.4492 

0.0547172 

0.1454254 

0.5156 

0.0827098 

0. 1793533 

0.5918 

0.1278739 

0.2286545 

0.6777 

0.1945773 

0.2896061 

0.7773 

0.1878833 

0.2552577 

0.8906 

0. 3884520 

0.4268898 

1.0215 

0.3051477 

0.3049439 

*PICWIT=7200,  total  interpolations^.  25  million 
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Times  Nyquist  Rate 


rms 

Elevation 

Error 

W 


2*10"2  0.04  0.08  2*10 


Patch  Size/Half  Period 


Figure  N-10.  Plot  of  RMS/127  vs.  ISAMPSP/512  for  PICWIT=2048.00 
and  Points  0.25  Million  for  the  Overhauser-Coon's 
and  the  Straight  Line  Approximation. 


For  the  Overhauser-Coons  Bicubic  Patch  Function, 

NRMS~[ ( I SAMPSP/( PERIOD/ 2 ) ]3  * 3. 

Figure  N-10  is  a  plot  for  a  picture  width  of  2048  and  the  number 
of  points  interpolated  equal  to  0.25  million.  The  data  was  produced 
by  Test  2  for  30  steps.  The  data  is  also  tabulated  in  Table  N-5. 
Considering  a  straight  line  connecting  the  plotted  values,  the  slopes 
of  the  lines  result  in  an  equation  for  the  normalized  RMS  of  the 
Straight  Line  Interpolation  which  is  the  same  as  above.  For  the 
Overhauser-Coons  Function, 

NRMS~[ISAMPSP/(PERI0D/2)]3-5. 
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APPENDIX  0 

DEVELOPMENT  OF  VARIABLE  INCREMENTS  ALONG  SCAN  LINES 


Problem:  Determine  the  largest  increment  along  a  scan  line  which 

still  guarantees  attaining  fixed  resolution. 

Solution:  Fixed  resolution  means  the  angle,  a,  subtended  by  a  world 
point  or  region  at  the  eye  remains  constant. 

a  =  Ar/R 

a  is  the  linear  dimension  guaranteeing  this  resolution. 

R  is  the  range  from  the  eye  to  the  point. 

So  Ar  is  the  largest  increment  which  still  guarantees  fixed  resolu¬ 
tion. 


Problem:  Determine  a  sequence  of  increments,  limited  by  the  number 

of  bits  defining  the  increment's  precision,  which  maintains 
overall  accuracy  and  eliminates  round-off  by  being  exact  at 
hierarchy  level  boundaries. 

Solution:  Figure  0-1  illustrates  a  sequence  of  increments  from  R  to 
2R,  the  boundaries  between  three  neighboring  hierarchy 
levels. 


4 - H - h 

R  Ari  2R 


Figure  0-1.  Scan  Line  Increment  Ar.  in  the  Hierarchy  Level  Bounded 
between  R  and  2R. 

The  sum  of  the  increments  must  be  R.  If  one  normalizes  the  first  of 
the  p  increments  to  approximately  1/a  then 

p-1 

R  =  I  Ar.  (0-1) 

i=0  1 


but 


i-1 

Ar.  =  aR  +  al  Ar. 
1  j=0  3 


(0-2) 
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so 

P-1  7- 

R  =  aRI  (1  +  a)1  (0-3) 

i=0 

and 

2  =  (1  +  ot)p  (0-4) 

2 

Hence,  the  normalized  increments  are  1,  1  +  a,  (1  +  a)  ,  ... 

(1  +  a)p_1. 

Equation  0-4  yields  the  exact  relation  between  a  and  p.  Since  a 
<  1/500,  Equation  0-4  can  be  accurately  approximated  as 

In  2  ~  ap  (0-5) 

Equation  0-4  shows  that  p  £  ln2/a  if  one  is  going  to  maintain  the 
lower  bound  resolution,  a,  established  by  the  specified  display  reso¬ 
lution  accuracy  divided  by  the  number  of  ground  points  being  averaged 
per  pixel  length.  The  initial  analyses  of  REAL  SCAN  assume  display 
resolution  is  1/512  and  4  points  per  pixel  area  so  a  =  1/1024. 

It  is  desirable  to  consider 

Ar.  =N..F.  (0-6) 

where 

N.  is  the  integer  portion  of  the  increment 

F.j  is  the  base  2  fraction  of  the  increment 

Since  this  form  clearly  identifies  the  finite  precision  of  an  incre¬ 
ment  and  relates  it  to  a  computer's  resolution. 

The  current  version  of  REAL  SCAN  sets  hierarchy  levels  on 
integers,  based  on  the  resolution.  Table  0-1  illustrates  the  level, 
its  range,  the  increment  within  the  level,  and  the  number  of  incre¬ 
ments  per  level. 
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TABLE  0-1.  HIERARCHY  LEVEL  PARAMETERS 


Level 

Nearest 

Approach 

Increment 

Number  of 
Increments 

R 

2R 

1024 

1 

2048 

0 

2048 

1 

2048 

2 

1024 

2048 

2 

4096 

4 

1024 

4096 

8192 

3 

8192 

8 

1024 

8192 

16384 

4 

16384 

16 

1024 

16384 

32768 

n 

1024 -2n 

2n 

1024 

1024 -2n 

1024 

The  solution  to  the  problem  posed  in  this  Appendix  would  yield 
hierarchy  level  parameters  of  the  form  illustrated  in  Table  0-2. 
Table  0-2  indicates  a  level  O'  directly  below  the  eye  where  all  incre-r 
ments  are  at  the  resolution  limit.  The  increment  in  all  other  levels 
ranges  from  1  to  2  as  give  by  Equations  0-4,  0-5,  and  0-6.  The 
minimum  number  of  increments  is  ln2/a,  but  since  Equation  0-6  defines 
a  limited  precision  computer,  the  actual  number  of  increments  will 
slightly  exceed  ln2/a  for  guaranteed  resolution,  or  slightly  under¬ 
shoot  ln2/a  for  simplicity  with  judged  acceptable  picture  quality. 


Level 

TABLE  0-2. 

Nearest 

Approach 

IMPROVED 

Increment 

HIERARCHY  LEVEL 

Number  of 
Increments 

PARAMETERS 

R 

2R 

0' 

1024 

1 

1024 

0 

1024 

1024 

1  to 

2 

1024 -ln2 

1024 

2048 

1 

2048 

2  to 

4 

1024 -ln2 

2048 

4096 

2 

4096 

4  to 

8 

1024 -ln2 

4096 

8192 

3 

8192 

8  to 

16 

1024 -ln2 

8192 

16384 
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Let  us  define  the  total  number  of  increments  as  Q  and  allow  them 
to  be  separated  into  k  segments  of  q  increments  each,  then 

Q  =  kq  £  ln2/a  (0-7) 

The  increment  in  segment  i,  (1  £  i  £  k)  is  therefore 

(1  +  p)1’1  =  Ar.  (0-8) 

with 


Ar,  £  1  and  Ar  £  2. 

1  q 

Equation  0-8  leads  to  the  condition 
k  k 

q  I  Ar.  =  q  I  (1+p)1'1  =  1/a  (0-9) 

i=l  1  i=l 

If  the  condition  for  maintaining  accuracy  at  hierarchy  level 
boundaries  is  to  be  satisfied,  then  the  following  numbers  must  be 
integers:  1/a,  k,  and  q.  Hence,  Equations  0-6  and  0-9  show  that 

q*2-n  aN..F.)-2n  =  1/a  (0-10) 

where  N-.F^ *2n  is  an  integer. 

For  a  512*512  screen  having  at  least  4  ground  points  per  pixel,  1/a  = 
210  and  Equation  0-10  shows  both  q  and  the  Equation  0-10  pseudo  frac¬ 
tion  sum  must  be  powers  of  2.  If  q  =  2,  the  Equation  0-7  yields 

k  £  210'mln2  (0-11) 

Table  0-3  illustrates  integer  values  which  satisfy  Equation  0-11. 
The  first  four  entries  in  Table  0-3  indicate  that  one  can  use  a  few 
segments  and  therefore  a  few  unique  increments,  or  one  can  use  a 
larger  number  of  segments.  The  larger  the  number  of  segments  the 
larger  the  number  of  bits  required  to  represent  the  pseudo  fraction. 
A  resolution  of  about  two  points  per  pixel  for  512*512  pixels  can  be 
achieved  with  a  four-bit  fraction  having  each  fraction  repeated  64 
times. 

The  next  four  entries  in  Table  0-3  indicate  that  one  can  use  a 
number  of  points  per  segments  which  is  not  a  power  of  two,  if  the 
resolution  is  given  by  an  integer  having  other  factors.  Hence,  a  four 
bit  fraction  can  represent  the  14  segments  where  each  fraction  is 
repeated  50  times  to  make  the  700  increments  totaling  a  normalized 
length  of  1000,  the  inverse  resolution. 
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TABLE  0-3.  SCAN  LINE  PARAMETERS  ACHIEVING  A  SPECIFIED 
RESOLUTION  WITH  A  GUARANTEED  UPPER  BOUND 
ON  THE  NUMBER  OF  TEST  POINTS  ALONG  THE 
SCAN  LINE 


q 

Points  per 
Segment 

k 

Number  of 
Segments 

Q 

Total 

Test  Points 

1n2/a 

Resolution 
Test  Points 

a 

Specified 

Resolution 

64 

11 

704 

709.78 

1/1024 

16 

44 

704 

709.78 

1/1024 

16 

45 

720 

709.78 

1/1024 

32 

23 

736 

709.78 

1/1024 

25 

28 

700 

693.15 

1/1000 

50 

14 

700 

693.15 

1/1000 

10 

70 

700 

693.15 

1/1000 

40 

17 

680 

693.15 

1/1000 

64 

-  7 

448 

443.61 

1/640 

16 

28 

448 

443.61 

1/640 

20 

22 

440 

443.61 

1/640 

20 

23 

460 

443.61 

1/640 

32 

11 

352 

354.89 

1/512 

16 

22 

352 

354.89 

1/512 

16 

23 

368 

354.89 

1/512 

64 

6 

384 

354.89 

1/512 

Table  0-4  illustrates  various  finite  resolution  solutions  to  the 
first  entry  in  Table  0-3.  The  11  segments  have  values  ranging  from  1 
to  2  for  3  bit  fractinal  accuracy  and  values  ranging  from  67/64  to 
125/64  for  6  bit  fractional  accuracy. 

This  Appendix  has  shown  that  the  use  of  a  pseudo  fractional 
increment  in  ground  coordiates  can  achieve  absolute  accuracy  (i.e., 
elimination  of  accumulative  round-off)  and  reduce  the  computatinal 
load  about  30%  compared  to  the  current  REAL  SCAN  algorithms. 
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TABLE  0-4.  SAMPLE  3  BIT,  4  BIT,  AND  6  BIT  SCAN  LINE  PSEUDO  FRACTION 


Exact  3  Bit  4  Bit  6  Bit 

Increment  Scaled  Scaled  Scaled 


1.040657 

8 

17 

67 

1. 108343 

9 

18 

71 

1.180431 

9 

19 

76 

1.257207 

10 

20 

80 

1. 338977 

11 

21 

86 

1.426066 

11 

23 

91 

1.518819 

12 

24 

97 

1. 617604 

13 

26 

104 

1.722815 

14 

28 

110 

1.834869 

15 

29 

117 

1.954211 

16 

31 

125 
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APPENDIX  AA 

DICOMED  START-UP  PROCEDURE 


Read  the  "Operation  and  Programming  Manual"  for  the  DICOMED 
before  attempting  this  start-up  routine. 

1.  Turn  the  key  on  the  upper  left  front  panel  of  the  DICOMED  to 
the  ON  position.  The  DICOMED  is  now  in  the  operating  mode. 
The  following  front  panel  lights  should  be  lit: 

Input:  8-bit 
Output:  Normal ,  Log 
Resolution:  High 
Filter:  Neutral 
Control :  Operate 


If  no  lights  have  come  on,  check  the  main  power  switch  located  on  the 
lower  rear  of  the  DICOMED  chassis.  Be  sure  it  is  in  the  ON  position. 
If  there  are  still  no  lights  on,  contact  Mr.  Jerry  Diddle  in  N-74. 

2.  Loosen  the  two  thumbscrews  on  the  lower  front  panel  and  lower 
it  until  it  stops.  This  exposes,  from  left  to  right,  the 
high  voltage  switch,  a  signed  three  digit  display,  the 
exposure  trim  knob,  the  exposure  calibration  button,  two  test 
select  knobs  (SI  and  S2),  auxiliary  inputs,  and  the  prime 
mode  button. 

A.  Press  the  exposure  calibration  button.  It  may  not  light 
immediately  (1-2  second  delay).  The  exposure  calibration 
works  in  conjunction  with  the  exposure  knob  on  the  upper 
front  panel.  The  exposure  calibration  for  commonly  used 
films  are  given  in  Table  AA-1.  The  exposure  calibration 
is  the  significant  value.  The  exposure  value  is  a 
suggested  value.  Adjust  upper  front  panel  exposure  knob 
for  desired  film.  Adjust  lower  panel  exposure  trim  knob 
until  the  signed  three-digit  display  shows  the  desired 
exposure  trim  value.  The  exposure  is  now  calibrated. 
Press  the  exposure  calibration  button  again  and  the  light 
will  go  out. 

B.  Switch  the  high  voltage  on.  If  the  high  voltage  is  not 
on,  the  film  will  not  be  exposed.  To  prolong  the  time 
between  major  adjustments,  turn  the  high  voltage  off  for 
~5  minutes  after  every  30-40  minutes  of  operation. 
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TABLE  AA-1. 

EXPOSURE  CALIBRATION 

i  EXPOSURE 

EXPOSURE  CALIBRATION 

TOP  PANEL 

LOWER  PANEL 

POLAROID 

TYPE  52 

400  4.6 

+.063 

TYPE  59 

80  10.45 

+.400 

ECN  5247 

100  10.45 

+.400 

EKTACHROME 

200 

200  4.25 

+.150 

KODAK 

PLUS-X  PAN  125  4.25 

+.132 

C. 

Now,  select  the  type  of  film  magazine  you  wish  to  use. 
The  Polaroid  magazine  is  usually  mounted  on  the  DICOMED. 
The  magazine  is  located  under  the  hood  at  the  top  of  the 
OICOMED.  If  you  wish  to  use  the  35mm  canister  refer  to 
page  12  of  the  "Operation  and  Programming  Manual"  for 
installation  procedures.  Pages  11-13  of  the  "Operation 
and  Programming  Manual"  describe  the  loading  of  film  for 
both  types  of  film. 
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APPENDIX  Art 

PlCOMF.D  •ORTVFR  ROUTINES 


Appendices  AC  through  av  presents  our  understanding  of  the 
function  of  each  of  the  oicomed  driver  routines.  Each  sec¬ 
tion  of  this  aroendix  contains  one  of  Jeff  Rubin's  subrou¬ 
tines.  Each  subroutine  has  a  brief  descriotlon  of  its  Pur¬ 
pose,  what  other  subroutines  call  it,  and  what  otner  subrou¬ 
tines  it  calls,  and  what  system  functions  it  uses. 

Two  functions  have  been  used  in  these  subroutines  that 
are  not  standard  fortram  functions,  but  VAX  FORTRAN  func¬ 
tions.  First,  Is  the  used  of  continutation  indicators.  In 
the  " V AX  - 1 1  Fortran  iv-PLUS  Lanouaqe  Reference  Manual",  pane 
1-7,  Section  1.1.4  entitled  'continutation  fields',  these 
indicators  are  defined  as  “A  continuation  indicator  is  any 
character,  except  zero,  or  space,  in  column  6  of  a  FORTRAN 
line  or  any  digit,  exceot  zero,  after  the  first  tab".  Tnls 
is  used  extents lvely  in  Runin's  subroutines.  Secondly,  is 
the  include  statement,  wnicn  is  defined  as  a  statement  tnat 
specifies  "that  the  contents  of  a  designated  file  are  to  be 
incorporated  in  the  FORTRAN  compilation  directly  following 
tne  include  statement".  This  is  detailed  on  page  1-9,  Sec¬ 
tion  1,5  of  tne  " v a x - 1 i  fortran  iv-PLUS  Languaae  Reference 
Manual"  Jeff  Rubin  aenerated  the  Uicomed  driver  routines  in 
1979,  Tnere  nas  never  been  any  formal  documentation  re¬ 
ceived  about  the  routines.  This  appendix  defines  tne  func¬ 
tion  of  each  routine. 


DEFINITIONS  of  system  services  used 

The  oicomed  routines  use  several  system  services  pro- 
vided  ov  the  VAX  ii/7R0.  The  definitions  are  given  here. 
The  definitions  were  obtained  from  tne  "VAX11  Software  hand¬ 
book".  I’he  pale  number  after  tne  definition  refers  to  the 
"VAXil  Software  Handbook". 

SYSSASSIGdaASSinv  i/o  Channel: s"provldes  a  device  with  an 
7/0  channel  so  that.  inout/output  operations  can  be  performed 
on  tne  device..."  p.mt 

SYSSFORCEXsFORCE  EXTTjscauses  an  exit  from  tne  specified 
process,  o.m 

SYSSSETImrssft  timer :s" a  Hows  a  Drocess  to  schedule  tne  set- 
tina  of  an  event  flan",  Tne  time  may  oe  absolute  or  delta, 
p.116 

SYSSOIOsOJEUF  1/J  RFd"ES t : a" l n i t i a tes  an  input  or  output  op- 


m 


VAVTRAeQUIPCFIN  80-0-0014-2 


NAVTRAEQUIPCEN  80-0-0014-2 


INCLUDE  01 CONED  COMMON ] 
BLOCKS  AND  DATA 
DEFINITIONS 


INITIALIZE  VARIABLES 


ASSIGN  I/O  CHANNEL 


INPUT  PARAMETERS 


STAND  ALONE 


'  STAND  \ 
ALONE  OR 
SUBROUTINE? 


SUBROUTINE 


v^OOES^. 

/  DATA  NEED\ 
TO  BE  READ  FROM 
v A  DATA  FILE?  ^ 


READ  DATA 


Figure  AB-la.  General  Flowchart  of  DICOMED  Picture  Generation  Routines. 
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Figure  AB-lb.  DICOMED  Picture  Generation  Routines. 
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’•'SUBROUTINE  THAT 
PERFORMS  FUNCTION 


Figure  AB-lc.  OICOMEO  Picture  Generation  Routines. 


3] 


NAVTRAEQU I PCEN  80-D-0014-2 


Figure  AB-ld.  DICOHED  Picture  Generation  Routines. 
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APPENDIX  AC 

SUBROUTINE  AST  =  ART.  FOR 


AST  Is  called  by:  0470Uf 
AST  calls:  047OUT,  ERR 

System  functions  used:  non# 

SUBROUTINE  AST 

C  THIS  ROUTINE  IS  EXECUTED  WHENEVER  THE  DICOMEU  FINISHES 
OUTPUTTING 
C  A  LINE. 

include  'common. FOR* 

INCLUDE  '10. FOR' 

IF(I0SH(1).NE.  SSSNORMADCALL  KKRC1) 

c  oo  we  need  to  output  a  other  copy  of  the  line? 

OPCMTsOPCnT-1 

IFfOPCNT  . LE .  0)G1  TO  ID 

C  YES 

CALL  047 OUT 

return 

C  NO,  WE  are  FINISHED  WITH  BUF2 
10  BUFRF(?)s-l 

RETUPN 
END 


.m/a?2 
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APPENDIX  AO 

SlIRHOUTT.JE  3 1 T 1  0  s  BU’IO.FOR 


Bino  Is  called  Oy:  0470HT,  D47P0S,  047STAT 

RITIO  calls:  EPR 

System  functions  used:  SYSsaiOR 

sijproutime  p.itio 

INCLUDE  'COMMON. FOR' 

INCLUDE  '10. FOR' 

ISTaT=SYS$QIOW(,%VAL(ICHAN) ,%VAL(IOSSFTMOOE) ,I0SB, , , , . 

1  WRITMOD, ,0,0) 

to 

ISTAT  =  SYS$aTOw( t %VAL( ICHAn) , %  V  A L ( IOSSENSEmODE) ,  IOSR. , . , , 
t  PT10,  .MSEC, 01 

IF  (XQS4C1)  ,F0.  SSSWASSEI)  GOfO  1ft 
IFdOvSH  (1)  .«£.  SSSXOPMADCAbL  ERR  ( 2 ) 

WBTtJRM 
F  NO 
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APPENDIX  AE 

COMMON  SLOCK  =  COMMON. FOR 


Common  Is  tne  data  co^^on  to  almost  all  Dicomed  routines. 
COMMON  Is  Included  in:  AST,  RtrtO,  CAMERA,  data  manipula¬ 
tion  routine,  l>47C*i>,  047  ilCK ,  D470IH,  D47POS,  D47STAT,  FI- 
f.AD  V  ,  F I L  S  E  L  ,  FILTER,  OPCriK,  READY,  VOINIT,  VIDCLS,  VIDDjT. 
VIDSET 

C  common. for 

C  COMMON  AREAS  USED  By  CAMERA  STATION  ROUTINES 
IMPLICIT  I INTEGER* 2  (A-Z) 

BYTE  CODE, MODE, BURRO , BUFRE , BUF1 , RUF2, NCOL 
COMMON 

/  C  T  R  L  /  C  0  •)  E ,  M  n  D  E »  E  D  h  (  1  2  )  ,  I  X  C  S  P ,  N  C  0  L  (  2 1  ,  L  N 1  ,  L  N  2  ,  L  N  i  , 

1  4I1PRFC2)  ,BURFO(?)  ,  14(2)  ,  I T  M 1  C  8  )  ,  M  ASZ ,  M  TSTS ,  MTBCT 
COM  MON/ YORK  /  RUFK409L) 

DIMENSION  bhF(2D48) 

EQUIVALENCE  (  R  <  I F ,  B  U  F 1  ) 

C  0 M M 0 N /  T M p /  Bl'F2(  RIR2)  ,BUFSZ.  JPCNT 
I'JTECER*4  BUFSZ 

COMMON  /FIXDT/  TCf 54) ,mELK,NLIN 
C  HE  FOL LOSING  EQUIVALENCE  ALLOTS  US  TO  ACCESS  BOTH  bytes 
OF 

C  A  BYTE  ARRAY  AS  A  WORD  VALUF. 

E on  I  VALE NCE  (  n  U  F  4  E  E ,  B  U  F  R  E  ) , C BUFREO , BU PEQ ) 
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SUHPnsJTfUE  1)4703  s  D47C^D.FDP 


D  4  7  C  M  0  (Di7  r  o  Tt  a  n  d )  ►'as  t  n  e  j  o  o  of  sensing  tne  data  word, 
CMD9.IF,  (Cowman)  onrfer)  to  the  Dicomed. 

047C4O  is  called  nv:  047HCK,  FILADV,  FILSEb »  FIl-TPR 

VIDCLS,  VinSET  "  ' 

P47CMO  calls:  BtTio,  e»R,  ready 

System  functions  used:  syssdio* 

S'mwn!jTr\‘F  r>47Cwn(CMnPHF) 

C  THIS  ROJTlME  SS'iDs  A  C  )4«ANP  TO  THE  DICOED 
I  JCL"oF  'rowvin  4, FOR' 

I JCLUOF  '10, FOR' 

C  CHECK  READY 

CALL  RF AOY 

C  CHECK  BIT  10  (I.F,  DJCOMCO  READ!) 

CALL  HTTlO 

C  SET  BIT  IS  TM  ThF  COMMAND  BUFFFk 
C4hslOP(dTTl9,CM0HilF) 

C  SEMD  THE  COM’-Mlr) 

ISTATsRYS$OTO.v(  ,%VAL(ICHA*)  ,  %  V  A L  (  T  OS *PI TELBLK  )  ,10SB, 
1  ,,CHl>,%VAbm,-«n,,f.SEC,NT»lFS) 

C  IF  I DSB  NOT  MH'-'At,  THEN  READY  *AS  NEVER  SET 
IF(  tOS«(  t  )  .  IE.SSRNIRmadc.ILL  ERR  (  t  ) 

RETURN 
E  >(D 
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SUBROUTINE  O470t)T  =  D47DJT.F0P 


04 7 JUT  sends  the  net:*  buffer  containing  a  line  of  data  to 
the  Uicomed. 

047 JUT  is  called  by:  VIOOUT 

D47JUT  calls:  AST,  mTlU,  READY 

System  functions  used:  S*  SS3IO 

SIJRR0O1  IMF  n470l!T 

C  THIS  ROUTINE  JUtOii.js  »  BUFFER  TJ  THE  DIC0*ED 
INCLUDE  'COMMON.  FOR' 

EXTERNAL  AST 
INCLUDE  '10. FOR' 

C  CHECK  TIE  PEAOT  PIT 
CALL.  READY 

c  CHECK  kit  10  ( I .  F .  niC'JSEO  REAP*) 

CALL  HTTlO 
C  SEND  A  BUFFER 

ISrATsSYS$OIO(%VAL(  1  )  ,  %V  Ab(  ICdAO  ,  *VAl,  (  ID$WKl TELHLK  ) 
1  ,  lOSM,  AST  ,  ,MUF2,%VA!,(BUFSZ)  , *121 ,  ,0,0) 

RETUP’J 
E  W  0 
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S'iHftfilJT  l*«E  047FOS  =  U47P0S.FQR 


D47POS  sends  position  data  to  the  Dicomed  to  allow  rando-n 
poslttonlno. 

D47P0S  Is  called  ov:  FILTER 

D47P73  calls:  BiTio,  ERP,  REA  it  If 

Syste-n  functions  used:  SYSsjtor 

SdRROUTI  4E  n47PnSCP0SI  TIO  «) 

C  THIS  ROUTINE  SENDS  POSITION  DATA  10  THE  DTCOMED 
INCLUDE  'COMMON. FOP' 

UCL.UOE  *IP.F"P* 

C  CHECK  READY  PIT 
CAM.,  READY 

C  CHECK  HIT10  (f.E.  DTCnHEO  READY ) 

CAM,  BJTlO 

C  SEND  POSITION  DATA 

ISTATsSYSsOinw(  ,%VAE(  TCHA..)  ,%YAu(  I  OS  *  *  I  TEL.BL.K  )  ,  1 OSR  , 
1  ,  ,  P0SIT10.I,%VAL(2)  ,WT?,  ,0,0) 

C  IF  I OSR  MOT  Mf)RMAi<#  THERE  K 1 5  An  ERROR 

IF(IOSF(t  )  .M?.  S3SM0Rmu,)CAI,L.  ERR(l) 
return 
E  40 
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RiJ'ipn  '.ITT  i'!K  D47STAT  s  D4  7S 1  A  T .  FOB 


047. s TAT  requests  r.h*»  status  of  the  oicoTiei, 

047STAT  Is  callel  hv:  D470CK,  FlLAOv,  FILSF.f,,  VlDCLS 

0473TAT  calls:  -HTIh,  M?R,  R^ADY 
System  functions  useH:  SYSSOJO* 

S'JRWOUTI  JE  f)47STAT(  STATUS) 

C  THIS  ROiJTp'E  READS  THF  STATUS  OK  THrl  0ICO*ED  AMO  RETURNS 
C  HE  VALUE  IV  ME  PARAMETER  STATUS. 

I  JCLUDK  'CD’Mru.FOR' 

I \’CLU!)F.  '10.  FOR' 

DATA  ^ASK/'77777'0/ 

STATUS*' 

C  CHECK  THE  PE A 0 Y  HIT 
C4Ui  READY 

C  MAKE  SURE  «ITlO  TS  SET  (I.E.  THE  OICOMED  IS  REAoY) 

C  ALIj  HJT10 

C  CHECK  RfT  11  TO  SEE  IF  A  U  Y  T  H  I  V  G  TS  GOING  ON 

ISTATsSYSs<HOM(  ,  A  V  A l. (  TCH  Ah  )  ,  %  V  AL  C  IOSSENSEHOOE )  , 

1  IDSrt, , , , ,HlTll , .0,0) 

IF(IOSP(t  ).E  ).  SSS* ASSET) RETURN 
IF(TOSh(l).NE.  SS$  MORmaDCALL  E«R(1) 

C  REQUEST  Trf  rijCor-’EO  TO  SEND  STAHJS  INFO 

ISTATsRYSsOtOt  (  ,%VA[,ClCHA<v)  ,%VAU(10SRfcADLHLK)  ,  IOSB, 
1  ,  ,STAT,%VA!,(2)  ,RD1  ,  , NSEC , N TRIES) 

C  IF  IO.SB  TS  MOT  NORMAL,  RF.ADY  WAS  NEVER  SET 
I  F(  I OSB  (  l  )  .HE.  SS$  NORM  All)  CALb  ERR(l) 

c  mask  our  pjt  is 

STA  Tl'SsT  A»JD(STAT,  MASK  ) 

RETURN 

ENO 
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DATA  ftLDCK  s  dFF.FOR 


DEF  assians  octal  values  to  varlaoies.  Further  exolanatton 
of  -nost  of  thesf*  assignments  are  qiven  In  I  *  AGE  RECORDERS , 
Models  046  and  nl7:  operation  ana  Rroar ammino  Manual,  Dl- 
COMED  Coroorat 1  on ,  paies  17-18. 

C  DEF. FOR 

C  THESE  DATA  VALUES  DEFINE  THF  D»lld  FUNCTION  CODES  AnO 

c  return  values  used  dt  the  oicomsd  , 

DATA  RDY/#2<»0'0/  l  READY 

DATA  ST1 0/#7000#0/  IHIT  10 

DATA  RlTlS/'loOOOU'D/  'SIT  IS 
DATA  WTt/'4O4'0/ 

DATA  WT?I/'sl4'0/ 

data  ci EAr/o/  'External  initialize 

data  s««It/6/  ! Select  8-blt 

data  LnGS/'2l2'n/  lulnear  steos  of  ienslty 

data  RFS/'lf #n, MS' J, '14' j/  iwesolutlon  Csee  oelow) 

data  ifset/ * i no ' o/  'Default  offset  if  mAGZ*1 

DATA  C0U/'23t '0, '232'0, '?33'0/  icoiors  (see  nelo*) 

data  he  j/'2ju'0/  'Neutral 

OATA  sni/i/  jstart  Of  Input 

data  hpoS/'io'O/  ichame  Horizontal  position 

DATA  w T 2 / ' 4 1 4 ' J / 

data  hi rtt/#4noo'o/  loir  U 

DATA  R  D 1 / S / 

data  FAnv/'7Do'n/  J fi In  ADVance 

DATA  En®’M/#j2'0/  'End  Of  F11M 

data  i»*.vr/'2D4'n/  llRaqe  walTina 

data  a F T T w ( j n / 2 / 

data  'n/  *  *orm*]  polar  ity 

data  RFCV'?04'n/  • RECord  request 

DATA  EOf /4/  jund  Of  Input 

data  RfcDY/'?OD'f>/  JdEaDY 

data  VDS/'ti'o/  'change  vertical  position 

data  S E C / 2 / 

DATA  NTRlFS/b/ 

RES  Is  defined  as  folio**:  '14'0  Is  lo*;  '15'0  is  media": 
'l&'l  Is  otah.  Col#  Is  defined  as  follows:  is  red? 

'232'0  is  oreen?  '2l?'n  is  nlue. 
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SUBROUTINE  DELAY  =  DELAY. POP 


DELAY  Is  *alt  routine.  The  number  of  seconds  of  delay 
sent  to  DELAY  by  the  calling  routine. 

DELAY  Is  called  by:  FILAOV.  FlLSEL,  FILTER,  ORCHK 

DELAY  calls:  none 

System  functions  used:  SYSSSETIMrt,  SYS$*AITFP 


is 


SUBROUTINE  DELAY  (  SECONDS) 

IMPLICIT  INTEGEK*2  (A-Z) 

I  NTEGER  *  4  DFLTAOHr,(2),DELIA(2)  , l , SYSSSETIHP 

data  oeltaorg/  -10 000000,  -1/ 
data  del  r a ( 2 ) /- i  ✓ 

C  COMPUTE  THE  DELTA  TTMe  REQUESTED 

DELTA (  1  ) SS ECO NOS* DELTA DR S ( 1 ) 

I  s  S  YS$5KT  T.  HP  (  %  Y  A L  (  4  )  ,  DEL  T  A  ,  ,  ) 

IF  (  .MOT,  T)  GO  TO  10 
PALL  SYS$WAlTKP(  %  V  A  t  j  f  4  )  J 
10  CONTINUE 

RETURN 
e-jd 
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S 1 1 K M f) i ) T T 'J F!  E»R  =  ERR. FOR 


EUR  outputs  an  error  *essaue  as  determined  by  tne  callini 
routine.  a  forced  exit  ( SY S$ FDKCEX ( , * ) )  Is  executed  after 
tne  message  is  output. 

ERR  Is  called  t>v:  AST,  PIT1U,  04700,  D47POS,  D47STAT. 

FI LSEL 

ERR  calls:  none 

System  functions  used:  syssfhrcf.a 

SUBROUTINE  FRW  (  I  ERR  ) 

GO  TO  (10,70,  30  HFHK 

10  PRINT  8 1  0 

810  FORMAT  ('n**+THE  D3J1«  IS  NOT  REAPY***') 

GO  TD  100 

20  PR  I 'IT  8  20 

820  FORMAT  ('0***  THE  0 J CflMgD  IS  rNOf  READY***') 

GO  TO  100 

30  PRINT  3  30 

830  F0RviAT( '0***THFPE  IS  A  PROPLE"'  'riH  SELECTING  THE 

FILTER***') 

100  CALL  SYSSEOBCM(  ,  ,  ) 

end 


* 
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SUBROUTINE  FILADV  s  FILAOV.FOR 


FILADV  CFII..T,  Af’v^nc*)  advances  35rpn>  f  1 1 t>  aslnq  a  4  perform 
tlon  Dull-iowr,  accnrHlm  to  American  Fil-n  Acaieny  Stan 
darls . 

F I l A r> v  is  call*-!  hv:  vrnCLS 

FILADV  calls:  047 Cv0,  047 S TAT*  DFLA  X 

System  functions  used:  none 


10 


SUBROUTINE  FILADV 
INCLUDE  'COMMON.  Fi)P' 
I  ICLUDfr  '10. Fn^' 

CALL  r»47C*’D(F4nv) 

CALL  OFLAy(S) 

CALL  D47STAT(STATUS) 
IF  (STATUS  .NF.  EOF  4 ) 
CALL  D47C«r>(  IMWT1 
CALL  D47STAT( STATUS) 
if(status.^f.peco)  iin 
RETlJP'J 
F-jn 


•r'AOVs'200'O 

RETURN  iF3FMs'3?'1 
•  1m*/Ts'204'!J 

TO  10  !HEC0='204'0 
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SUBROUTINE  FILSEL  =  F I  US  EL .  FOR 


FILSEL  (Fitter  sFLect)  selects  the  filter  to  oe  used 
D47CMD,  ««here  COLOR  Is  the  cmtTani  buffer  (C«OBuF). 
is  defined  as:  red='23l'0#  ureen='232' J,  oiue='?33'o. 
FILSEL  is  called  ny:  FILTER 

FILSEL  calls:  047CMD,  D47  stat,  delay,  err 

System  functions  used:  none 

SJRHOUTIME  FILSEL  ( COLOR ) 

INCLUDE  'Common. for' 

UCLUDE  'TO. FOR' 

CALL  D 4 7 C^D ( COLOR ) 

CALL  delay ( 5 )  J ,v ait  *>  seconds 

10  CALL  D47STAT  (STAniS) 

IF  (STATUS  .EO.n  . OR . STATUS . ED .  REDY)  RETURN 
CALI,  ERR(3)  !  Filter  selection  Drooler 

RETUP i 
END 


via 

COLOR 
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SOMPnJTIfJK  FILTER  =  KILTER. FOR 


FILTER  determines  which  filter  has  oeen  reauestei  and  sends 
that  data  to  fIlSeL.  This  subroutine  will  also  select  the 
horizontal  and  vertical  offsets  at  '100,100'  octal,  it  maGz 
equals  one.  This  is  not  for  use  with  35m*!  see  the  section 
entitled  Movies  is  the  main  body  of  tnis  report. 

FILTER  is  called  ov:  data  manipulation  routine 

FILTER  calls:  0 4 7 c M n ,  D47PDS.  DELAY,  FILSEL 

System  functions  used:  none 

surroottme  kilter 

I  JCLUDE  'CCHMD’j.FOR' 

INCLUDE  'm.FOR* 

10  TFIHUFREI?)  .ME.O  )  00  TO  15 

C  IF  RIF2  IS  IDT  p’RKE,  w'AIT  AND  TRY  ACiAlN' 

CALL  DELAY  f  2  ) 

<37  TO  10 
15  CONTINUE 

I F  (  HUFC E7 #  NE.  0  )  <37  TO  10 
C  1L7P  =  VE'J 

I F ( NCOL ( l ) • NE.  3  )  Gil  TO  30 

I=NC0L(2) 

colops  coLcn 

30  CALL  FILSEL(CDLOR) 

CALL  D47C’-'0f CLEAR) 

CALf,  )47C"D(Snn 

I  F(  M A  7Z .  EO.  o  )  RET'lR  'J 
CALL  D  4  2  C  M  D  (YPOS) 

CALL  04/PD s(OFSET) 

CALL  DUr^(HPnS) 

CALL  CM7nr),sCOFSEr ) 

RET'JPN 

f 
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Cn**OM  BLOCK  2  =  IO.FUR 


I'J  (Innut/Oufput)  is  a  comon  blocK  £oi  all  the  routines 
that  use  Hi,  or  system  i  p  s  . 

10  Is  included  lh:  AST,  -<TT10,  CAMERA,  data  manipulation 
routine,  D47C*D,  0470CK,  P470UT,  047P0S,  P47STAT,  FII.A0V, 

FILSEL,  FILTER,  READY,  VH»CLS,  VJJSET. 

C  10. FOR 

r  COMMON  AREAS  USE!)  BY  CAMERA  STAIIOn  ROUTINES  'JSINC  jio 

rjM^nu/CHAf'iNEI./ICHAN,inSB(4)  ,  IS  rAT,*lSFC,N TRIES,  MBxCrAn 
I  JTEGER*  1  ICHAN,1ST4T,SYS$DIP*,SYSS7I3,SYS$CKEMBX, 

1  ^XCHA'J,SWC^AV 

Cr^MD  J/HlTCO/ROY  ,  BT 1 0  ,  WR I  T *> on ,  *  T 1  ,  R I T 1  S  ,  R  T 2 1 ,  CLEA R  , 

1  RES(31 ,NO»M, LOGS, OFSFT, COL ( 3) , M EU , SOI , VP03 , HP JS , 

2  BIT1  1  ,RD1  ,PEOY,FAOV,EOFv,,EOI,iM.^T,RECO,S8dlT,^T2 
C  DEFINE  FUNCTION  COOES  A NO  RETURN  VALUES 

PARAMETER 

1  T  0  $  R  F  A  D  F  j  B  L  K  ='21'x, 

2  I^SWRTTELBLK  r'20'X, 

3  InsSETMOOE  ='?3'X, 

4  TlSWRITEOE  ='2«'X, 

5  r  0  S  S  F  N  S  F  M  0  D  E  =  '2 /'X, 

6  SSS NORMAL  ='01 'X 

parameter 

1  rose' NO*  s' 40'  X, 

2  rnSRF.AOVM.K  s'31'x, 

3  SS$W ASSET  = ' 09 ' X , 

4  i  o  $  m  *  r  r  a  r  r  n  s'ioo'x 
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s;hr  j m r i k* p:  opchk  =  jpchiv.for 


t- 


* 


9 


OPCHK  (OutPot  cwecK)  chec<s  to  H3<e  sure  all  iata  nas 
the  ojtn'Jt  Duffers  before  exlt.ina. 

OPCHK  is  called  oy:  Oat*  manipulation  routine 

OPCHK  calls:  OpLAY,  VIDCLS,  VIOOOT 

System  functions  use-*:  none 

SJBRO'JTT  IP.  OPCHK 

C  THTS  ROUTINE  iAkES  SURE  THAT  ft[,L  OUTPUT  IS  COMPLETED 
C  8SFORE  EXITING 

INCLUDF  'cn.MMO  l.F  JR' 

go  rn  ?o 

C  UNOER  CERTAIN  CONOtTlONS,  00  AN  PIP  TJ  TUP  MAGTAPE 
CALL  OTPK 
RETURN 

C  00  *E  HAVE  A  8'JFKRK  THAT  -.'EPOS  10  BE  « M I T  T  E  N 
20  I F  (  8  U  R  E  0  (  2  )  .  E 0 *  0)Gr)  TO  30 

C  YES,  IS  RUFPFR2  AVAILABLE? 

10  IF(BUFRE(2).NE,  0)GO  TO  lb 

C  NO,  SO  •J A I T 

CALL  DFLAYC2) 

G)  TO  10 

C  8UF2  IS  AVAILABLE,  SO  PREPARE  TO  OUTPUT 
lb  CONTINUE 

BiJREA(?)sO 

call  y  to  out 

GO  TO  20 

C  HAS  THE  LAST  SUFFER  WRITE  OFE'1  COMPLETED? 

30  rF(Rl)ERE(2)  .NK.  0)GO  TO  3b 

C  NO,  SO  WAIT  A  JO  TP Y  AGAJN 
CALL  Of  L A Y  f  2 ) 

GO  TO  30 

3b  CALL  VI  )CLS 

RETURN 
k  in 


< 
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SHHPfJUTTMK  rtf' An  y  s  rtFADK.Fnrt 


READY  cnecKs  tna  .)|ro"'»'i  status.  If  the  status  Is  not  nor¬ 
mal,  the  error  m  e  s  s  a  n  e  "The  o  R  l  l  a  is  not  ready"  is  sent  to 
tne  ooerators  terminal. 

READY  is  called  oy:  D47C-MD,  D4/OCK ,  0  47  QU  T ,  U47P3S, 

047STAT 

ready  calls:  Epr 

System  functions  used:  SYSSDIOw 

sue root r *e  ready 
IMCLUDE  'cn dMO^.EQR' 

IJCLUOE  'TO. FOR' 

10  lST4T  =  SYS$Qim>  ( ,%VALCICHA  O ,%V4b(in$SfdSEMOoe) ,105ft,  f 

1  ROY,, MSEC,  0) 

IF  (I0SR(1)  ,E'l.  SSSWASSF1)  SOTO  10 

IF  ( ITS  a ( 1 )  5S«N0P*4L.)  CAM,  E  R  R ( 1  ) 

REFORM 
F.  t) 
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SUBROUTINE  VOIMT  =  VDINiT.FDO 


VDINIT  (Vloeo  iJlTialize)  initializes  tde  video  output, 
output  puffers  are  cleared  via  VIDOUT. 

V  0 1 N I T  is  called  hy:  lata  manipulation  routine 

vdinit  calls:  viddut 

System  funtions  used:  none 

Subroutine  vdinit 
INCLUDE  'CONf-tON.FOR' 

C  VIDEO  0/P  INITIALIZE 

W 

C  IS  BIJF1  free 

10  IF  (RUFRE(l).'JE.O  )C,0  n  20 

C  NO,  IS  -3U F2  FOSE  .  IF  NOT,  *AIT. 

12  IF  ( R i J F R E ( 2 )  . NF .  0)  GO  TO  15 

C  CALL  DELAY!  1  ) 

G)  TO  12 
15  CONTINUE 

C  YES,  CLEAR  POSSIBLE  REQUEST 
BJREQC2  )=0 
CALL  VTDOiJT 
GO  TO  10 

C  RUF  1  IS  FREE  SO  RESET 

20  HJPRF.cn  so 

RETURN 
END 


The 
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<5-!ftRr>»ITIi'  K  VIOCLS  =  VIOCLS. FOR 


VIOCLS  (VIDeo  CLe*r  Status)  sends  an  EDI  (End  Of  input)  Com 
nand  to  tr>e  i)lco-n*»d  vta  D47C*r).  It  is  also  cananle  of  exe 
cut  ini  a  ftiT  advance,  If  MAC,7.  eiuals  one. 

VIOCLS  is  called  ny:  riPCRK 

viocls  calls:  0\lc« n,  (H7stat,  filaov 

System  functions  used:  none 

subroutine  vinciiS 

INCLUDE  'COMMON.  F)R' 

INCLUDE  'IO.FOR' 

CAI.L  04  7CM0(  Fiji ) 

CAM.  047STAT(SrATUS) 

IF  (MA3Z  .ED.  0)  30  IT)  !0 
CALL  FILADV 

10  CALI,  )47C’*r)( CLEAR ) 

R  E  T  U  R  M 
ENO 
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APPENDIX  AJ 

s'jqppiJTiME  vioour  =  viddjt.for 


V I  DOJI  (ViOeo  D'lTout)  oufouts  a  data  outfer  to  tne  Dicomei. 
VIDO'JT  is  callei  bv:  OPCHK,  vnitflT,  data  manipulation 

routine 

VIDOUT  calls:  0<i7out 

System  functions  used:  none 

SlJRwfl'JT  l  MR  VlDOljr 
I  « CL II OF  'C0;’mC  M.FJH' 

C  IS  rtilF'2  FRFK 

JF(Pl'FPE(2).UF.  0)  5f»  TO  10 
C  Mf3 ,  SKT  HIIF2  REO 
RIJRE0(?  J*-l 
GO  TO  *»0 

C  YES,  SHOULD  OID'P  TO  TAPE 
10  CJVTIMUF 

GO  TP  1? 

CALI,  4 A  r4R(«TST5,*ilF,NFLE) 

BUFREE  =  '7?577'0 
G1  TP  50 

C  DO  <0T  OU**P  TO  TAPE 

C  MOVE  P U F 1  TO  «JF?.  TF  L T  SI?  HV IES , DUPLICATE 
12  H  :J  F  S  7  s  0 

B'JFRF(  ?  1  si) 

OPCOTs? 

IFC  J F  L P  .  Gr.SI  ?)  VCOTsl 
D)  4  0  1=  1  ,  “  M  >. 

H-IFS7.SI'  J F 5 7 ♦  l 

H.JF2C  ■IDFSZJsPnFj  (  t) 

IF(VFLF.Gt.  51?)  GO  Tf)  40 
3  JFS7  =  P  lrSZ'fl 
H,JF?(nl.iFSZ)=Hi  FI  (  I) 


40 

cosn  vie 

C  SET 

HU  F 1  FPFF 

H.IFmC-  (  i  )  =-l 

CALL  i)  4  7  0 1 1 T 

50 

RKTURV 

fe’vn 
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APPENDIX  AV 

S'mfnnT ile  winsFr  =  viuset.for 


VIOSET  (Vineo  set-up)  Initializes  trie  Meowed!  settings. 
VIOSET  Is  called  hv:  CAMERA,  data  nan 1 ou 1  at  Ion  routine 

VIOSET  calls:  |)47CM r. 

System  functions  use'*:  none 

subroutine  vtlset 

I  VC r, il»>c  'COMMO  *.E7R' 

INCLUDE  'TO. FOR' 

CALL  D47C‘1D  (CLEAR) 

CALL  047C'O(SR9TT) 

CALL  047C.vn(Pfc’S(  4  JOE)  ) 

CALL  D47CV. O(MlRM) 

CALL  047C*<D(L11S) 

RET'JWN 
E  JO 


1S9/3M) 
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ftPPt-wnix  pa 

APPPNPIX  4*  OKSCRIPfT JM 

Aooenriices  bh  tnrouan  BC  contain  the  routines  that  were  used 
to  test  tne  capabilities  ot  the  DlTOMEn  D47  Inaie  Recorder. 
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APPENDIX  B8 
RANDOM  POSITIONING  AND 
ARBITRARY  POSITIONING  TESTS  USING  RANIM. FOR 


The  DICOMED  allows  the  option  of  arbitrary  positioning.  Arbitrary 
positioning  allows  picture  placement  anywhere  in  the  DICOMED  field. 
Two  subroutines  (D47CMD  and  D47P0S)  must  be  called  to  alter  the  start¬ 
ing  position  from  its  default  location.  The  default  location  is 
(000,000)  octal.  To  change  the  starting  position: 

1.  D47CMD  gets  VPOS,  the  vertical  offset.  VPOS  is  defined  as  11 
octal  in  DEF. FOR. 

2.  D47CMD  is  passed  the  vertical  offset. 

3.  D47CMD  gets  HPOS,  the  horizontal  offset.  HPOS  is  defined  as 
10  octal  in  DEF. FOR. 

4.  D47P0S  is  passed  the  horizontal  offset. 

Steps  1  and  2  must  be  performed  in  order;  likewise  for  steps  3 
and  4.  However,  steps  3  and  4  may  be  performed  prior  to  steps  1  and  2 
with  no  difference  in  the  result.  RRANIM.FOR  (RANdom  IMage)  is  a  test 
routine  which  allows  one  to  place  a  rectangle  at  any  position  within 
the  DICOMED  field.  The  rectangle  width  and  height  are  input  along 
with  the  desired  positioning,  and  the  resolution.  The  lines  defining 
the  rectangle  are  four  picture  elements  (pixels)  wide. 

The  following  is  a  listing  of  the  Fortran  code  for  RANIM. FOR. 


This  program  is  used  to  place  a  rectangle  of  any  desired  size  in 
the  DICOMED  field.  The  square  and  the  resolution  can  be  arbitrarily 
positioned  by  terminal  input.  The  lines  on  each  side  of  the  square 
are  four  pixels  wide. 

This  program  was  written  using  Jeff  Rubin's  DICOMED  routines  and 
Rick  Mitchell's  revised  DICOMED  routines.  Copies  of  these  routines 
are  in  the  P8734  FORTRAN  listing,  entitled  DICOMED  PICTURE 
GENERATION  TESTS. 


INCLUDE 

INCLUDE 

INCLUDE 


PROGRAM  BY: 
DATE: 

PHONE: 

LAST  REVISION: 


THE  DICOMED  CONMON,  I/O, 
'[DIC0MED]C0MM0N. FOR ' 
'[DIC0MED]I0. FOR ' 


G.  BECKER 
11  MAR  1981 
677-7621 
2  SEP  1981 

AND  DATA  DEFINITIONS. 
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INCLUDE  '[DICOMED]DEF. FOR' 

INTEGERM  SYS$ASSIGN 
C 

C  INITIALIZATION  FOR  BW  POLAROID 
C 

MAGZ=0 
NC0L(1)=0 
NC0L(2)=0 
BUFREE= '77577 "0 
BUFREQ=0 
C 

C  INFORMATION  INPUT  FROM  TERMINAL  BY  USER 
C 

NELE=512 

NLIN=512 

M0DE=1 

TYPE*,  'ENTER  THE  PICTURE  SIZE  (NLIN.NELE)' 

ACCEPT*,  NLIN.NELE 

C*NOTE :  THE  HORIZONTAL  AND  VERTICAL  OFFSETS  ARE  OCTAL  VALUES. 
TYPE*,  'ENTER  THE  HORIZONTAL  AND  VERTICAL  OFFSET' 

READ  (5,20)  HOFSET,  VOFSET 
20  FORMAT  (203) 

TYPE*,  'ENTER  RESOLUTION' 

ACCEPT*,  MODE 
C 

c  ASSIGN  THE  DRUB  TO  A  CHANNEL 
C 

I ST AT=SY S$ASS IGN (  'UZAO: '.ICHAN, ,) 

C 

CALL  VIDSET 
CALL  FILTER 
CALL  D47CMD(VP0S) 

CALL  D47P0S(V0FSET) 

CALL  D47CMD(HP0S) 

CALL  D47P0S(H0FSET) 

DO  36  J=1,NLIN 

DO  35  I-l.NELE 

IF  (((I. LE.4).0R. (I.GT. (NELE-4))).0R. ((J. LE.4).0R. 

-  (J. GT. (NLIN-4))))  THEN 

BUF1(I)=255 

ELSE 

BUFI(I)=0 

ENDIF 

35  CONTINUE 
CALL  VDINIT 
CALLVIDOUT 

36  CONTINUE 
C 

CALL  OPCHK 

STOP 

END 
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To  use  RANIM.FOR,  it  must  be  compiled  and  then  linked  with  the 
DICOMED  driver  routines.  This  is  accomplished  by: 

1)  Compiling  RANIM.FOR: 

$  FOR  RANIM 

2)  Link  it  to  the  DICOMED  driver  routines: 

$  @RANIM 


The  @  executes  a  VAX  command  procedure  entitled  RANIM.FOR  shown  here: 

$LINK/EXE=[P8734]RANIM  - 

DR AO: [UTILITY. DICOMED JBLKOAT , [P8734]RANIM,  - 

DR AO: [UTILITY. DICOMED]DICOMED/LIB 

The  result  is  an  executable  file  entitled  RANIM.EXE 

3)  Run  RANIM: 


To  illustrate  the  required  input  parameters,  a  typical  terminal 
session  is  shown  below.  Computer  response  is  in  normal  type  while 
user  response  is  in  boldface. 

$  FOR  RANIM 
$  @RANIM 
$  RUN  RANIM 

ENTER  THE  PICTURE  SIZE  (NLIN.NELE) 

512 

512 

ENTER  THE  HORIZONTAL  AND  VERTICAL  OFFSET 

010010 

ENTER  RESOLUTION 
1 

FORTRAN  STOP 

$  RUN  RANIM 

ENTER  THE  PICTURE  SIZE  (Nl IN ,NELF ) 

217 

401 

ENTER  THE  HORIZONTAL  AND  VERTICAL  OFFSET 

112145 

ENTER  RESOLUTION 
2 

FORTRAN  STOP 

$  RUN  RANIM 

ENTER  THE  PICTURE  SIZE  (NLIN.NELE) 

50 

512 

ENTER  THE  HORIZONTAL  AND  VERTICAL  OU  SE  I 
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000240 

ENTER  RESOLUTION 
3 

FORTRAN  STOP 
$  PURGE  °ANIM.* 


This  session  shows  three  separate  executions,  or  runs,  of  RANIM. 
EXE.  These  three  runs  were  all  placed  on  the  same  Polaroid  photo¬ 
graph.  This  photograph  is  shown  in  Figure  BB-1.  Table  BB-1  describes 
which  rectangles  resulted  from  which  set  of  inputs. 


Figure  BB-1.  Terminal  Session  Photograph  per  Table  BB-1. 
TABLE  BB-1.  DICOMED  POSITIONING  IN  FIGURE  BB-1 


RECTANGLE  RESOLUTION  DIMENSIONS  OFFSETS 

H  X  W  HORIZ.  VERT. 


TOP 

RUN  1 

1=HIGH 

512  X  512 

010 

010 

CENTER 
RUN  2 

2=MED. 

217  X  401 

112 

145 

BOTTOM 
RUN  3 

3=L0W 

50  X  512 

000 

240 

***N0TE: 
illustrated  in 

Leading  zeros  are  significant 
Table  BB-1  for  the  typical 

on  the 
terminal 

offset 

session 

inputs 

shown 
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The  DICOMED  field  was  'mapped'  using  RANIM.  The  map  is  shown  in 
Figure  BB~2.  The  Polaroid  tab  is  also  shown  in  Figure  BB-2.  It  is 
the  edge  of  the  Polaroid  print  without  90  degree  corners.  This  tab 
makes  a  handy  reference.  Holding  the  photograph  with  the  tab  at  the 
top,  the  location  (000,000)  is  at  the  top  left  corner,  (000,377)  is 
the  bottom  left,  (377,000)  is  the  top  right,  and  (377,377)  is  the 
bottom  left.  Each  square  is  40  by  40.  All  locations  and  dimensions 
here  are  octal  values. 


Figure  BB-2.  Map  of  the  DICOMED  Image  Field. 
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APPENDIX  BC 

COLOR  TESTS  USING  SRCAMSA 


SRCAMSA  is  a  test  routine  that  allows  the  generation  of  various 
color  tests.  One  purpose  of  SRCAMSA  is  to  test  exposures  on  different 
types  of  color  film  for  color  correctness.  The  second  purpose  of 
SRCAMSA  is  to  generate  different  color  combinations  in  an  effort  to 
create  colors  other  than  red,  blue,  and  green.  SRCAMSA  is  divided 
into  three  sections.  Section  one  creates  color  bars  shown  in  Figure 
BC-1.  Section  two  creates  a  color  triangle  shown  in  Figure  BC-2.  The 
last  section  is  the  color  gradient  section.  Its  output  is  shown  in 
Figure  BC-3. 


Figure  BC-1.  Output  of  the  Color  Bars  Section  of  SRCAMSA. 


Figure  BC-2.  Output  of  the  Color  Triangle  Section  of  SRCAMSA. 


u  u  u  i;  u  u  u  tj  u  u  cj  cj  u  t i 


JAV  r  P  A  E  ■ U  [HO  >  HO-n-Out  4-2 


A  listing  of  spcamSa.fop  Is  aiven  n<»re: 

SRCAMSA . FOE 

ALTERED  KRfi.1  G  BCA*SA.FOR  *YS  s.  M.  PICHIE 
PHONE:  677-7*21 
DATE!  *7  f.i\y  hi 

T’lIS  IS  A  GENERAL  P  JRPOSF  D  l  C  U  M  E  D  RJUTT  mE  *HICH  ^MO ^S 
FOR  THE  INPUT  IF: 

t)  FILM  TYPE, 

2)  PICTURE  SIZE, 

3)  RESOLD  rinw,  \VD 

4)  HORIZONTAL  AMP  VERTICAL,  OFFSET. 


IMCLUIU  'DRaO:  [UTILITY. Of COrfEU] C 0  « M ON . FOR ' 

T  iCf.UDF  *[)»A<i:  [UTILITY. DICO MFD)  L'F.F.FDR' 

INCLUDE  'DkAP: (UTILITY. Of  COME L) I  3. FOR' 

REAL  FJL’J  <  ,  DEM  ,  DEL  J  ,  01  ST 
ijtegep**  sys$ assign 

£*******!  g  X  T  I  Af  I  Z  A  T  T  0  N  OF  V  A  R  I  A  rtL  tS  ******************  * 

H  )FSET  =  0 
V3FSET=0 
MAGZ  =  0 
MCOLC  l  )*') 

MC0L(2)=>) 

C  ASSIGN  DPI  IN  TO  A  CHANNEL 

ISTAT  =  SYSS  ASSIGN  ( 'UZAO : ' , iCU  AM,  ,  ) 

C  r F  D R 1 1 P  IS  POT  ASSIGMFO  «E  CAM  J 3 T  CONTINUE 

IF  (.MOT.ISTAT)  THEN 

Print  in 

10  FORMAT  ('"0  P  1  1  H  CANNOT  HE  ASSIGNED 

-  T  3  A  CHANNEL***') 

STOP 


E  JO  IF 

C*******EVD  INITIALIZATION**************1 

HiJFPEF='77S77"J 
0’JFPF  j  =  D 

TYPE*,  ' 

TYPE*,  'UEiNFWAL  DlCllMED  RiHJITNF' 

TYPE*,  '  ' 

C*******t^P(jT  FRO  1  T  E  I'1  M  T  m  A  L,  *************  1 


TYPE*, 'ENTER  miTPUT  SOURCE:  1=CJL3R  PARS' 

TYPE*,'  ?=CJL3R  TRIANGLE' 

TYPE*,'  3=C3LDR  GRADIENT' 

TYPE*,'  4=EJRTRAN  STOP' 

ACCEPT* , ISOp 
IF( TS0R.E0.4)  STOP 

TYPE* , 'ENTER  THE  i.f  /DFR  fir  PASSES  UE  THE  SDJRCE' 
ACCEPT*,  I  PASS 

type*.  'Enter  the  picture  size  i nlin , nei.F) . ' 


u  tj  u  u  u  o  u  u  u  i: 
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ACCEPT*,  Jli J N ,  NF.LE 
NLTN2=NL  IN/? 

TYPE*.  'E'JTEP  TYPE  OF  FILM;  POL  AR  .01  D  =  0  ?  35^  =  1.' 
ACCEPT*,  IMOV 

TYPE*,  'ENTER  OFSIREO  R  E  S  0  L  iJ  T 1 0  N  :  P3l.AR0lD  =  iJ  35")ti=i.' 
ACCEPT*,  MODE 
IF  (IMCJV.EO.t)  THE '  J 

TYPE*,  'ENTER  THE  HORIZONTAL  A  N  D  VERTICAL 
*  OFFSETS:' 

TYPE*,  '  POLARJID*000,000?  3 5nm=l 4 0 , 1 45 

READ  ( 5 , 30)  HOFSEi, VOFSET 
30  FORMAT  (03, IX, 03) 

END  IF 

C*******END  INPUT  FROM  TERMINAL*********************** 

VIDSET  CALL  047CM0  TO: 

1)  CLEAR  THE  COMMAND  BUFFER, 

2)  SET  THE  DATA  SIZE  TO  8  BITS, 

3)  SET  THE  RESOLUTION, 

4)  SET  THE  POLARITY  TO  NORMAL,  AND 

5)  SET  LINEAR  STEPS  IN  DENSITY, 

THE  HORIZONTAL,  AND  VERTICAL  OFFSETS  ARE  GIVEN  TO 
THE  niCOMFD. 

GOTOCtlO,  120,1  30)  ISOR 
TYPE*, 'ERROR  IN  SOURCE  FLAG' 

GOTO  100 


HO  TYPE* ,  '  FORKING  ON  COLOP  BARS' 

DO  200  K=1, IPASS 

CALL  V I f)SET 

n 

NC0L(1)=3 

NC0L(2'>sl 

n 

w 

CALL  FILTER 
CALL  D47CMD(HPOS) 

CALL  047P0S(HDFSET) 

CALL  D47C  'D(VPOS) 

CALL  D  4  7  DflS  (  V  n  FS  E  T  ) 

C  PAINT  HE'D  FILTER  ACTIVITY  ON  COLUMNS  l-)7o 

DO  20  I  =  1  ,  N L I '• 

CALL  VP  [NIT 
D  )  21  Jst  ,M2 
BUF 1 (  J ) =0 

IF  CJ.LE.170)  BUF1(J)=-1 
21  '  )N TI NLE 

JmLL  VIDOIJT 
20  CONTINUE 

CALL  OPCHK 


O  O 


J  A  VTP  AKii'J  I  PCr.ii  a  0-0- ooi  4-? 


pAI’vT  KL'lp  Flj.rpw  ACTTVITi  JN  C  Jf.O’Jt  MS  171-140 

CALL  vi  >skt 
NCOL(2)=3 
CALL  F I Ij Tpr 
CALL  i)4?c,<t)f  MPUS) 

CALL  i)4  7PnS(HiiFsFT) 

CALL  04  7C'D  (  V  P  OR  ) 

CALL  D47P0S( VOFSPT) 

DO  12  T  =  1  . L T  I 
CALI,  V  0 1 M  t  T 
DO  1 )  J  =  l  ,  5  12 
RiJFI  CJ)=0 

IF  (  J.GT.17o.AND.  J.LE.340)  r»UFl(J)s-l 

31  C)M7MHK 
CALL  V  JO-TOT 

32  CONTImUE 
CALL  TPCHK 

PATMT  GREEN  F  T  LTFR  ACTIVUY  ON  Cr»LU*'0S  141-412 
CALL  VIOSKT 
^CTLf 2)=2 
CALL  FILTER 
CALL  D 4 7 C M l> {  HP  OR  ) 

CALL  04  7  PoS  (  4f)FSFT  ) 

CALL  0  4  7  C  0  (  V  P  0  $  ) 

Call  D47Pnsr vofrkt) 

Da  4  2  I  s  1  ,  N  L  I f! 

CALL  VDTMIT 

Da  4i  j=i .si ? 

WiJFl  (  J)=0 

IF  (J.CT.140)  (lHFl(J)s-l 

41  coot  inle 
CALL  VI0')!!T 

42  cjmt  to 
CALL  OPrMK 

TY  P  K  *  ,  '  ,J  A  S  S  '  ,  K,  'C  lMPLKTFD' 

200  O^TTMtiK 

car  a  sen 
c 

120  TYPE*.  ' 

TYPF*.  'PAI-IT  RKD?  ...  1  =  Y  FS  ,  0  =  ««0  * 

ACCEPT*.  IPPED 

TYPE*  ,  'PAINT  HI, .IK?  ...  lsytS.OeMT' 
acckp  r* ,  ipHi.iif. 

TYPE*.  '  P  A  I  "J  T  GREEN?  ...  la»KS,0  =  Mn' 

ACCEPT*.  lPfJPN 

r  Y  P  F  *  ,  'COLOR  :  M  AX  OH  C0«Ne.R=l  ,.wl»!  O'l  CORNfcjRsO' 
ACCEPT*,  1C0R, 

f* 

TYPE*.  '  JOPKTLC  (1.,  COLOR  TRIANGLE' 
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PI  9999  [PF.PET  =  1  ,  I P  A  S  5 

IFf  TPREO.KQ.  1)  THEN 
P4I*7  RED  STUFF 
CALL  vnSFT 
MCOLfl)  =  3 
NCOt.m  =  1 
CAUL  FILTER 
CALL  !>  4  7  C  m  D  (  H  P  0  S  ) 

CALL  D47POSf  HCFSL'D 
CALL  D47C*D( VPQR) 

CALL  r)A7PPS(  VQFSET) 
l»EF  =  1 
JpFF  =  1 
FJLOW  =0.0 
DO  50  I  =  1  ,  N I,  T  M 
CALL  VDIN JT 

FJLOw  =  FJLDW  ♦  (256. /445.) 

JLHv»  =  1  *■  FJLOW 

.HIGH  =  513  -  JLOW 
IFCI.GT.445)  ILOW  =  10000 
DO  51  .1  =  1,512 
IF(J.LT.JLOW)  GD  TO  52 
IF( J.GT. JHIGH)  GO  TO  52 
OEL I  =  I  -  TREF 
OELJ  =  J  -  JREF 

DIST  =  S0RT(DELI*DELI  +  DfcLJ*DELJ) 
1DI5T  =  oisr 
COLOR  =  IDIST/2 

IF(ICORN.EO.l)  COLOR  =  25b  -  IDIST/2 

IF(COLOR.LT.O)  COLOR  =  0 
IFCCOLOR.GT.255)  C0L0R=255 
IF(COLOR.LE. 127)  3UF1(J)  =  COLOR 

IFCCULOR.GT.t27)  BUFl(J)  =  COLOR  -  256 

GO  TO  51 

H;JT1(J)  =  0 
CONTINUE 
CALL  VIDOUT 
CONTINUE 
CALL  OPC^K 
END  I  s’ 

IFdPBLUE.FQ.n  THEN 
PAINT  BLUE  STUFF 
CALL  VIOSFT 
N  C  0  L  (  1  )  =  3 
N  C  0  L  (  2  )  =  3 
CALL  FILTER 
CALL  D47CNP(HP0S) 

call  d47»os(nofsed 

CALL  D47C’<D(  VPOS) 


■J  ft  V  T  H  A  £0 1 1  T  P  C  F.  K‘  «  0-0-00  14-2 


CALL  DA  7°  )S  (  VOF.SF  r) 

IPFK  s  t 

JpfF  s  s  1  2 
F  JI.DW  =  ).o 
DO  sf>  T  =  \  ,  '•!!,  U' 

C A L L  vr  (HT 

p  JLJW  =  fjLn*  ♦  (2SS./445.) 

JbO'<  =  1.  +  FOLD* 

JMir.H  =  5l3  -  JLO.*i 
I F  (  J  . GT . 445 )  JLPV  =  10000 

on  si  j  =  i,si; 

IFIJ.LT.1LOO  C;D  tj  b? 
rF(  J.GT..IHICJH)  GO  TJ  02 
OFLI  si-  IRFF 
DKLJ  s  J  -  JRFf 

DIST  s  SO«T(OELl*UKLI  +  OfcLJ*DRl,J) 
IDIGT  s  DIST 

color  =  idist/? 

Ir( ICORN.F  }. 1 )  COLOR  s  2bfe  -  IOIST/2 
IFCCOI.OR.LT.O)  COLORsO 
rF(C0L0R.GT.25S)  CObOks255 
tFCCOLOR.LR.  1  27)  H!IF1  ( J  )  =COLOK 
t  F  C  COLOR  .  GT .  I  27  )  ttfJH  (  J)  sJOLOP  -  25b 
•in  to  si 

O'lFiCJ)  s  0 

CJ*»TT  MUR 
CALL  VIDO'.IT 
CfVI  I  I  >1 U  “ 

CALL  OFCHK 
F  'J  DIF 


IF( IPGRN.RO. 1)  T  H  F \ 

PATMT  GR5FN  STUFF 

CALL  VTOSFT 
NC)L(l)  =  4 
MC0f.(2)  =  2 
CALL  FTLTFP 
CALL  D47CMD(HPOS) 

CALL  047POS ( noFSK T ) 

CALI,  047C  «D(  VP0S1 
CALL  D47POSC VLFSET) 
f  RFF  s  <14  5 
JPFF  r  2bs 

f.ilow  =  o.o 

0)  70  I  =  1  ,  N I ,  T  f  j 
CAIiL  VriMIT 

F.ILOW  s  Fjl.nw  ♦  (256. /445.) 
JLO*  s  l.  ♦  FvlLCM 
JRIGH  =  510  -  JLOv 
I F ( I  ,  G  T  .  445)  = 


1  0  0  o  0 
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0 )  71  J  *  1  ,  512 
I  PC  J.LT.  JLH’O  G  )  TO  72 
IF(J.GT.J>BIGH)  'J7  TO  72 
DELI  *  I  -  TRF.F 
DEL  J  =  I  -  JRFF 

0 1  ST  s  SORTf  DFLI*I)ELI  ♦  Dt.LJ*DELJ) 

1 01  ST  =  OT  ST 
COLOR  =  IDIST/2 

IFCICORN.EO.l )  COLOR  s  256  -  IDIST/2 
IF(COLOR.LT.O)  COLOR  s  0 
TFCC0L0R.GT.255)  COLORs25b 
IFCCOLOR.LT.  127)  OiJFl(J)  =  COLOR 
IFCC0L0R.GT.127)  B'JflCJ)  *  COLOR  -  256 
GOTO  71 
BJFl(j)  =  n 
CONTINUE 
CALL  VIDOUT 
CONTINUE 
CALL  OPCHK 
ENUTF 

TfPE*,  'PASS', I REPET, 'COMPLETED' 

CONTINUE 
GOTO  500 

TTPE*,  'iNtTLIZE  COLORS  NED  TR AL*0  ,  CDLORsJ 
ACCEPT*,  NCOL(l) 

TYPE*,  'ENTER  COLOR:  NEUsO,  RE0  =  1  ,  GREEi\l  =  2 
ACCEPT*,  N  C  0  L  (  2  ) 

type*,  'enter  MAX, MIN  COLOR  LIMITS' 

ACCEPT*,  I M X  ,  I M* 

TTPF*, 'EMTEP  VARIATION  AXIS:  OrX,lsY' 
ACCEPT*, IAV 

TTPe*, 'WORKING  ON  COLOR  GRADIENT' 

00  8888  Kal,IPASS 
CALL  VIOSET 


CALL  FILTER 
CALL  047CmD(HP0S) 

CALL  D47P^S(HriFSET) 

CALL  l)47C‘’D(VP0S) 

CALL  047P0SC VOFSET) 

DO  7775  Isl  , NI.IN 
CALL  V D I N I T 
DO  7777  Jal.NELF 
I VATST*J 

IF( IAV.EO.O)  IVATSTsI 
IRs(flMN-IMX)/511.)*(IVATST-lJ  T  I«X 


,  BLUE=3 
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3 


f"JFl  (J)=lR-?Sh* (18/128) 

777  7  CJNTI  vlt'E 

CALL  V  I  0  Lit 
7775  CONTINUE 

TYPE*, 'oAs5',K,  'COMPLETED' 

CALL  TPC-lK 
8888  CONTINUE 

GOTO  5P0 

r* 

500  IF  (IM07.RO. 1)  THEN 

ryPR*.  '00  YJU  N EtD  A  FILM  ADVANCE?  YtSsl  ' 
accept*,  iAnv 

IF  (IAOV.RO. 1)  CALL  PILAU  V 

ENDIF 

iF(iSfjP.S).i)  thru 

type*, 'input  oata  fop  color  rars  follows:' 

TYPE*, 'NUMBER  OF  MASSES  COMPLETED  IS'.IPASS 

T YPE* ,  'NLlNs',NLIN 

TYPE*,  'NE|,Es',MrlE 

TYPE*, 'FILM  TYPE  (  IMOV  )  s'  ,  Ti*OV 

TYPE*, 'RESOLUTION  (  MOPE  )  s  '  ,  M()  JE 

TYPE*, 'MURZ  OFFSETS', MOFSET 

TYPR*,'VE»T  OFFSETS', VOFSRT 

WRTTF(15,*)  'INPUT  OATA  F  JR  CJLJR  BARS  FOLLOWS ! ' 

WRITE(15,*)  '“UMBER  OF  PASSES  C J^PLETED  IS'.IPASS 

WRITE  (15#*)  'f,LI Ns '  ,  ULI  N 

WRITE (15,*)  '  E  L  K  = ' , N FLR 

WRITE (15,*)  'FILM  TYPE  ( I *0V ) =' , I^OV 

WRITE (IS,*)  ' p  ESOLU  T I  ON  ( * JOE ) s ' , MOOR 

WRITE  (IS,*)  '  H  OR  z  OFFSETS',  ROFSr.T 

WRITE (15,*)  'VERT  OFFSE Ts ' , VOFSET 

F.  ^DIF 

IFCISOR.EI.2)  THEM 

TYPE*, 'INPUT  OATA  FOR  COLOR  TRIANGLE  FOLLOWS j ' 
TYPE*,'N  J-1WKR  OF  PASSES  COMPLETED  IS',IPASS 
TYPE*,  '.JLl^s',MLI« 

TYPE* , ' JELFs' , NELK 
TYPE*, 'FILM  TYPE  (1 MOV ) s' , I  MO V 
TYPE*, 'RESOLUTION  (MODE) s', MODE 
TYPE*, ' U)RZ  OFFSETS', HQFstT 
type* , ' vert  offsets' ,vofs*-t 

TYPE*, 'red  OUTPUT  (IPRED)s',IPPRD 

TYPE*  ,  'HLuf:  OUTPUT  (  IpmLIJE.)s',TPRlUE 

TYPE*,'GREEM  OUTPUT  (IPGR<W)  =  ',IPGRN 

TYPE*, 'M Ax  or  MIN  on  CORNtR  (ICJRN)s' , ICORN 

WRITE ( 15 , * )  'INPUT  DATA  FJR  CJLJR  BARS  FOLLOWS  J ' 

W R I TE (15,*)  'NUMBER  of  PASSES  CJMPLETED  IS',IPASS 
WRITE  (15,*)  ' N  LI  Ns ' , N  L I N 

WRITE(15,*)  'NELEs'.NELE 
WRITE (15,*)  'FILM  TYPE  ( I  10V )  =  ' , I  40V 
WRITF(15,*)  'RESOLUTION  ( ''-OOF ) s ',  MODE 
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WRITEOS,*)  '  H  0  R  Z  OFFSETS' ,rtOFSei 

WRITEOS,*)  'VERT  OFFSETs'  ,  VOFSET 

WRITF(15.*)  'RED  OUTPUT  C  1 PRED  )  s  '  ,  I  PkED 

WRITE!  (15#*)  'BLUE  OUTPUT  (  IPBLUE)  s'  ,  IPBLUE 

WRITE( 1 5 , * )  'GREEN  OUTPUT  ( IPGR N ) s ' , JpGRN 

WRITE (15#*)  'MAX  OR  MIN  ON  CORNER  (iCORN)s' , ICORN 

ENDIF 

IFdSOR.EQ.  3)  THEN 

TYPE*, 'INPUT  DATA  FOR  COLOR  GRADIENT  FOLLOWS*' 
TYPE*, 'NUMBER  OF  PASSES  COMPLETED  IS'#IPASS 
TYPE*,'NLINs',NLIN 
TYPE*, ' *ElEs',NFLE 

TYPE*, 'FILM  TYPE'  (  IMOV)s',IMOV 

TYPE*, 'RESOLUTION  ( MOPE ) s ', MODE 
TYPE*  # '  HORZ  OFFSETS', HOFSET 
TYPE*  # ' VERT  OFFSETS', VOFSET 

TYPE*, 'COLOR  FOR  GRADIENT  (NCOL(l) #NC0L(2))=', 

*  NCOL(l),NCOL(2) 

TYPE*, 'MAX, MlN  COLOR  LIMITS  =',IMX,IMN 

WRIT F. (15,*)  'INPUT  DATA  FOR  COLOR  GRADIENT  FOLLOWS* 

WRITE (15,*)  'NUMBER  OF  PASSES  COMPLETED  IS',IPASS 

WRITF(15,*)  'NLIMs',NLIN 

WRITE(15,*)  'NELEs',NEL- 

WRITE (15,*)  'FILM  TYPE  ( IMQV )  =  ' , I  MOV 

WRITEOS, *)  'RESOLUTION  (MODE)s' ,  MODE 

WRITE (15,*)  'HORZ  OFFSETs' , HOFSET 

WRITF(15,*)  'VERT  OFFSETs' , VOFSET 

WRITF05,*)  'COLOR  FOR  GRADIENT  (  NCDL  (  1  )  ,  NCOL  (  2)  )  s' 

*  NCOL(l),NCOL(2) 

WRITE(15,*)  'MAX, MIN  COLOR  LIMITS  s',IMX,IMN 
ENOIF 

TYPE*,  '  ' 

TYPE*,  ' 

TYPE*,  '  ' 

WRITEOS,*)  ' 

WRITE (15,*)  ' 

WRITEOS,*)  '  ' 

GOTO  100 
40  STOP 

END 

TO  Use  SRCAMSA.FORJ 

1)  COTiDlle  SRCAMSA.FOR* 

S  FOR  SRCAVSA 

2)  Link  SRCAMSA  to  toe  Dicotied  routines* 

$  95RCAMSA 

The  fi  executes  e  vax  command  file  entitled  SRCAMSA.COM* 


MAVTkAKJlJ  I  PCK»!  A0-n»001  4-2 


SL,lNK/FXI£=tPt>7  <4J  SWCA^SA  - 
nir:Hr,Ki.)Ar,  [P«734)  SRCA'fSA,  - 
niCsPin  -i  f  n  /  l  t  ij 

3)  Run  SRCA'Sn: 

$RUN  SRCV'S* 


179/1110 


•J  A  VTH  AK'rl  ff-'CKfJ  PO-n-Oul  4-? 


Appendices 
eration  routines 


APPPMDIJf  C  A 

ApORNDIX  C*  DKSCRI  PH 3N 


*  tnrougo  CF  contain  tne  four  picture  gen 
described  In  section  VI  of  tne  main  report 


383/384 


i  A  V  T  «  A  F. :  I  ■  i  1 H  7  K 11  >»  0  -  n  -  0  0  1  4  -  2 


APPF'oi  x  r« 


't  I  C'i^s  A  .  Flip 


o  i  c  sa  .  =■  ip 

l)  I C  o  'n  n  fi  imck  -j  n  1  «.■  ^  1 1  f»  siani  time 


p-n-jp.V”  •a y 
p  n-j^i 
iutf.  : 


r,.  A=:fKtP 
*>77-7f  2t 

s  a  h;  ii  M 


C  THIS  IS  A  O'tF'Uli  Of. AC*  A'Hi  .HJ  tK  S 1 A '■  f-  Al.MNK  DlCjMfcO  WSUtImE 
C  FOU  "SF  1',  p  oll.AP'.Ui)  IP  IS*-"  F'uAC*  A  in  WHITE  FIL-l. 

c 

C  r  iF  PFCHtHF/iK  i  TS  OF  I  MF  PPOGPA"  AkFI 

C  n  7HK  l>A  FA  HAS  HERm  hX  l  F  PU  Afif.Y  CHEATED  AuD  WTl.L 

C  SK  hfad  r-jTii  rnjs  ppo^'am, 

C  2  )  T  M  F  F  Hi  *A  IS  S  /  *  . 

r» 

V. 

I  <(71,0  OF  '  i’P  a  0  :  (  !l  PI  LX  TV  .  I  CO^KO]  w‘0  "  .'«  'JN  .  F  "l  9  * 

I  JCfjl'nP.  *  TO  AO  J  to  riL  C  Ty  .  JTC'V'EO)  JFF,  fop  ' 

I  JCU'DF  #nHA''-J  r  l : T I  L T T V  .  f' I C. I K  J )  J  0  .  F' ~ K  r 
T  X  T  F  C  F  H  *  \  S  Y  S  $  A  S  S  I  S  m 

I  UKGFP*2  I  TFV  HiFfSI  2,  SI  7  )  ,  1  ,’4 1  21  51  7 , 2SS  ) 

*YTF  XC  .  r(Sj  7,si2) 

F  AU  T  V  A  !.«  “I  OF,  (V<T7,1CJTI 

£*******I"TTI  AI  I7.ATJO  i  OF  V  A  H  1  A*l.,  r.S******************* 

M  5FSF  r=l 
V  )F,SF  T=  1 
'MIZsO 

NC)»j(t)=>  'HOCCK  A  *1  HITE  F  A  K  T  1 

^COIj  (  7  )  »•>  !  fj  A  o  <  A-'i.t  ^i.Tt  PAkT  2 

•!M  4  =  sl  7 
NFLF=S 1 7 

M.JFPFFs'  /7*>77'i) 

'IJFPF  jsm 

C  A  S  S  I  0  |  TO  .\  CH  A  ■  f  cl. 

T  ?TATsSrSsA.SSr5‘i  C  '"•/.AP:  -  ,  XCriA  -  ,  ,  ) 

c  if  f) p 1 1  »  is  jf.T  assioafo  .« f.  rAM'or  ro‘irt>uK 

if  c , mot.  t stat)  r m f: r-i 

PHOT  10 


MAVTRAEQJIPCEN  RO-O-O014-2 


10  n«'<nr  (*OD  R  1  t  il  CANNOT  HE  ASSIGNED 

-  TO  A  C  H  A  M  M  F.  L***') 

GO  TO  40 

RJf)  I F 

******* FM0  INI  Tl  ALIZATION**************************** 

TYPE*  ,  ' 

TYPE*,  'GENERAL  STAND  ALONE  BLACK  AMD  *HITF  DlCOMED  ROl'TlvE' 
TYPE*,  ' 

*******  X  MPUT  FROM  TERMINAL*************************** 

type*,  'The  PICTURE  DIMENSIONS  ARE  SET  AT  512,512' 

TYPE*,  'Enter  type  OF  FILM:  PDLAROIDsD;  35^41  =  1.' 

ACCEPT*,  I  MOV 

TYPE*,  '00  YOU  WISH  TO  FILTER  THE  DATA?  (YES=1)' 

ACCEPT*,  IFLT 
IF  (IMOV.EO.l)  THEN 

TYPE*,  'THE  HORIZONTAL  OFFSET  IS  140  OCIAL.' 
H0FSET=Q6  1140  OCTAL 

TYPE*,  'THE  VERTICAL  OFFSET  IS  145  OCTAL.' 
VOFSET*  1 0 1  i  1  45  OCTAL 

TYPE*,  'THE  RESOLUTION  IS  SET  AT  1.' 

M00F=1 

ELSE 

TYPE*,  'THE  RESOLUTION  IS  SET  AT  3.' 

MODE* 3 

ENOIF 

20  TYPE*,'  IS  A  READ  REQU I RED? ( YES= 1 ) ' 

ACCEPT*,  I R  D 
IE  (IRn.EO.1)  then 

TYPE*,  '  ENTER  THE  FILE  YOU  WANT  READ  ITEMRUF  ' 
ACCEPT*,  IFTLE 

TYPE*,  '  READING  ITEMdUF  FROM  FILE  IFILE 

READ  (IFILE,  1000)  (  (  I  TEMR'JF  (  I  ,  J  )  ,  1*1 ,  NEbE)  ,  J  =  1  ,  NLjN  ) 

IE  (IFLT.FO.l)  THEN 

TYPE*,  '  READING  INT2  FROM  FILE  IFILE 

READ  (IFILF, 1000)  ( (INT2 ( I , J) ,1=1 ,NELE) , J=1 ,NLIN2) 

ENDIF 

1000  FORMAT  ( 65  A?  ) 

EM  0 1  F 

*******£^0  j  kjpij  r  FROM  TEWMINA  I,  *********************** 

IF  (IFlr.EO.l)  THEN 

SCENE  IS  FILTERED  TO  FILL  ANY  MISSED  PIXELS 
TYPE* ,  'FIT, LING  ANY  MISSED  PIXELS' 

DO  111  I YDSsNLTN, 1 , -1 

DO  77?  IXBSsNELE, 1 ,-l 

IF(  TCt’T(  IXBS,  IYBS)  .HS.O)  GOTO  220 

JC0"MT=O 

JSUM=0 

Do  3 on  k  =  iy«s-j  ,  nas  +  i 

IF( (K.LT. 1) .OR. (K.GT.NLIN) )  GOTO  300 
DO  440  L=tXBS-l ,IXBS*1 

IF(CL.LT.l).nR.CL.GT.NELE))  GOTO  440 


o  o  n  rj  rj  rj  n  n  n 


J  A  V  T  R  A  F '  i  1 1 1  ->  C  E  *  <j0-ji-0  014-2 


i F f  [rvrc[.,K  ) .  ta.»n  so  to  no 

JCIU'IIsJCT.i^T+l 
J  jiJi-  sJS  JM  ♦  I  T F  'i rt ! I F  ( I , ,  K  ) 

4  40  "  n  r  L ; , -J F 

3  O'1  Ct'tI*'!!1: 

r f f jr^ijNT.Ki. oi  tmk-i 

TYPE*  ,  '  ^  1  S  S  F  *:>  PTXcl,  A  1  1XHS, I) HS=# , 1XCS  ,1YRS 
K  L  S  E 

l  r  F  M  -5  •  •  F  c  r  <BS,  I  YHSJsJSJv./ JOOu'iT 
r'l  o  I  tr 

I r  r 1 T ( T  X  M  S  , [YrtSls-1 
22  0  Cj;'iTl  i.jfc! 

22?  CONTINUE 

111  C  T'i  T  I ! ;  0  p 

F  j  n  [  F 

************** oat a  is  s*-  ' r  ro  Tie: 

type*  ,  *  sending  f> a  r a  n  me.  oiccnEo' 
viosft  c Af,L  n 4 7 c M  )  Tfi: 

1)  CLEAR  THE  ro  VI  VI A -.JO  SUFFER, 

2)  SET  TME  HATA  SIZE  10  8  HITS, 
i)  SFT  THE  RFStU,!)  1IJN, 

4)  SET  THE  POLARITY  TO  NORMAL,  ani) 

5)  SET  I  t'lFAP  STEPS  I  J  DENSITY. 

CALL  VinSET 

FILTER  SELECTS  THE  FILTER  TJ  OF  USED  V  I A  FlLSFL 
CALI,  FILTER 

THE  HORIZONTAL,  a \ n  VERTICAL  OFE.SETS  ARE  GIVEN  TiJ  r He 
QIC )HED, 

CALL  04 ;C  U(HP0S1 
CALI,  D47POSC  HnFSEn 
CALL  1)4  7  C‘-D  (  V  P  JS  ) 

CALL  04 IPnS(VnFsET) 

DO  44  4  TXASsNI  IN,  1  ,-l 

VOt'iir  CHECKS  THE  STATUS  OF  TrtE  01.  COvEO  bijFFeiRS. 

CALL  VOMIT 

00  SSS  I /HSsHELE , 1 , - 1 

IShifTs25i>*(  I  re;  *a;JFf  I  <BS,  lYrtS)  /l  ?R) 

BHF1  (  T  YHS)  =  lTE**rtUF(  TXBS,  IYBS)-ISH  [FT 

bbS  CONflNUe 


CALI,  VIV1UT 
444  CON TT ONE 

IF  (  1  orw.FU.  1  )  THEN 
Call  ru  aov 

E  V  D  I  F 

TYPE*,  'THE  e:f,n' 

CALL  OPClK 

TYPE*, '0  1  YOU  NAN  I  TO  00  A  N .  J  r  H  e:  H  PICTURE?!  Yr:Ssl )  ' 
ACCFpr*,  TAM 
IF  (TAN.Eo.U  or:  ro  ?o 
40  STOP 

E  JO 


3P7/JRS 


n  ci  n  n  n  o  o  n  n  o  a  noon 
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APPENDIX  CC 
DICCOLS A . FOR 


DICCOLSA.FOR 

DTCo^ed  CnLor  StanH  Alone 

PROGRA*  IlY :  G.  BECKER 

phonf::  nil-lb?.) 

nATE:  b  AUG  l PR  1 

THIS  IS  a  GENERAL  DICOHFD  COLOR  STAND  ALOOF  ROUTINE  F3R 
1JSF.  WIH  pOI,  ARC)  I  •)  OR  35**  Fit,'!. 

THE  RE'JIlPEMEfTS  OF  THE  PROGRAM  ARE: 

1)  T  H r  DATA  HAS  B  e,  E  H  EXTERNALLY  CREATED  AmD  WyLf 
BE  READ  T  M  T  0  THIS  PROGRAM  AS  G  R  E  E  'j  ,  R  E  D ,  BLUE,  IC^TC  )  • 

21  the  FILM  is  ASSUMED  TO  BE  COLOR, 

HCLUOE  'ORAOJ  [UTILITY. DlCn^KD]  COM  MOM. FOR' 

IMCLUDE  'hRAOj I  UTILITY. oi CO- EO] Ut F.^OR' 

TmCLUDF.  'or  ad  :  [UTILITY. OlCrUFD)  10. FOR' 

IUTEGER  +  2  lrF"’BUF(512,S12,3)#lNr2(51?,2SB) 

BYTE  MFOITRL (->12,S1?)  ,  ICO1  T(512,51?) 

ElUIVALE^CE  (ICNT.IUT2) 

DIMENSION  JSUMO) 

INTEGER*'*  SYSSASSIGU 
C*******IHITTA(I2ATI'0».  OF  VARIAsLe-S******************* 

H  IF  SFT=  ) 

V  1FSFT=  1 
M  A  G  2  =  0 

NC0b(l)=D  1  R  L  A  CK  AfJD  JihiTt  PART  1 

UCDfj(2)=0  ! Mj  A  C  K  AMD  * H 1  IV  PART  2 

W  L I U  =  5 1  7 
UELE  =  M  2 
NLT\2s2S*) 

B  JF  W  FF’s  '  7  7  S 7  7 ' 0 
H.jFREOsO 

C  ASSIGJ  oRjlH  TO  A  C  H  A  f.  M  E  L 

I  STATsSYSS  ASST  GM  'U2A0:  '  ,  l  CM  A  * ,  ,  ) 

C  TE  DRJ1H  IS  U.or  ASSIGNED  *E  CANnOT  COnTI'IoE 

IF  C.MOr.ISTAT)  rnh4 


O  O  r>  O  O  O 


N  A  V  r  R  A  KO  )  1  P  C  K  f  BO- ''>-0014-2 


P=>]JT  n 

10  n»‘-ur  ('on  n  1  H  CANNOT  Be  ASSIGNED 

-  T  0  A  C  H  A  N  N  H  L  *  *  *  '  ) 

JO  TO  40 

END  IF 

C*******END  T-JlTlALIZArTON**************************** 

TYPE*  ,  ' 

TYPE*,  'GENERAL  STAND  A  L  0  w E  COLOR  DI COM£D  ROUTINE' 
TYPE*,  ' 

C*******INPUT  FR'M  TERMINAL*************************** 

TYPE*,  'THE  PICTURE  DIMENSIONS  ARE  SET  AT  512,512' 

type*,  'Enter  type  of  film:  polapdidso ;  35™=!.' 

ACCEPT*,  TMOV 

TYPE*,  'OH  YOU  WISH  TO  FILTER  THE  DATA?  (YES*1)' 
ACCEPT*,  TFL.T 
IF  (TMnV.KU.l)  then 

TYPE*,  'THE  HORIZONTAL  OFFSET  IS  140  OCTAL.' 
H0FSETSP6  ! 1 40  OCTAL 

TYPE*,  'THE  VERTICAL  OFFSET  IS  145  OCTAL.' 
VOFSElslOl  M  45  OCTAL 

TYPE*,  'THE  RESOLUTION  IS  SET  AT  1.' 

4  0  0  E  =  1 

else 

TYPE*,  'THE  RESOLUTION  IS  SET  AT  3.' 

MnDE»3 

E  TDIE 

TYPE*,  'ENTER  THE  NUMBER  UE  DICOMED  PASSES' 

ACCEPT  *,  IPASS 

20  TYPE*,'  IS  A  READ  REQUIRED ?(YES=1 )' 

ACCEPT*,  I«P 
if  ciRD.en.i)  then 

TYPE*,  '  ENTER  THE  FILE  YOU  WANT  READ  IlEMBuF  ' 
ACCFPT*,  IFILF 

TYPE*,  '  READING  CTEMBUF  FROM  FILE  ',  IFlLg 
READ  (IFILE.IOOO)  f ((ITEMrtUFCI,J,K),Isl,NELE),J=l, 

-  NLIN) ,Ksl ,3) 

IF  (IFLT.EO.l)  THEN 

TYPE*,  '  HEADING  1NT2  FROM  FILE  ',  IFILE 
READ  (IFILE, 1000)  (UNT2(I,J),I  =  1,NELE), 

*  Jsl , N I ,  I N  2 ) 

E  JDJF 

1000  FORMAT  C65A2) 

EJOIF 

C*******END  T  NPU  r  FROM  terminal*********************** 

IF(IFLT.Eo.l)  then 

SCE'iE  IS  FTLTERFD  TO  FILL  ANY  MISSED  PIXELS 
NOTE:  THIS  DATA  was  filtered  just  BEFORE  BEING  WRITTEN  to 

file 

BY  THE  PICTURE  CREATE  ROUTINE.  HENCE  ICNTC)  STILL  CONIAlNg 
THE  PIXEL'S  SIM  BUT  ITEMBUF  HAS  A  SCALED  VALUE  READY  FOR 
DISPLAY. 


I \\JTh  AK3II  [PCP"N  S0-D-0U14-2 


T  /  P  E  *  ,  'FILLING  AMY  HISSED  PIXELS' 

0)  in  nrHSsi  r  »M.r  <1 

DO  222  l<(*Ssl , -MKLE 
JCOUM  =  0 

DO  6  326  KvSzt.J 
JSM'i  (KV  >)=0 
6325  CONTINUE 

o  )  300  K  =  ry^.s-t ,  rvHS+i 

lEC  (K.LT.t)  .OR.  (K.~r.^!JlN)  )  d  HT  .3  3  U  <) 
f))  440  L=TX0S-t  ,  T.XHSO 

IFC  (L.  LT,  n  .UP.  ( r,.ru.  MELE  ))  HTJ  44u 
rE(  iCNTf  L,K)  .E  ).0J  GO  TO  440 
J  C  -3  n  i\l  T  s  J  c  U  ij  \i  T  ♦  1 
on  64  7  1  K  VS=1  ,  3 

J  SiJ  VI  (  K  V  5  )  =JS'>M  (  K  V  S  )  ♦  I TR4B0F  C  L  ,  K  ,  K  VS  ) 

547  1  CONTINUE 

TrnClT(L,K).I,T.*n  IFG=1 
C 

C  TEST  ICIJT.LT. -1  SINCE  THE  ^ISSED  PIXEL  TAG  IS  -1 
C  JlJSr  ABOVE  S T A T E M E fJ T  220. 

f* 

N. 

4  40  continue 

300  CONTINUE 

l  E  C  .IC.ll'  -ir.Ej.O)  TME'J 

TYPE*,  '-MSSF0  PJXEL  AT  I  X»5  ,  I  YHSs  '  ,  I  X  KS  ,  I  f  rtS 
ELSE 

01  47n2  K VS=1 , 3 

J  fEMP.!E(  IXwS,TYRS,KVS)s.IS'JM(kYS)  /  JCDU'IT 
47  62  CONTINUE 

f  r<  i)  T  E 

icn  r(  jx  .is,  j  y o s )  =  - 1 
220  continue 

I  PsH 

IF(  TTPfM’JFf  TXLS,  1  Y*S,  3)  .ST.O)  T 6 E'J 

IF(  T  TELP  JE(  IX»S,  I  Vrt.T,  3)  ,GE.  3*lTEM6flEC  IX6S,  I  YBS,  1  )  1  THpN 
I  P  =  I  T  f  M  0 1 1 P  (  T  X  S  ,  J  Y  h  S  ,  3  )  1  5<Y 

ELSE  IF  (  ITEm^,IE(  1  XHS,  J  Y  AS,2)  .  bf.  T  TE<HJE(  tXR'j,  lYpS,  1  )/2) 
*  T  •  1 F  •  i 

I»=1  2A-(  ITK'  5  lEC  TXH5,  I  Y;V3, 33/4)  !  L  A*E 

h  '!  0  r  E 
E  j  n  i  e 

TSHfET=25f>*ftP/l2P) 

U  CilTPLf  I  <MS,  IV^JsFx-IS-Hi-  r 
222  r  v;t]  vDK 

111  C  )  ►•■  T  T  f  i  ■ 

E  i  o  I E 

*#*♦♦****♦* o a  r  a  is  s e "  r  r  j  rui  oico  ^Ej********************** 

r>i  )H  KKT  =  l,TPA5s 

TYPE*,'  SElOTvr:  IKIIIPAL  '  >  A  f  A  T .)  IMf  PTCD-IED' 

Z  v  [oset  call  o47rr-  >  r:>; 


U  U  U  tJ  t.1  C.J  t>  O 


1AVTRAE00IPCEN  80-0-0014-2 


11  CLEAR  THE  COMMAND  BUFFER, 

21  SET  THE  TATA  SIZE  TO  8  BITS, 

3)  SET  THE  RESOLUTION, 

4)  SET  THE  POLAR  ITT  TO  NORMAL,  AN  0 

5)  SET  LINEAR  STEPS  IN  DENSITY. 

CALL  VIOSFT 

FILTER  SELECTS  THE  FILTER  TO  BE  USED  VIA  FILSEL 
CALL  FILTER 

THE  HORIZONTAL  A N o  VERTICAL  OFFSETS  ARE  GIVEN  TO  THE 
DICOMEO. 

CALL  U47CM0(HP0S) 

CALL  04 7POS ( HoFSET ) 

CALL  047CmD( VPOS) 

CALL  047P0SC VOFSFT) 

DO  1444  IXBSsMLIN, 1 ,-l 
CALL  V  0 1 N  T  T 

00  15S5  IVBSsNELE, 1 ,-l 
8IJF 1  ( lYHSlsMEUTRLCIXHS,  IYdS) 

1555  CONTINUE 

CALL  Vino. IT 

1444  CONTINUE 

CALL  OPCHK 
.  NC0L(1)s3 

00  666  K VS= 1 ,3 

TYPE*, 'SENDING  GREE 1(1) ,REDC2) ,BLUE(3)s' ,KVS 
CALL  VIDSET 

C  RED=  1 ;  GRRFNS?;  BLUE=3 
IF(KVS.FO.l)  THEN 
NC0L(2)s2 

ELSE 

NCOL(21s2*KVS-3 

FNDIF 

Call  filter 
CALL  D47CMD(HP0S) 

CALL  n47®OS(HOF5ET) 

CALL  P47CMn(VPOS) 

CALL  n47 PDS ( VOFSE t ) 

00  444  IXHSsNLIH, 1 ,-l 

C  VOT'JIT  CHECKS  THE  STATUS  OF  THE  DICOMED  BUFFERS. 

CALL  vniNIT 

00  5SS  TYBSsNELE, 1 ,-l 
IRsITFMBUF( IXBS, IY«S,K VS) 

IF(KVS.EQ.A)  THEN 

IF(TR.GT.4*ITFmhi)F(  IXHS,IYBS,  1)  )  IR  =  260-IR  +  lR/4 

IF(IR.GT.2S5)  IRs25S 

ENDIF 

C  THIS  M A K E S  THE  SKY  A  CONSTANT  BLUE,  BUT  WHITE  F AOES  . 

ISHIFTa25o*(IR/12B) 

BUF1 (TYBS)=IR-ISHIFT 

555  Continue 

CALI,  VJOOUT 


4  ft  V  T  ^  A  E  0  •  1 1  P  C  K  .4  *0-0-0014-2 


c  3'J  t  t  4  u*-: 

CALL  GPCHK 
C  l'J T T N •> £ 

T/PE*,  'oftss'  ,*  <i  ,  'C04PLF  r«-D' 

SET  THE  FIuTEW  HACK  TO  *'FJTKAlj. 

NCHLCDsO 

Ncno(2)s') 

C JNTTMlIF 

IF  (IMnv.FO.I)  TMFIVI 

Call  FlLAnv 

E  4  r>  I  F 

t  t  p  e  * ,  't^f  k f 1 1> * 

CALL  nPCHK 

TYPr*,'0)  Y'liJ  WAIT  Tf  •  D'J  AmOTHE*  PICTURE? (YESsJ ) 

ACCEPT*,  IAN1 

I •*'  (IAo.ej.ij  on  rn  ?o 

snp 

e  i  i 


3H3/39A 


o  o  n  f>  n  o  rj  n  n  orinn  r  j  n  c  j  n  o  n  n 
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APPENDIX  CO 
SUICRW. FOR 


soicp^.pop 

Subroutine  nlco'reH  «lack  and  ^hite 

PROGRAM  8Y :  G.  BECKER 

P-IONE:  6  7 7  -  7b? 1 

DATE:  7  AUG  1R81 

THIS  IS  A  GENERAL  BLACK  A-*D  RHUE  DJCOMED  SUBROUTINE 
E  DP  USE  MTH  PO(,AHOII)  OR  J5mm  BLACK  AMD  RHl  TE  FILM. 

THE  PARAMETERS  THAT  MUST  t>E  PASSED  FROM  THE  CALLING 
PDUTInE  Are • 

1)  IMOtfjsFILM  SELECTION  (  POuAROIOsO  ,  35*11=1  ) 

2 )  IFI.TjsFIM.  ANY  MISSED  PIXELS  (yES=l,VOsO) 

D)  I  A'; !  s ANOTHER  PICTURE  OF  THE  SAME  DATA  CYESrl) 

SITE:  THF.  DATA  MUST  BE  GENERATED  IN  THE  CALLING  ROUTINE  AnD 
PASSEu  7 1  A  ITF«RIJF,  TNT?,  ICNT 

SJRROUTINE  SUTCHWI I MOV ,  TFLT, I  AN ) 

INCLUDE  'l?P  AO:  [UTILITY. 01  COM  EDI  COMMON.  FOP' 

INCLUDE  'DP  A'):  [UTILITY  .0  ICO -ED  J  DBF.  FOR' 

INCLUDE’  'nPAO:  [UTILITY. OTCOmEO)  ID. FOR' 

INTEGER*'!  SYSSASSIGN 

T  T E m p U F , In T?,TCNT  MUST  HE  DIMENSIONED  AND  PASSED  TO  TulS 
SUBROUTINE. 

INTEGER*?  ITEvBl)F(S12,51?)  ,  l  M  T?  1 5 1  2 , 256  ) 

BYTE  TCNTfSj 2,5177 

equivalence  (tcnt,int2) 
common  i tevmuf, ic.mt 

C*******INTriAt TZATTOM  OF  VARIABLES******************* 

H  DFSFT  =  0 
V  )FSETs.) 

M  A  G  Z  = ') 

N  C  0  L ( 1 ) *  D  ! P  LACK  AND  *  H  I  TE  PART  1 

NCnL(2)  =  N  l b L A C K  A"D  RHITE  PART  2 

NoInsSI 2 
NELEsSl? 

Nbl N?=?SO 


MAVTHAF-OUIPCK*:  bo-d-ooi  <*•? 


BiJFREEs'77577'  j 
B  JFREQsO 

C  ASSIGN'  DRllP.  TO  A  CHANNEL 

1ST ATsSYSs ASSIGN ( 'UZ AO J  ', I CHAM,  *  ) 

C  IF  DRUB  (S  NOT  ASSIGNED  *»E  CANNOT  CONTINUE 

IF  C.NOT.TSTAT)  then 
PRINT  JO 

10  FORMAT  ('Oil  R11B  CANNOT  BE  ASSIGNED 

-  TO  A  CHAINS  L***') 

GO  TO  40 

E  IDIF 

C4**4*»*E4D  INITIALIZATION**************************** 

TYPE* ,  '  ' 

type*,  'General  black  and  white  dicomed  subroutine' 

TYPE*,  '  ' 

C**»****I\JPUT  FROM  TERMINAL*************************** 

TYPE*,  'THE  PICTURE  DIMENSIONS  ARE  SET  AT  512,512' 
TYPE*,  'Type  of  FILM!  POLAROIDsO?  35m*sl?',lN0V 
TYPE*,  'FILTEP  THE  DATA?  ( YESS1 )  »  '  , IFLT 
IF  (IMOV.EQ.l)  THEN 

TYPE*,  'THE  HORIZONTAL  OFFSET  IS  140  OCTAL.' 
HOFSETsQb  ! 140  OCTAL 

TYPE*,  'THE  VERTICAL  OFFSET  IS  145  OCTAL.' 
VoFSETslOl  1145  OCTAL 

type*,  'the  resolution  is  set  at  i.' 

MODES  1 

ELSE 

Type*,  'THE  RESOLUTION  IS  SET  AT  3.' 

M0DES3 

EUDIF 

C**#****E jo  input  from  terminal*********************** 

20  IF  UFLT.EO.l)  THEN 

C  SCENE  IS  FII.TKRKD  T)  FILL  ANY  MISSED  PIXELS 

TYPE*, 'FILLING  ANY  MISSED  PIXELS' 

DO  1.11  I Y B S s  1  ,  M L I N 
DO  ?2?  IXHSsl,NELt 

IF(  TC  T(  IXBS,  IYBSJ  ,'.E.O)  GOTO  220 
ICOlfiTsO 

J  s  u  *  -  o 

On  inn  KrIYBS-1 , TYBS+1 

T  F ( ( K . L  T . i) .OK, CK.GT.NL IN) )  GOTO  300 
O')  140  L=TXHS-1  ,  TXBStl 

I E ( (O.LT.l ).0H, (L.GT.NELE) )  GOTO  440 
IE( l C  N  T (  J  i  , K ) ■  E  D  .  0  )  GO  TO  4  4  0 
JCO’JN  r  =  JCOUNTt  1 
7SIJ  -’  =  .)SU«+  I  TEMiiiiEC  L  ,  K  ) 

Cn-"T  I  M l S* 

C  r*  '■■■>  T  J  i-  J  v 

(Kf.irr  njvf.K  1,0)  TMEi. 

TYPE*,  '  '•  TSSEC  PIXEL  AT  I  X  BS  ,  I  Y  ESs  '  ,  I  XhS  ,  I  YBs 

H.GK 


4  4  7 

no 


U  O  U  U  O  O  U  U  u 


J  A  V  rRAEOl' TPCFN  RO-D-0014-2 


t  rL  IX«S,  !YHS)=JSiJM/JCnUNT 

w  nlK 


220 

lCf T(IXHS, IYBSJs-l 
CONTI  M|F 

22? 

Continue 

Ill 

Continue 

E  JDI  F 

**************  [',AT^  IS  SKmIT  rn  THF  dicomed********** 
type*,'  SENDING  DATA  TO  i H E  DICOMED' 

VIUSFT  CALL  D 4 7 C '•  o  ro: 

11  CLEAR  the  COMMAND  BUFFER , 

2)  SET  THE  DATA  SIZE  TO  8  BTTS, 

1)  SET  THE  REsniiUlION, 

4)  SET  THE  POLARITY  TG  NORMAL,  AMD 

5)  SET  MMEAM  STEPS  I N  DENSITY. 

CALL  VIOSET 

flf.TER  SELECTS  THE  FILTER  TO  BF.  USED  VIA  FlLSEL 
CALL  Flf.TER 

THE  HORIZONTAL  ANn  VERTICAL.  OFFSETS  ARE  GIVEN  TO  THE 
□ICU^ED. 

CALL  U47C*D( HPOS) 

CALL  1)4  7  POS (  HOFSET) 

CALL  D47CmO( VPOS) 

CALL  D47POS(VOFSED 
DO  44  4  TXBSsNLlTJ,  1  ,-1 
C  VOIHTT  CHECKS  THE  STATUS  OF  THE  DICOMED  BUFFERS. 

CALL  VI)  I V IT 

On  555  IYBSsNFLE, 1 ,-t 

ISHlFTs256* (I IEHBUFIIXBS, IYBS)/1?R) 
BHFl(lY35)=ITEWBUF(IXHS#IYBS)-ISHTFr 

555  CONTIMIJK 

CALL  VJD1UT 
444  CDNTINUE 

IF  (  JvifIV.  EO.  t  )  THEN 
Cali,  ptladv 

e  on  if 

TYPE*,  'The  E.iO' 

CALL  OPCHK 

TYPE*,  'A  MOTHER  f’ICr.J«K?(  YES=1  ) ' , I  AN 
IE  (IAN.E'.I )  Go  TO  20 
40  return 

E  ID 


i  '»  7  /  4 'm 


U  OOUU(JlJ(JUU(HJ  U  CJ  C J  IJ  tJ  cj  u  u 
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APPENDIX  CE 
SD1CCOI..FOR 


soiccol.fop 

Subroutine  DlCoirel  COLor 

PROGRAM  BY:  G.  BECKER 

PHONE:  B77-7621 

DATE:  7  AUG  19*1 

THIS  IS  A  GENERAL  DICOMEO  COLOR  SUBROUTINE  FOR 
USE  WITH  POLAROID  OR  35TT.  FILM. 

THE  PARAMETERS  THAT  MUST  BE  PASSFD  FROM  THE  CALLING 
RJUTTNF  ARE: 

1)  I  MOV  :  sFI L'4  SELECTION  (  POLARO  IUsO  ,  3bn»Tist  ) 

2)  IFLTjsFU.L  ANY  MISSEL  PIXELS  CfESsl,NOsO) 

3)  TPASStsTHE  NUMBER  OF  DICOMtD  PASSES 

4)  I  A'ljsAMOTHER  PICTURE  OF  THE  SAME  DATA  (YESsl) 
NOTES  THE  DATA  MUST  HE  GENERATED  IN  THE  CALLING  RuUIINE  AvD 

PASSED  7  I  A  I  TEMPUF,  NEUTRL,  INT2  ,  ICNT 

SUBROUTINE  SOICC  1L( TMOV , IFLT, IPASS, IAN) 

INCLUDE  'ORAL: [UTILITY. DTCOMFD) COMMON. FOR* 

INCLUDE  'DPAOj  [(!TILl  TY.DICDMED)  DEr.FOR' 

I  NCfjUOE  'UHAOt  [UTILITY. DtCOMEOj  IO.FQP' 

TTEMPUF,  r«lT2,NEOTRf,,  ICMT  MUST  BE  DIMENSIONED  AND  PAsSrD 
TO  THIS  SiiHROIlTTNE. 
include  ' [pp7 34] uicruf. for' 

DIMENSION  JSIIM()) 

I  JTEG5R  *  4  SYSSASSIGN 
C***«t***I  JTTI  A  f,  1 2  AT  TOM  OF  VARIABLES*****************1** 

H  )FSET  =  0 
V0FSET=O 
MA02  =  0 

NCOLdlsO  I  BLACK  AND  *HiTE  PART  1 
NCOL(2)=0  I  °  L  A  C  K  AND  At  H I  T  E  PART  2 
NuTN=51? 

NELEsSI 7 
N  L I  N  2  =  2  S  6 
BiJFR  FES  '77577*0 
BUPRFOs-) 


1  AVTH AEQUIPCEN  ft  0  -  D- 0  0  1  4  -  ? 


c  assign  oftiin  t'i  a  channel 

ISTATsSYSSASSIG^Y 'UZAO: '.ICHAN,  ,  ) 

C  I F  DRUB  IS  NnT  ASSI G*’E0  »je  cannot  continue 

IF  (  .  N OT . I  ST  AT )  THEN 

pwIn  r  to 

10  format  ('on  n  1  B  CANNOT  be  assigned 
-  TO  A  CHANNEL****) 

SO  TO  40 

FNDIF 

C*******pJD  I fJlxlALlZATION **************************** 

TYPE*,  '  ' 

type*,  'General  color  oicumed  subroutine' 
type*,  '  ' 

C*******I4PUT  from  terminal*************************** 

type*,  'the  picture  dimensions  are  set  at  512,512' 

TYPE*,  'TYPF  of  FILM:  POLAROIOsO;  35*m=l ; ' , IMOV 
TYPE*,  'FILTER  THE  DATA?  ( YES=1 ) ' , IFLT 
IF  (IMDY.EQ.l)  THEN 

TYPE*,  'THE  HORIZONTAL  OFFSET  IS  140  OCTAL.' 
Hf)FSET  =  9f>  1140  OCTAb 

type*,  'the  vertical  offset  is  145  octal.' 

VDFSET=101  1145  OCTAL 

TYPE*,  'THE  RESOLUTION  IS  SET  AT  1.' 

MODEsl 

ELSE 

TYPE*,  'THE  RE" SOLUTION  IS  SET  AT  J.' 
modes 3 

E  N  D I F 

type*,  'the;  number  of  dicumed  PASSES*' , IPASS 
C*******E,iD  input  FRO*1  TERMINAL*****************1****** 

20  IF(IFr.T.EO.l)  THEN 

C  SCENE  IS  FILTERED  TO  FILL  ANY  MISSED  PIXELS 
CN3TE:  THIS  DATA  NAS  FILTERED  JUS!  BEFORE  BEING  WRITTEN  TO 
C  FILE  BY  THF  PrCTUPE  CREATE  ROUTINE.  HENCE  ICNTC) 

C  STILL  CONTAINS  THE  PIXEL'S  SUM  HIJT  ITEMQUF  HAS  A  SCALED 
C  VALUE  READY  FOR  DISPLAY. 

TYPE*, 'FILLING  ANY  MISSED  PIXELS' 

DO  111  I  YBSsl  ,Nf,IN 
DO  277  IXBS=1,MELE 
JCOUNTs.) 

DO  M25  K  V Ss t  ,  3 
JSUM(KVS)sO 
6)25  CONTINUE 

0 )  300  ksIYpS-1 , IY3S+1 

IF(  (K.LT.  D  .OR.  (K.GI  ..HLIN)  )  GOTO  iOD 
DO  440  LsIXBS-1 , IXOS+1 

IF( (L.LT. 1 ) .OR, (L.GI.NELE) )  GOTO  440 
IF( ICNT(L,K ) .E3.0)  GO  TO  440 
JCO  INTsJCUUUT  +  1 
00  5471  K  V  S  s 1  ,  ) 

JSUM(KVS)=JS"M(FVS)  ♦I1’EMBUFCL,K  ,KVS) 


400 


o  n  n  n  (i  o 


1 


JAVTH  ACQiJlPCF**  30-n-001  <*-? 


54  71  CJNTINUE 

IF(lC,irC!J#K).I  T.-l)  IFG=1 

C  TEST  ICNT.LT.-l  SINCE  THE  MISSED  PIXEL  TAG  Is  -1 

C  JJST  AP'IVE  STATEMENT  220. 

440  C  JNTI HUE 

300  CONTINUE 

IFCJCOUNT.KO.n)  THEN 

TYPE*,#MlsSRn  »IX£L  AT  r X«S , I Y H S  = * , I X BS , I  TPS 
ELSE 

00  4732  Kvs=1 , § 

I  r E M R I J F  (  IXBS#1  YBS,KVS)  =  JSUM(KVS)/JCnU,NT 
4762  CONTINUE 

EVDIF 

ICNr(TX-3S,lY«S)s-l 
220  CONTINUE 
I  ^sh 

I E (  I T E M b . J f ( TXPS,lYHS,3).Gf.O)  THEN 

IF(  ITFMAUF  (IXHS,  IlfBS,  J)  .G«£.  3*ITEMRUF(IXSS,  IYHS,  1)  > 

*  then 

I R  =  T  TRM  HOF  (TXSS,IYRS,i)  I  SKY 

ELSE  lF(rTEMBi)FCIX«S,IYHS,7).LT.TrEMBL)FCIXBS,IY6S.n/?) 

♦  THEN 

IR=l2ft-(m>*.JF(IX*$,lY*S,3)/4)  !  LAKE 

FNDtF 
E  JD IF 

I  >4IFT  =  25s*(IP/r28) 

MEUTRLf  tXHS,  iyHS)sIR-ls«n-  r 
222  CONTINUE 

111  CONTINUE 

EMDIF 

*****  ******nATA  IS  SENT  T'O  THE.  0 ICO  MED************* 

DO  333  KKTsi ,TPASS 

type*,'  SENDING  j f ij r r a l  uATA  to  the  dicomeo' 

VtnsE'T  CALL  0 4 7 C N 0  TOj 

1)  CLEAR  THE  COMMAND  rtUFFEP. , 

2)  SET  THE  DATA  SIZE  10  «  HITS, 

3)  SET  THE  RESOLUTION, 

4)  SET  THE  POLARITY  TJ  NORMAL,  A N |) 

5)  SET  f. INEAR  STEPS  IN  DENSITY, 

CALL  VTOSET 

FILTER  SELECTS  THE  FILTER  TO  rtE  USED  VIA  FILSEL 
CALL  FILTER 

C  THE  HOP  I.  AND  vert.  OFFSETS  are  GIVEN  TO  the  DlCOHEf) 

CALI.  PM  7CM0(>ir OS) 

CALI.  04  7P0S  (  HPFSET  ) 

CALL  D47CmD( VPOS) 

C  A I .  f j  [)47POS(  vhcsEtj 

DO  1414  IXHSsNLIM, 1 ,-J 
CALL  vntNrr 

no  i^ss  iyhs=*’Ele,  1,-1 


4  0  J 


NAVTRAEOUIPCEN  80-0-0014-2 


B  JE1  (  I  YBS)sr.'Eiir«L(  I  KBS,  I  Y»S) 

1555  CONTINUE 

Call  vidout 

1444  CONTINUE 

C4LL  OPCrlK 
NCOLt 1 )=3 

00  666  KVSs 1,3 

TYPE*, 'SEEDING  GREEN ( 1 ) , RED ( 2 ) , BLUE ( 3 ) a ' , K VS 

call  vipset 

C  RED=  1,*  SR EE N =2  *  BLUE=3 
TECKVS.EQ.l)  THEN 
•4COL(2)s2 

ELSE 

NCOL(?)=2*KVS-3 

ENDIF 

Call  filter 

CALL  O47CM0(HP0S) 

Call  d47Poschpfset) 

CALL  D47CMD ( VPOS ) 

CALL  D47POS( VOFSEI) 

00  444  IXHSsNLIN, 1 ,-l 

C  VOINTT  CHECKS  THE  STATUS  OF  THE  DICDMED  BUFFERS, 

CALL  VD  I N I T 

00  555  I YRSsNELE , 1,-1 

IRsITt49(jF(IX8S,IYBS,KVS) 

IFCKVS.E0.3)  THEN 

IF(IR.ST.4*ITEMBIJF(IXBS,1Y8S,  1  )  )  IR=415-lR/4 

IF ( lR»t»T,255)  IR  =  255 

ENDIF 

C  THIS  HAKES  THE  SKY  A  CONSTANT  BLUE,  BUT  WHITE  FADES  , 

ISHIFT=256*CIR/12B) 

PlJFl  (IYB5)  =  IR-ISHIFT 

555  Continue 

CALL  VIOOUT 
444  CONTINUE 

CALL  UPCHK 
666  CONTINUE 

TYPE* , 'PASS' ,KKI , 'COMPLETED' 

C  SET  THE  FILTER  HACK  TO  NEUTRAL, 

NCOLC  Dal 
NCOL( 2)=0 
333  CONTINUE 

IF  (IHDV.EQ.1)  THEN 
CALL  FILAOV 

ENDIF 

TYPE*,  'The  END' 

CALL  OPCHK 

TYPE*, 'ANOTHER  PICTURE?! YES* i ) ', IAN 
IE  (IAN. El. 1 )  SO  TO  20 
40  RETURN 

END 
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appendix  r>A 

ROUTINES  ETR  TEXT  G  E  N  E  ri  A  A  I  T  N 


Appendices  up  throu-m  i»< i  are  the  routines  that  are  usei 
to  generate  and  test  the  PRALSCAM  text  generation  routines. 
Appendix  )H  contains  tne  cnaracter  set  used  to  *rite 
parametric  information  on  imaaes  venerated  from  tne 
EGLOata  data  base.  Aonenlix  nj  contains  alternate  cnaracter 
constructions  for  the  character  set  of  Apoendix  r>H. 
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APPENDIX  Dti 
DATACHAR.FDH 


datachar.for 

DATACHAR.FOR  C rl *•  T A  1  N S  THE  DATA  STATEMENTS  FOR  'ICH'  AnD 
'ASCH#.  ICH(7,R,S1)  DEFINES  A  CHARACTER  SFf  WI1H  Si 
D  [  F  F  F  R  E  N  T  7X0  ELEMENT  CHARACTERS.  AN  lCH  ELEMENT 
OF  ”1"  DESIGNATES  AN  ILLUMINATED  ELEMENT  ANu  "0" 
DESIGNATES  A  SUPPRESSED  ELEMENT.  ASCH(l7,39)  CONTAINS 
TIE  17  X  3<»  CHARACTER  SPACES  AVAILABLE  F JR  THE  TEXT. 

IT  IS  INITIALIZED  WITH  THf:  DECIMAL  ASCII  FOR  EACH 
CHARACTER  If,  the  DESIRED  TEXT.  A  "0"  DESIGNATES  fij 
CHARACTER  PRESENT. 


DATA  I C  H 1 / 

♦  0 , 0 , 0 , 0  ,  o ,  n ,  0 , 0 , 0 , 0  ,  - 1 , 0 , 0 , 0 , 0 , 0 , 0  ,  - 1 , 0 , 0 , 0 , 

+  0 , 0  ,  o  ,  - 1  ,  0  ,  o  ,  0  ,  - 1  ,  - 1  ,  - 1  ,  - 1  ,  -  1 ,  - 1  ,  - 1 , 0 , 0 , 0  ,  - 1 , 0 , 0 , 0  , 

♦  0,u, 0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 0,0, 0,0, 0,0,0, 

,  0 , 0  ,  n  ,  0 , 0 , 0 , 0 , 0 , 0  ,  (1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 

,  0  ,  O  ,  0  ,  f)  ,  0  ,  o  ,  n  ,  0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0  ,  U  ,  -  1  ,-1,0,0, 

,  0,0,0,  —  1,— 1  ,0,0, 0,0, 0,-1 ,  — 1,0, 0,0,0,  —  1 ,  —  1  ,0,0,0, 

-  0 ,0,0,0, I, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 0,0,0, 

-  o  ,  0 , 0  ,  o  ,  ■) ,  ;i ,  <>  ,  - 1  ,-1,-1,  -  l,  -1,-1,  -1,0, 0,0, 0,0, 0,0, 

-  0,o,0,'»,o,o,o,n,0,'), 0,0, 0,0, 0,0,0, 0,0, 0,0, 

.  0, 0,0,0, 0,0, 0,0, 0,0,0,!), 0,0, 0,0, 0,0, 

.  0,0, 0,0,  ■*,'),  0,0, 0,0, 0,0, 0,0, 0,0,0, 0,0, 0,0, 

.  0,.“),  0,0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, -1,0, 0,0, 0,0, 

/  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,-1, 0,0, 0,0,0, -1,0, 

/  0,0,0,),  —  1,0,  f),  1,0, 0,-1, 0,0, 0,0, 0,-1, 0,0, 0,0, 

/  0#-l, l', 0,0, 0,0, -1,0, 0,0, 0,0, y,o, 0,0, 0,9, 0,0, 

DUE  ro  COMPILATION  ERRORS  0  COUI.D  vDT  *E  USED  TO  R  fc  PRESENT 
ZERO.  A  DASH  (-)  >v  A  s  USED  I  :*  ITS  PLACE. 

-  0,0, -1,-1, -1,0, 0,0, -1,0, 0,0, -1,0, -1,0, 0,0,0, 0,-1, 

-  -1,0, 0,0,0, 0,-1, -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, 

-  -1 , 0,0, 0,0, 0,-1, 0,-1 ,O,0,0,-l,U,U, 9,-1, -1,-1, 0,0, 

1  *1,1,1),  —  1  ,  -7,0,0,  ),<),— t,  —  1  ,  0,0, 0,0,  —  1,0,— 1  ,0,0,0, 

1  0 , 0 , 0  ,  -  1  ,  7,0,'), .1,0, 0,-1  ,  0,0, 0,0,0, 0,-1 ,0,0,0, 

1  u  ,  7  ,  o  ,  -  1 , 0  ,  o  ,  0  ,  ')  ,  O  ,  '1  ,  -  1 , 0  ,  J  ,  o  ,  -  1  ,  -  1  ,  -  1  ,  -  1  ,  -  1  ,  -  1  ,  -  1  , 

7  0,-1, -1,-1, -1,-1, 0,-1, 0,0,0, 0,0, -1,0, 0,0, 0,0, 0,-1, 

2  0,0,0, 9, 0,-1 , 0,0, 0,0, 9,-1, u,u,w, 0,0, -1,9, 0,0, 
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2  0,0, -1,0, 0,0, 0,0, -l, 0,0, 0,0, 0,-1, -1,-1, -1,-1, -1,-1, 

3  -1 ,-l ,-l ,-l,-l,-1 ,0,0, 0,0, 0,0, 0,-1, 0,0, 0,0,0, 0,-1, 

3  0,0, 0,0, 0,0, -1,0, 0,-1, -l, -1,-1, 0,0, 0,0, 0,0, 0,-1, 

3  0,0, 0,0, 0,0,  -1,-1,'),  0,0, 0,0,  -1,0,  -1,-1,  -1,-1,  -1,0, 

4  -1,0, 0,0, 0,0, 0,-1 ,0,0, 0,-1, 0,0, -1,0,0, 0,-1 ,0,0, 

4  -1,0,0, 0,-1 , 0, 0,-1, -1,-1, -1,-1, -1,-1, 0,0, 0,0, -1,0,0, 

4  0,0, 0,0, -1,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, -1,0,0, 

*>  -1,-1, -1,-1, -1,-1, -1,-1, 0,0, 0,0,0, 0,-1, 0,0, 0,0, 0,0, 

5  -1,0, 0,0,0, 0,0, -1,-1, -1,-1, -1,-1, 0,0, 0,0, 0,0, 0,-1 , 

5  0,0, 0,0, 0,n, -1,0, 0,0, 0,0,0, -1,-1, -1,-1, -1,-1, -1,0, 

6  0,0, 0,-1, -1,0, 0,0, 0,-1, 0,0, 0,0, 0,-1, 0,0, 0,0,0, 

6  -1,0, 0,0, 0,0, 0,-1, -1,-1, -1,-1, -1,0, -1,0, 0,0,0, 0,-1, 

6  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0,0, -1,0, -1,-1, -1,-1, -1,0, 

7  -1  , -1,-1, -1,-1, -1,-1, -1,0, 0,0, 0,0, -1,0, 0,0, 0,0, 0,-1, 

7  0,0, 0,0, 0,0, -1,0, 0,0, 0,0, -1,0, 0,0, 0,0, -1,0,0, 

7  0,0, 0,-1, 0,0, 0,0, 0,-1, 0,0,0, 0,0, -1,0, 0,0, 0,0, 

>3  0,0, -1,-1, -1,0, 0,0, -1,0, 0,0, -1,0, -1,0, 0,0,0, 0,-1, 

8  0,-1, 0,0, 0,-1, 0,0, 0,-1, -1,-1, 0,0, 0,-1, 0,0,0, -1,0, 

8  -1,0, 0,0, 0,0, -1,0, -1,0, 0,0, -1,0, 0,0, -1,-1, -1,0,0, 

9  0,-1, -1,-1, -1,-1, 0,-1, 0,0, 0,0, 0,-1, -1,0, 0,0,0, 0,-1, 

9  -1,0, 0,0, 0,0, -1,0, -1,-1, -1,-1, -1,-1, 0,0, 0,0,0, -1,0, 

9  0,0, 0,0, -1,0, 0,0, 0,0, -1,0, 0,0, 0,-1, -1,0, 0,0,0, 

•  0.,  0,0, 0,0, 0,0, 0,0,0,— 1,0, 0,0, 0,0,  —  l,—  1,  — 1,0,0, 

5  0,0, 0,-1, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,-1, 0,0,0, 

s  0,0, -1,-1, -1,0, 0,0, 0,0, -1,0, 0,0, 0,0, 0,0, 0,0,0,  * 

*  0,0, 0,0, 0,0, 0,0, 0,0,— 1 ,0,0, 0,0,0,  —  1 , — 1 ,  —  1 ,0,0, 

;  0,0, 0,-1, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,-1, -1,0,0, 

*  0,0,0,— 1,— 1,0, 0,0, 0,0,— 1,— 1,0, 0,0,0,— 1,— 1,0, 0,0, 

<  0,0, 0,0, 0,-1, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,-1, 0,0,0, 

<  o , 0 , - 1  ,0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 

<  0,0, 0,-1, 0,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,0,0, -1,0, 

=  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

*  — 1,  —  t,— 1,"1,  —  1,  —  1,— 1,0, 0,0, 0,0, 0,0,  —  1,— 1,  —  1,— 1,— 1,— 1  ,— 1, 

=  0,0, n,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

>  0,-1, 0,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, 0,-1, 0,0,0, 

>  0,0,0, 0,-1, 0,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,-1, 0,0, 

>  0,0, 0,-1, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,-1, 0,0, 0,0,0, 

?  o, 0,-1, -1,-1 ,0,0, 0,-1, 0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 

?  0,0,0,— 1 ,  —  1 ,0,0, 0,0,0,— i ,0,0, 0,0, 0,0,— 1,0, 0,0, 

?  0,0, 0,0, 0,0, 0,0, 0,0,— 1,0, 0,0, 0,0,0,— 1,0, 0,0, 

9  0,-1, -1,-1, -1,-1, 0,-1, 0,0, 0,0,0, -1,-1, 0,-1, -1,-1, 0,-1, 

*  -1,0, -1,0, -l, 0,-1, -1,0, -1,0, -1,0, -1,-1, 0,-1, -1,-1, -1,0. 

9  -1,0, 0,0, 0,0, 0,-1, 0,0, 0,0,0, -1,0, -1,-1, -1,-1, -1,0/ 


r>AT4  T  C H  2 / 

A  0,0, 0,-1, 0,0, 0,0, 0,-1, 0,-1, 0,0, 0,-1, 0,0,0, -1,0, 

A  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0,0, -1,-1, -1,-1, -1,-1, -1,-1, 
A  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, -1,0, 0,0,0, 0,-1, 
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9  -  »  — 1»  — 1»  —  i»o,  —  t,c, 0,0,0, o,  —  1,  — 1,0,0, 0,0,0,  —  i, 

s  -l,o,o,o,.>,o,-i,-i,-i,-t,-i,-i,-i,o,-i,o,o,o,o,o,-i, 

9  - 1 , o , o , r.  ,  i,o, -1,-1, o,o, 0,0,0, -1,-1, -1,-1, -1,-1, -1,3, 

C  o,.), -1,-1, -1,-1, 0,0, -1,0, 0,0, 0,-1, -1,0, 0,0, 0,0,0, 

C  -1,0, 0,0,1, 0,0, -1,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, 

c  -i ,0,0, 0,0, 0,0, 0,-1, 0,0, 0,0, -1,0, 0,-1, -1,-1, -1,0, 
o  -  1  ,  -  l  ,  -  1  ,  -  1  ,  -  1  ,  0 , 0  ,  -  1  ,  0 , 0  ,  U  ,  y  ,  -  1 , 0  ,  -  1  ,  0 , 0 , 0 , 0 , 0  ,  -  1  , 

0  -1,0, 0,0, 0,0, -l, -l, 0,0, 0,0, 0,-1, -1,0, 0,0, 0,0, -l, 

0  -1.0, 0,0, 0,0, -1,-1, 0,0, 0,0, -1,0, -1,-1, -1,-1, -1,0,0, 

S  -1,-1, -1,-1, -1,-1, -1,-1  .0,0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, 
fi  -1,0, 0,0, 0,0, 0,-1, -1,-1, -1,-1, 0,0, -1,0, 0,0, 0,0,0, 

G  - 1 , o , 0 , 0 , 0 , 0 , n , -1,0, 0,0, 0,0, 0,-1, -1,-1, -1,-1, -1,-1, 

K  — 1,— 1,-1  ,-l  ,-1,-1, -1,-1  ,0,0, 0,0,0, 0,-1  ,0,0, 0,0, 0,0, 

F  -1,0, 0,0, 0,0, 0,-1, -1,-1, -1,-1, 0,0, -1,0, 0,0, 0,0,0, 

F  -1,0, 0,0, 0,0, 0,-1, 0,1), 0,0, 0,0, -1,0, 0,0, 0,0,0, 

G  0,0, -1,-1, -1,-1, 0,0, -1,0, 0,0, 0,-1, -1,0, 0,0, 0,0,0, 

G  -1,0, 0,0, 0,0, 0,-1, 0,0, -1,-1, -1,-1, -1,0, 0,0,0, 0,-1, 

G  -1,0, 0,0, 0,0, -1.0, -1,0, 0,0, -1,0, 0,0, -1,-1, -1,0,0, 

H  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, -1,0, 0,0,0, 0,-1, 

H  -1,0, 0,0,0, 0,-1, -1,-1, -1,-1, -1,-1, -1,-1, 0,0, 0,0, 0,-1, 

9  0  ,  ),  0,0,0,  -1,-1, 0,0, 0,0, 0,-1,  -1,0, 0,0,0, 11,-1, 

1  0,-1, -1,-1, -1,-1 , 0,0, 0,0, -1,0, 0,0, 0,0, 0,-1 ,0,0,0, 
t  0 , 0 , 0  ,  - 1  , 0 , 0 ,  o  ,  0  ,  o  ,  0 ,  - 1 ,  a ,  0 , 0 , 0 , 0 , 0  ,  - 1 , 0 , 0 , 0  , 

T  0,1), 0,-1,  0,0, 0,0, 0,0, -1,0,0, 0,0, -1,-1, -1,-1, -1,0, 

G  f1  ,  U  ,  —  1  ,  —  1  ,  —  1  ,  —  1  ,  —  l  ,0,0,0, 0,-1 ,0,U, 0,0,0, 0,-1  ,0,0, 

J  0,0,0,'),  —  1  ,  0,0, 0,0, 0,0,  —  1,0, 0,0,0, 0,0,  —  1,0,0, 

J  o , 0 , o , 0 , -  1  , o , 0 , - 1  ,o,o,o,-i , 0 , 0 , 0 , - 1  , - 1 , - 1 , o ,  ) , o , 

*  - 1 , 0  ,  f> ,  o  , ,) ,  0  ,  -  1  ,  - 1 , 0  ,  o  ,  0 , 0  ,  - 1  ,  0  ,  - 1 , 0 , 0 , 0  ,  -  1 , 0 , 0  , 

K  -  1  ,  0 , 0  ,  -  t  ,  0 , 0 , 0  ,  -  1 , 0  ,  -  1  ,  o  ,  U  ,  0 , 0  ,  -  1  ,  -  1 , 0  ,  -  1  ,  0  ,  o  ,  0  , 

K  -1,0, 0,r>, -1,n,  o,-l,  0,0, 0,0, -1,0, -1,0, 0,0,1), 0,-1, 
b  — 1,0, 0,(1, 0,0,0, — 1  ,  0  ,  • )  ,  0 , 0  ,  *J  ,  0  ,  —  1  ,0,0, 0,0, 0,0, 

-  1  ,  0 , 0 , 0 , 0 , 0 , 0  ,  -  1  ,  •> ,  ')  ,  o  ,  0 , 0 , 0  ,  - 1 , 0  ,  o  ,  O  ,  0 , 0  ,  o  ,  -  1  , 

L  0 , 0 , 0  ,  o  ,  1,. 1,-1, 0,0,  (I, 0,0, 0,-1, -1,-1, -1,-1, -1,-1, 

•«  -1  ,n  ,  >,  r, -1, -1,-1,  o,  (),.), -i, -1,-1,0,-1,J, -1,0, 

A  - 1 ,  - 1  ,  "  *  0  ,  -  1  ,  1 , 0  ,  - 1  *  -  1  ,  o  ,  '» ,  «) ,  o  ,  0 ,  - 1  ,  - 1 ,  0 , 0 , 0 , 0  ,  o  ,  - 1  . 

-  1  ,  o  ,  0  ,  ,  •>  ,  0  ,  -1  ,  -  1  ,  0 , 0  ,  II  ,  -> ,  .)  ,  -  1  ,  -  1  ,  O  .0 , 0 , 0 , 1  ,  -  1  , 

1  -I  »  0  ,  o  ,  r  • ,  o  ,  o  ,  -  i  ,  -  l  ,  -  1  ,  0  ,  >) ,  •  > ,  0  ,  -  1  ,  -  1  ,  -  1  ,0,o,o,  :),  —  1  , 

* 1  —1,0,  —  t  ,  1,0,'),  —  1,  —  1,1,  O,  —  \  (,"),  —  1,—  1,0,  »,<>,  —  1, 0,-1  , 

-  1  ,0,0,0,  ■)  ,  -  1  ,  -  1  ,  -  1  ,  1  ,  (>  ,  .1  ,  'J  ,  -  1  ,-1,-1  ,  0  ,  )  ,  0 , 0 , 0  ,  -  1  , 

)  *1,-1  ,  —  1  ,  —  l  ,  —  1  ,  —  I  ,  1,  —  1,0,, l,0,.i,  J,  —  1  ,  —  1  ,-1,0,0, 0,0,  —  1  , 

J  -1 ,0,0,0,  ),  0,-1  ,-1 ,  0,0, 0,  1  ,  -1  ,0,0,.),'),  0,  -  l  , 

0  -  1  ,  o  ,  o  ,  o  ,  1  ,  -  1  ,  "  ,  1 , 0 , 0  ,  O  ,  -  L  ,  0  ,  -  1  ,  -  1  ,  -  )  ,  -  1  ,  -  1  ,  <•  , 

D  -  1  ,  -  1  ,  -  1  ,  -  l  ,  -  1  ,  -  1  ,  >'■  ,  -  1  ,  O  ,  0  ,  O  ,  > ,  o  ,  -  1  ,  -  1  ,  1  ,  o  ,  .0  ,  0 , 0  , 

0  -1,-1, 0,0,0,11,1), -1,-1, -1,-1, -1,-1, -1.0,-!,.), 0,0, 0*0,0 
p  - 1 , 0 , 0 ,  r  ,  ) .  0 , 0 ,  - 1 ,  .1 ,  ) ,  o .  n ,  U ,  1» ,  - 1 ,  o ,  0 .  n ,  P ,  0 ,  o , 

)  .',1,-1  ,  -  1  ,  -  1  ,  n  ,  o  ,  ■> ,  -  1  ,  1 , 0  ,  ,  -  l ,  0  ,  - 1  ,  o  ,  0  ,  o  , .) ,  0  , 

)  —  1  ,  —  1  ,0,  )  ,  *1  ,  .),(’,  —  1  ,  —  1  ,  ( ’  ,  ^ ,  o ,  () ,  0  ,  —  1  ,  —  1  ,  o ,  0  ,  . )  ,  0 , 0  ,  —  1  , 

■J  -1  ,0,O,  (1,-1  ,  ),-t  .0,-1  ,<>,<),  0,-1 ,0,0, 0,-1  ,-l  ,-1 ,0,-1  , 
u  -1*-1, -1, -1. -1. -1. 0, -l, o, 0,0,0, 0,-1, -1, (1,0,0, n,o, 

■)  —  l  ,  —  1  ,  • , o , ■  i , - 1  ,-i  ,-i  ,-i  ,-l  ,-J  .  -  l  ,0,-1  ,o,o, 

*  -1  ,0,0, 0,-1  -1  ,o,'),0,n,-l  ,u,-  1,(),  0,0,1 ,0,-1, 
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S  ^  # "1  ,  —  1 ,  —  1 ,  —  1 ,  —  1  ,  —  1 ,  —  1 ,0,0, 0,0,0, 0,-1 ,0,0, 0,0, 0,0, 

S  -1,0, 0,0, 0,0, 0,0, -1,-1, -1,-1, -1,0,0, 0,0, 0,0, 0,-1, 

S  0,0, 0,0, 0,0, -1,0, 0,0, 0,0,0, -1,-1, -1,-1, -1,-1, -1,0, 

T  -1,-1, -1,-1, -1,-1 ,-1,0, 0,0, -1,0, 0,0, 0,0, 0,-1, 0,0, 

T  0,0, 0,0, -1,0, 0,0  0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 

T  0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 0,0, 0,-1, 0,0,0, 

IJ  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, -1,0, 0,0,0, 0,-1, 
l)  -1,0, 0,0,),  0,-1,  -1,0, 0,0, 0,0,  -1,-1, 0,0, 0,0, 0,-1, 

■I  -1,0, 0,0, 0,0, -1,0, -1,0,0, 0,-1, -1,0, 0,-1, -1,-1, 0,-1, 

Y  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, -1,-1, 0,0,0, -1,-1, 

J  0,-1 ,0,0, 0,-1 ,0,0, -1,-1, 0,-1, -1,0, 0,0, -1,0, -1,0, 0,0 

Y  0,-1, -1,-1, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 

4  -1,0, 0,0,0, 0,-1  ,-1,0, 0,0, 0,0,  -1,-1, 0,0, 0,0, 0,-1, 
w  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, -1,0, 0,0,0, 0,-1, 

*  — 1,0,0,  — 1,0,0,  — 1,-1, 0,  —  J  ,0,-1, 0,-1, 0,-1, 0,0,0, -1,0, 
X  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, 0,-1, 0,0,0, -1,0, 

X  0,0, -1,0, -1,0, 0,0, 0,0, -1,0, 0,0, 0,0, -1,0, -1,0,0, 

X  0,-1, 0,0, 0,-1, 0,-1, 0,0, 0,0, 0,-1, -1,0, 0,0,0, 0,-1, 

Y  -1,0, 0,0, 0,0, -1,-1, 0,0, 0,0, 0,-1, 0,-1, 0,0,0, -1,0, 

Y  o, 0,-1, 0,-1  ,0,0, 0,0, 0,-1, 0,0, 0,0, 0,0,  -1,0, 0,0, 

Y  0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 0,0, 0,-1, 0,0,0, 

Z  — 1,  —  1,  —  1,— 1,  —  1,— 1,  — 1,0, 0,0, 0,0,0,  — 1,0, 0,0, 0,0,  — 1,0, 

7  0,0, 0,0, -1,0, 0,0, 0,0, -1,0, 0,0, 0,0, -1,0, 0,0,0, 

Z  0,-1, 0,0, 0,0, 0,-1, 0,0, 0,0,0, 0,-1, -1,-1, -1,-1, -1,-1, 

[  0,-1, -1,-1 ,-1,-1, 0,0, -1,0, 0,0, 0,0, 0,-1, 0,0, 0,0,0, 

[  0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 0,0, 0,-1, 0,0, 0,0,0, 

[  0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 0,0,0, -1,-1, -1,-1, -1,0, 
0,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, 0,-1, 0,0, 0,0,0, 

0,0, -1,0, 0,f), 0,0, 0,0, -1,0, 0,0, 0,0, 0,0, -1,0,0, 

0,0, 0,0, 0,-1  ,0,0, 0,0, 0,0, 0,-1  ,0,0, 0,0, 0,0,0, 

]  o, -1,-1, -1,-1 ,-1,0, 0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 

J  0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 0,0, 0,0,0, -1,0, 

]  0,0, 0,0, 0,-1, 0,0, 0,0, 0,0, -1,0, 0,-1, -l, -1,-1, -1,0/ 


DATA  a  SCO/ 

♦  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

*  0,0, 0,0,«), 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

*  0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

*  0,0, 84, *51,0,0, 0,0, 0,0, 9, 0,0, 0,0, 0,0, 

+  0, 0, 89,  «S  1 , 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

*  0,0, 65, SI, 0,0, 4b, 0,0, 0,0, 0,0, 0,0, 0,0, 

*  0,0,86,61 ,0,0,46, 0,0, 0,0, 0,0, 0,0, 0,9, 

*  0,0,67,61,0,0,48,0,0,0,0,0,0,0,0,9,0, 

*  0,0, 74, 61,42,61, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

*  0,0, 0,0, 1,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 

*  0,0, 0,0, 0,84, 69, 42, 82,65,73, 7b, 0,0, 0,0,0, 

*  9,0,83,71,90,69,61,0,0,0,0,0,0,0,0,0,9, 

*  0,0, 04, 49, 69, 61, 0,0, 0,0, 0,0, 0,0, 0,0, 


408 


",o,72. 
0,0,86, 
0,0, 0,0 
o  ,  0  ,  o  ,  R 
0,0,81, 
0,0,84, 
0,0,72, 
0,0,86, 
0,0, 0,0 
0,0,71, 
0,0,81, 
0,0,84, 
0,0,72, 
0,o,Po, 
0,0, 0,0 
0 , 0  ,  o  ,  o 
0,0,81, 
0,0,65, 
0,0, 0,0 
0 , 0 , 0 , 0 
0,0,91, 
0,-1, 81, 
0 , 0  ,  o  ,  0 
0,8  3,96 
0,0,70, 
0,0,81, 
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7  4,82,9  0,6)  , 0,0, O,o, 0,0, 0,i ),0,0, 

64, 8?,  a  4, 61,'),  0,0, 0,0, 0,0, 0,0,0, 

,  0 , 0 , 0 , 0 , 0 , 0 , 0 , 0  ,  o  ,  0 , 0 , 0 , 0  , 

1,8?, ►>0,60, 83, 47, 82, 70, 6/, 75, 81, 0,0,1), 
71, 00, 60, hi, 0,0, 0,0, 0,0, 0,0, 0,0, 

9 i , «o, 6  9, 61, 0,0, 0,0, 0,0, 0,0, 0,0, 

70, 8?, «0, 61, 0,0, 0,0, 0,0, 0,0, 0,0, 

6 4, 82, W4, 61, 0,0, 0,0, 0,0, 0,0, 0,0, 

,0,0, o,0, 0,0, 0,0, 0,0, 0,0,0, 

82, 65*8^,83, 47, 76, oQ, 65, 06,69,83, 0,0,1 
7  1 , 40 , 64 , 6 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0  , 

89, 8o, 69, 61, 0,0, 0,0, 0,0, 0,0, 0,0, 

79, 8?, 90, 61,0,0.0,0,0,1), 0,0, 0,0, 

6 9, 80, q4,61,0,0,0,0, 0,0,0, 0,0,», 

,  0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0  , 
,0,0,76,65,75,69,0,0,0,0,0,0,0, 
67,65,76,64,61,0,0,0,0,0,0,0,0,0, 
98,71,83,0,83,84,82,61,0,0,0,0,0,0, 

, ) , 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 

, 0,7 0,7 3, 69, 76, 68, 63, 0,0>0, 0,0,0, 

7  5, 7  9, 8  0,69, 61, 0,0,0, 0,0, 0,0, 0,0, 

73, 9  0,69, 61, 0,0, 0,0, 0,0, 0,0, 0,0, 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 
,79,0,83,72,65,68,79,87,58,0,0,0,0,0, 
73,82,93,84,58,0,0,0,0,0,0,0,0,0, 
69,67,79,78,68,58,0,0,0,0,0,0,0,0/ 
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appendix  nc 


OICCHAR.t'flP 


o  ccchar.for 

tiis  routtne  is  the  character  centra tor  fjr  the  diComstd. 

The  ARRAY  ITEXT  IS  GENERA  TEU  FROM  THE  ARRAY  ASCH  JS1N3 
THE  INPUT  CHARACTER  STRING  VARIABLES  AMO  THOSE  STRINGS 
generated  BY  chconv.  TTEXT  IS  THEN  REAOY  FJR  OUTPUT 
Tj  THE  0 1 C  ■  1 M  E  T:  BY  A  SEPARATE  DICOHED  CONTROL  ROUTINE. 

CALLING  ROUTINE;  IJNSPFC  rFIED  DICO«EO  CON TR JL  ROUTINE 

ROUTINES  CALLED;  S'.lbRJUTANf  CHCONV  IN  CHCOniV.FOR 

I  J PUT  VARIABLES;  A  -  SUN  VECTOR  X  COMPONENT 

B  -  .SUN  VECTOR  Y  COMPONENT 

C  -  SUM  VECTOR  7.  COMPONENT 

ISNT  -  SIGN  Fi.AG  ER OH  SUB.  CHCOnV 

IX  -  X  POSiriJM  OF  SCENE  CENTER 

JY  -  Y  POSITION  OF  SCENE  CENTER 

NCR  -  DATABASE  COORDINATE  SCALE  FaCtOR 


r-jpjT  arrays: 


BCHTST(G)  -  CHAR.  COMV.  RETURN  ARRAY 
ELJSL(R)  -  DATABASE  SCALE  FACTOR 

FLOSZ(H)  -  " 

GRAP.OR(H)  -  " 

GRASZC9)  -  " 

GRATPC9)  - 

GRAVER! 9)  - 

LAKAS(S)  -  " 

L  A  *  S  C  (  8  )  - 

bonTh(3j  -  h n v t b  iNonr  array 
R  ICHOR! J)  -  DATABASE  SCALb  FACTOR 

ROCS  7,  (91  -  " 

ROCTP ( 9 )  - 

RJCVER('D)  -  " 

SUNEr(R)  -  " 

S  !J  n  S  D  !  7  )  -  " 

SJNSH(3I  -  SUN  S  H  A  ()  0  N  ?  -  Y  E  S  OR  NO 

f E P H 0 R ! H )  -  DATABASE  SCALE  FACTOR 


IAVTRAKOMIPCEN  8  1  -  D-0  0  1  M-  2 


Tr:»  SZ(9)  - 

TERTP ( 9  )  -  " 

TEPVFR(9)-  " 

TITI.E(lb)  -  TITLE  CHARACTER  STRING 

OUTPUT  VARIABLES:  IFGT  -  FLAG  FUR  REAL  OP  INTEGER  CoNy. 

ITST  -  INTEGER  VARIABLE  FUR  CONVERSION 
RTST  -  REAL  VARIABLE  FOR  CONVERSION 

OUTPUT  ARRAYS:  ITEXT  -  D  X  COR  ED  TEXT  ARRAY 

LOCAL  VARIABLES:  ICHDEX  -  ASJH  ARRAY  CODE  FOR  CHARACTER 

I \»D  -  POINTER  TO  FIRST  NON-ZERO  ChAr. 

K  -  DO  LOOP  COUNTER 
K1  - 

K2  -  " 

K  3  -  " 

K  3  D  E  X  -  CHARACTER  PLACEMENT  POINTER 
K  4  -  DO  LOOP  COUNTER 

K4DEX  -  CHARACTER  PLACEMENT  POINTER 
KK  -  CHARACTER  PLACEMENT  COUNTER 

LOCAL  ARRAYS:  ASCH(17,39)  -  TEXT  CHARACTER  APRAY 

CHTSTX9)  -  CONVERSION  CHARACTER  ARRAY 
ICH(7,9,51>  -  CHARACTER  SET  ARRAY 
ICH1 (7,9,22)  -  PARTIAL  CHAR  SET  ARRAY 
ICH2(7,9,29j  -  PARTIAL  CHAR  SET  ArRaY 
NCRCH ( 9 )  -  NCR  CONVERSION  CHAR.  ArRaY 
SUVA ( 9 )  -  "A”  CONVERSION  CHAR.  ARpAy 
.S  U  N  B  (  9  )  -  "  B  "  CONVERSION  CHAR.  ARRAY 
SUNC ( 9 )  -  "C"  CONVERSION  CHAR.  ARRAy 
X  POS  ( 9 )  -  "IX"  CONVERSION  CHAR.  ArRaY 
YPO? ( 9 )  -  "JY"  CONVERSION  CHAR.  ARRAY 
CH0ATE*9  -  DATE  CHARACTER  STRING 
CHTI ME*  8  -  FULL  TIME  CHARACTER  STRING 
CHTIM*5  -  HKSJMIN  CHARACTER  SIRING 

NOTE:  THE  FOLLOWING  VARIABLES  AND  ARRAYS  ARE  NOI  USE^ 

BY  THIS  ROUTINE  BUI  EXIST  DUF  THF  USE  OF  COMMON 
BLOCKS  WHICH  HAVE  VARIABLES  OR  ARRAYS  NECESSARY 
TO  SUBROUTINE  DICCHAP! 

D1VSK Y 
ICOLOR 
I  F  l  f< 

SK  YSCl, 

S  1  A  k  0 
TPP(2) 

I H  V  (  3  ) 

FOR  MORE  INFORMATION  SEE: 

SA-1  M,  RICHIE 
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Pi:  677-7*21 
DATE  LAST  WRVISJ'IJ;  1  S£P  fll 
S.JrtWOJTT'JR  DICCHAR 

CHARACTERS  XPOFCD  ,VP3S(9),.SUHA(9),SUVy(y), 

*  S'Ja!C(P)  ,  1CRCH(9)  ,  TERSZf  9)  ,T£P1’P19)  ,  rE«90R(9)  ,  rERV£Rf9)  „ 

*  R  jrszfp)  ,  POCTP(P)  ,  R;iCHOP(9),  R0CVK«  (9),G»ASZ(P)  r  SR  ATd(  9)  f 

*  0RAR0R(9)  ,GpAVEP(9)  ,LAKSCC3)  ,LAXAS(5)  ,ELOSL(9)  »FlOS7(9)  » 

*  S'1NSH(  3)  ,S« *'FT(«)  ,SU«lSO(  7  )  ,CHTSI(9)  ,TITLE(  15) 

CIAWACTER  CHDATH'9,CHTIBF  +  B,CHT1m*5 


BYTE  ASCH(17,39),  II>:XT(170,!>12),BCHTST(B),  ICH(7,9#5l) 
BYTE  ICH1(7,9,22),ICH2(7,9,29) 

«yte  itxtflag 

I  4  T  E  G  K  P  *  2  'NCR,  [COLOR,  I  FI  9,  IRVC3) 


FODIVAI.EMCF  (  ASCH<7,4)  ,  XPJSU)  )  , 

*  (A SCH (7, S) ,YPOS(t  )), C ASCH(«, ft i , SUMAC  1  )  )  f 

*  (4SCH(R,7) ,s  KB(1 ) ) , (ASCH(9,8) ,SUMC(J  )), 

*  USCH(«,9),  ,!CR  CH  (  l )  )  ,  (  ASCH(  9, 12)  ,  TF.RSZf  J)  )  , 

*  C  ASCH(R, t  3) ,TFPTP( 1 ) ) , ( 4SCH(9, 1 4) ,TEPHOK(l )  )  , 

*  (  ASCHC9, IS) , TFRVEw(l ) ) , (A5CH(9,1R) , KOCSZf 1 )  )  , 

*  (  4SCH(0,  l‘>)  ,  KOCTP(l)  )  ,  (  ASCM(9,2U)  ,Rr)CHOH(l)  )  , 

*  ( 4SCH(9,2i ) ,RnCVKR( l ) ) , ( ASCH ( 9 , 24 ) , SR ASZ ( 1 ) ) , 

*  (ASCH(9,2S),GrATP(m,(ASCH(9,?b),GRAHOK(l)), 

*  ( 4SCH(9 , 2 /) ,GPAVFM( 1 ) ) , ( ASCH( 10, 30) , LA*SC( 1) )  , 

*  ( ASCH( 1 3, 31 ) ,LAKAS(1 ) ) , ( AbCH(10,34) ,FLDSL(1 ) ) , 

*  ( 4SCH(9, Js ) ,KU)SZ( 1 ) ) , ( ASCHC 14, J7) ,SUMSH(  l  )  )  , 

*  (  4SCHO0,  A«)  ,SUNFrCl)  )  ,  f  ASCh(  11 ,  39)  ,S<JS30(n  )  , 

*  ( A  S  C  H ( 2 , l ) , T  T  T  L  F ( 1 ) ) , ( ASC*(2,2) , CHOATE)  , 

*  (4SCWC1?»?) , C  9  T 1 9 ) 

E  )  'J  T  V  A  l  E  \|  C  E  (nCMTSr,CHTS1  )  ,  (  ICH,  ICM1  )  ,  (  IC  •!(  1  ,  1  ,  23)  ,  TCh2) 

C  )'*  if)  j /r  \u  2/  A SCn,  I  TXTFLA  >» 

C  )MMDM/.rJ  J/A,4,C,SMARG.SKY3CL,01VSKY 
C  )«  T'  g/C  n.'ip/icru.  OR  ,lKIR,iCR,IPP(?),IRV,lX,  JY 
C  MMTJ/C-lR  3/  r  fF  <  r 


c  j v m dm / c o k. v /  ifc  r ,  i  rs  r,  p  vst, hch  ts  r,  is  it 


NAVTRAEn'llPCKN  80-0-0014-2 


DATA  IEN03/39/ 

C)MMON/n AT ArUse/Nl 0  2  4,1 3FF1 C  3,2) , IOFF2( 3,2) , SC ALE (3. 2)  , 

*  I3RFLDC  3) ,SHOVA,COVMARG, IDO V 2 , K SI , K S I  4 , KSI 5 , KSI 7 , KS 1 8  . 

*  I9gNSITY(?,?),5P4Qtfft,SA73VA,DN0l(3,2) ,41, JilPIL'LSCAb, 

*  ivavscal 


IMCLUDF  'DATACHAR.FIR  ' 

C 

V 

IFGT=0 
TTSTsrX 
CALL  CHOJnV 

IF  (  ISNT.EO#  1  )  ASCH(6,4)=4i3 
TF(ISMT.EO.O)  ASCH(6,4)sO 
00  10  K  =  l,9 

IMDsK 

IFCBCHTSK  INO)  .NF.48)  G3T3  11 


10 

C:iM TI  M»l«2 

11 

KK  =  0 

OJ  1  2  K  s  I  -J  0 , 9 

KKsKK+1 

12 

XPOS(KK)=CHTSTCK) 

03  13  KsKK+1,0 

13 

X  P  3  S  (  K)sS'INA  (  1  0)  1  SUN  4(10) 

I rST=jY 

CALL  CHCO'IV 

IF(ISNT.K3.1 )  ASCH(6,S)s45 
IF(ISNT.fq.o)  ASCH(6,5)=0 

03  20  K=t ,9 

IS  '0' 

CONSTANT 

IMDsK 

IF(RCHTST(  I !MH)  .ME.  4«) 

GOTO 

21 

20 

continue: 

21 

kk=o 

03  22  K  s  I  4  D ,  9 

KK=KK+1 

22 

YPnS(KK)sCHTSTCK) 

00  23  KsKK+1,9 

23 

YPOS(K)sSONA(lO)  J  Sl'NA(lO) 

I rST=NCW 

CALL  CHC3NV 

03  30  K s l , 9 

IS  #0' 

CONSTANT 

I-JOsK 

IF(HCHTST(IN0).NF.48) 

G3T3 

31 

30 

CONTINUE 

31 

M  =  0 

DO  32  K s I N 0 , 9 

KKsKK+1 

32 

NCRCH(KK)3CHTST(K) 

0)  )3  K  sKK  M  #9 
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WC«Ch((<  jsf.i'-'.AC  fO  1  Sil-JACIJ)  IS  '0'  COMSFA  »T 
1 F  GT=t 
r  r  S  T  =  A 
CALL  CrtC'l  .'V 

IFC  IS  :r.  rj  J.  1  )  ASCH(S,b)=4b 

I  r  (  I S .  j  T  .  M  .  0  )  A  S  c  a  (  h  ,  fe  )  =  0 

n  }  4  o  k  =  7  ,  i  ,  - 1 

I  \'D  =  K 

lF(»CMtsr(K).uK.4M)  r,JTJ  41 

C  IMHIK 
«<  =  ') 

0)  4?  K  =  1,1-1) 

K  K  =  *  K  +  l 

S  MA(K)=CllTsT(K) 

D  i  4  3  K =  K  v + 1  , 0 

S  J\  A  (  K)  =S'IL  A  (  1  0  )  !  Sl.'JA(lO)  IS  ')'  ST  AM  r 

r  rsr=M 

CAM,  CHCO’JV 

IF(  TS-JT.Ku.  1  )  ASCH(5,7)=43 
I  F  (  I S  -J  T  .  K  •) .  a  )  A  5  C  H  (  6 , 7  )  =  n 
01  SO  Ks7 , 1 ,-l 
1.  jp  =  k 

I  K  ( >*  C  0  r  S  T  (  I  •  1 1 ) )  .  fJ  K  .  4  d  )  GjTD  si 

c  vj  r  t  ",  ii  f 

KK  =  0 

o  1  57  Ksl  ,  1  ::!■> 

<  *  =  K  K  ♦  1 

5  j‘M(K  JsCRTSTCK  ) 

0  J  53  K=Kk  +  1  ,u 

S  JMR  (  X  )  sS’irJA  (  1  0)  J  SO'IA  C  1  0  )  IS  "J  '  CilOSTA  Of 

» rsr=c 

CAM,  CRC  v  v 

I  Ft  IS-'T  .£  ).  1  )  ASC-U  s,K)=45 
Ir(  r  ASCw(h,P)sO 

v  J  n  0  c  =  7  ,  1  ,  - 1 
T  “OsK 

[v(Hr,.rsr(  i  v  ))  .'It-,  4H)  g j r  )  si 

C  3  -I  T  T  4  I 
KK=  ) 

01  S?  *•  =  l  ,  I'lO 

Kk  sk<* l 

s.jorc  k  )  =  c*its  r  r  k) 

:)  1  si  I*  =■<*  ♦  1  ,  g 

s  r;Cf  K  )  =5  Ki  A  C  1  0)  1  Si'NAdO)  IS  '  J  '  C  1  'j  S  T  A  '■  i 

T  HT,r=  ) 

T  rs  r  =  i,F.cAi, 

CALL  r  icv.i; 

'll  7  0  Ksl  ,  ‘l 


i  A  V  T  k  A  E  0 1 J  fPCt'J  AO-D-001  1-2 


C  1 N’  T  I  J  I  •  R 
KK  =  0 

m  17  K  =  T  N  n , 9 
KK=KK+1 

LAKSCCKK)sCHTST(K) 
no  71  K=KK+1,9 
L4*<SC(KK)  sSlINA  CIO) 

T  rST=I*  A  YsCAL 
CALL  C  H  C  O  N  V 

no  QO  <=1,9 

I  'insK 

IF'C^CMTsr(l.iD)  48)  3010  81 

CONTINUE 
K  <  =  0 

00  82  .KsIMn,1 
K«  =  KK  +  1 

tiA«A5(KK)=CHTSr(K) 
no  m  K  =  K K ♦  t  ,9 
LA<AS(KK)=SUNA(10) 

IFISUNSHC l ) .FO. 'N')  THEM 
DO  600  K2=18,39 
On  600  K  t  s  3  ,  1  7 

ASC9CK1 ,K2)=0 

CONTINUE 

FNDIF 

CALL  TO  SYSTEM  SUBROUTINES  FOR  DATE  AND  TIME 

CALL  DATE(CHDATE) 

CALL  TIME(CHTTME) 

C4TIM(1:5)SCHTIVE(1;5) 


FILL  ITEXT  I T  H  CHARACTERS  POINTED  BY  ASCH 
I ENOs  19 

00  100  Ktsl  , IFNI) 3 

no  200  K 2 s 1 , 1 7 

IFCASCH(K2,K1 ) .EO. 32)  ASCH(K2,K1)=0 

KinFX=(Kl-l ) *1 3  ♦  2 

<4DEX=CK2-1 ) *10 

LCH,0EX  =  ASCH(K2,K1  )-42 

DO  300  K  3 s 1 , 9 

DO  100  K 4s 1,7 

IF(ASCH(K2,K1).K0.0)  THEN 

ITEXT(K4«.K4DEX,K3tK30EX)=0 

ELSE 

ITEXr(K4+K4DFX,K3TK3DFX)=lCH(K4,K3,lCHDEX) 

e:  n  n  I  f 

CONTINUE 
CONTINUE 
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4  a  v  t  r  a  k  o :  i  r  p  c  f  n  h  (i  -  n  -  o  ij  1 4  -  ? 


C')H*0  J/CJ-iV/  IF GT,  ITS T,  RT ST,  SCHIST,  IS rJT 


IFGT  =  1  '1  £  A N  S  PEAL  CONVERT#  I  KGf=U  ^E  AM  S  IMEGflK  COVERT 


I  S  N  T  =  l  -‘EALS  NEGATIVE  VALUE  OE  VARIABLE 

tiMr  =  0  4  £  A  N  S  POSITIVE  valje  of  variable 


ISMT=0 
d  i  30  r  =  i ,  o 

BCHTSTf l )=0 

IF( IFGT.E0.1 )  GOTO  100 

INTEGER  CrlMVEpr  9  niGITS  CAPACITY 

IF(ITST.LT. 0)  ISNTsl 

I  rST=I  A-3SCITST1 

TRlsrlTST 

TR2=[TST 

00  10  1=1,9 

IWlslRl /10 

.‘iU1=lR2-lP.»*l9 

TP?=Io2/10 

nCHCST(10-I)=MU^+48  !  48  AODED  TO  GET  ASCII  Co0£ 
CONTINUE 
GOTj  ?0 


REAL  COM  VERT  K  OP  1 R  TST I <  1  7  DIGIT  CAPACITY 

IFCRTST.T.r.  ol  IS'JTsl 
R  TSTsARSCRTST) 

TRlsO 

0  1  2  0  1  =  1,7 

KTSTSPTSTMO 

IR1=IR1*1(> 

M.IVsRTST-IKJ 

«ChTStCI)  =  'JUm+’4R  !  48  A  u  0  E  0  TO  GET  ASCII  CODF 
Twl =RTST 

CJNTIMIIE 


return 
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ppior  io 

10  F  /)R  'AT  (  '00  R  1  1  «  c  A  N  N  n  f  -it  A  S  S  I 

-  g  j  t  )  to  a  r  m  a  r.  t  u***') 

1 0  to  \ r. 

e  vi  n  i  f 

r« 

c 

r3  0  F  R  F  F  =  '  7  7  5  7  7 ' 0 
R  J FRF. 3  =  0 
TYPE*,  ' 

NLI‘J  =  5U 
NLI  2  = .  4  L.  I  N/  ? 

TYPF*,  '  E  N  T  F  R  TYPF  OF  Fit,*-!  PJLARDID=0;  3 6 tim  =  1  .  ' 
ACCtPT*,  T  M  O  V 
T  F  (I  M0V  .  E'J .  0  )  f-.F.'j 

'I7i)fs  A 
YoF.SFT  =  n 

mv;,FT=n 

IFC  TTXTFLAS.  E3. 0)  NtLE=bl2 
IP(  I  TX  TFLAG.EO.  1  )  N  E  L  E  =  b  R  2 


ELSE 


VDFSFT=101 

lF( ITXTFLAG.EQ.O)  THEN 
HKLFsSl? 

30DE=1 
Hr)FSET  =  96 


£|,SF 


E'lDIF 


N  K  L  F  =  b  8  2 
M  0DE  =  2 
H0FSET=85 


END  IF 


TYPF*, 'ENTER  TOF  ‘Hi  i BF R  OF  DICn'-iED  PASSES' 

ACCEPT*,  I  PASS 

C  5CFNF  IS  FILTERED  Tn  F 1 1,  L.  ANY  MISSED  PIXELS 

r* 

C  -NOTE:  this  DATA  HAS  FILTERED  JiJSl  BEFORE  BEING  WRITTEN  To 
C  FILE  H  (  THF  PICTORE  CREATE  RDUIINF.  H  E  H  v_  E  ICUT() 

C  STILL  CONTAINS  THE  PIXEL'S  SJV  ROT  IRIJFX  HAS  A  SCALED 

C  YALUE  HEADY  E  IP  0  T  SPLAY, 


JF(  ITXTC-LAG.FO.O)  GOTO  110 
T  i  P  E  *  ,  '  C  R  F  A  T  I  V  r,  TEXT  A  R  R  A  X  ' 

CALL  OICCHAW 
D  )  ill  l  YRSsl ,51? 

DO  222  I  X R S  = 1 ,51? 

IR  =  R 

TF(IHUFX(IXRS,IYH3,31.GT.u)  TrtF  < 


*+2? 


■A122  606  REAL  SCAN  EVOLUTIONS)  UNIVERSITV  OF  CENTRAL  FLORIDA 

ORLANDO  DEPT  OF  ELECTRICAL  ENGINEERING  B  M  PATZ  ET  AL. 
FEB  82  NAVTRAEOUIPC-80-D-D014-2  NS1229-80-D-0014 

F/G  9/2 


UNCLASSIFIED 


NL 


'■I  AVTRAFO'J  IPCKi-  H 0 - 0- 0 J 1 4- 2 


IE(T3nKx(IXK5,JYrtS,3).;lt..i*IBJFX(i:XAS,lYBS,l'))  THrN 
rf?  =  TBijFXf  j xas,  ivds,  3 )  i  sky 


* 


222 

111 


114 
1 1  2 


C 

c 


c 


1  bSS 
1444 


c  re  ■>= 


F-LSK  1 F (  THUFXC  tXBS,IYl4S,2).LT.TBIJFX(lXBS,l/BS,l)/7) 
THE  1 

IR=32-(IrtUFX(IXRi>f  IYBS,3)/fi)  !  LAKE 

END  IF 

K  4  D I F 

I SH I  FT* 2 5 6* ( IF/12B) 

N«UTRIi(  rXBS,lYfiS)=IR-JS4Tf  T 
C3MTIMUF 
C  J-MTI  MUR 

T  F  (  TTYTCLAO. EO.fi)  GOTO  1  1 1 
OH  114  KSRsl.bl? 
on  114  K  S  3=1 , 1 7  0 

MK!ITW?J(KS«  +  M  2 , 51  4-KSR1SI  TEXT ( * SM , KSK ) 
coot  imije 

0  )  333  KK1  =  1  , I P  A  S  S 

TYPF*,'  3 fc N iJ T M G  "i K iJ T E  A L  JA1A  TO  THE  OICOMED' 

VinSET  CALL  047C*0  TO: 

1)  CLEAR  THE  COMMAMO  BUFFER , 

2)  SET  THF.  l-ATA  SIZE  TO  8  BITS, 

3)  SET  THE  RESOLUTION, 

4)  SET  T  4  F  POLARITY  TO  .mDRVAL,  A"L) 

*>)  SET  LIjEAR  steps  IN  jknstty. 

CALL,  V10SET 

filter  selects  THE  filter  TO  BE  > J 5 F 0  VIA  filsel 
CALL  FILTER 

THE  HORIZONTAL  A'JO  VERTJC«L  OFFSETS  A R F  GiVFN  TD 
The  oicr-'f-i). 

CALL  047C  -il'f  HPOS  ) 

Call  o4  7pos(H  ofskt) 

CAl-L  04  7CmD(  VP’IS  ) 

C  3LL  017POS( VOFSKT) 

0)  1 4  14  T YHS  =  S1 ; ,  1  , -1 

CALf,  VOI'JIT 

r.  7  n  s  s = o 

01  ISSS  T  X  H  S  s  1  ,‘>12  +  JTXTTI.AG*1  /  S 
iY^SSsIYBSSf 1 

B  JF1  (  IX  HS  )  s»  E'li'FL  (  t  X  HS  ,  1  Y OS  ) 

C  iv  tt  .vliv 

CAf  T,  VI  i  >  ’  V I  T 

C  )'!  V  I  Hl'E 

Call  op  ;hk 
n’colm )  =  3 

on  b  ■,  4  K  V  S  =  1  ,  3 

T  YPE*  ,  '  >E  <I'T  u:  (.  K  r.  F  l(  1  )  ,  Rr.O  (  l  )  ,  a  I,  JE(  3  )  =  '  ,  K  V  S 
CALL  v  l  - 1>  >  T 
;  ,k *-?  :  ’<i  I'i's  j 

I  Ff  /  V  S.r  1  )  1  3K'‘ 

i"! .  (  ''Is? 


i  ;  >. 


i 4  VTR  A  Er.'U I PCEfl  9  0-D-O014-2 


FljSF 

JCOl,(2)=2*K  VS-3 

E.'iOI  1- 

CALL  FILTER 

CAM.  M7C-4D(HPOS) 

CALL  n47P0S(HCFSEr) 

CALL  047CMO( VpnS) 

Call  im7pos(  vofsft) 

07  444  IYKS=512, 1,-1 

c 

Vjfiir  CHECKS  the  status  of  the  0IC7MED 
CALL  VOI'ilT 

BUFFERS. 

n 

L 

I YHSS=0 

On  555  IX H S si ,512 

c 

IYBSSsIYHSS+1 

[R  =  If3IIFXClXBS,lYBS,KVS) 

IFCKVS.E7.3)  THEN 

lF(lw..;r,4*IP(JFX(  IXHS,  IYHS,  1  )  )  IR=415- 
IF(TM.GT.255)  IRs255 

ENDIF 

IP/4 

C  THIS 

HAKES  THE  SKY  A  CONSTANT  BLUE,  BUT  WHITE 

ISHIFI=25b*(IR/128) 

BUF1 (IXBS)=1R-ISHIFT 

fades  . 

555 

Continue 
call  VIOOUT 

444 

continue 
call  opchk 

666 

CONTINUE 

type*, 'pass', kki, 'completed' 

C 

SET  THF  FILTER  BACK  TO  NEUTRAL. 

NCOL(1)=0 

NCOL(2)aO 

333 

CONTINUE 

IF  (IMOV.EO.l)  THEN 

TYPE*,  'DO  YOU  *EEO  A  FlLW  ADVANCE?  YES*1 ' 
ACCEPT*,  T  AO V 

IF  (IADV.E7.1)  CALL  FlLAOtf 

eidif 

TYPE*,  K n l) * 

CALL  OPCHK 
40  RETURN 

E  VI) 
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APPENDIX  OF 
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C  FLGPTC'M  >I.F()R 

(■> 

C  UTS  PPiirrf.F.  ALLO.vS  FOP  THE  GENERATION  OF  A  'dlRD'S-EyE 

C  VIE*'  OF  THE  OaTA  BASE.  IT  A U TOM A T I C ALL {  ALLOWS  ThE 

C  PICTURE  rn  BE  SFJ  r  TO  IHc,  OICOMFD,  THEREFORE  Save  the 

C  aRITE  Af!r>  READ  TIMES  I  U  C  *  *  R  R  F  0  IN  THE  PAST. 

m 

V 

C 

C  DECLARATIONS  FOR  PICTURE  GENERA  £  I  ON 

f+ 

w 

C 

r< 

t. 

c 

CHARACTER*!  XPOS(O) , YPOSC9) ,SUNA( 9) ,SJNHC  9) , 

*  SUMC(O) .NCRCHCR) , rtRSZ(P) ,TRRTP(9) , TEuhor^R) , rERV?R(9) , 

*  K0C3Z(R)  ,PUCIP(9)  ,R0CH3R(9)  ,WOC»ER(R)  ,GRASZO)  ,GPATp(9)  , 

*  GHAHOR19)  ,GRAVER(9)  ,LAKSC(«)  ,LAAASC5)  ,FLDSL(«)  ,Fl»0SZ(9)  » 

*  S  .INSHf  3)  ,  S"'>FT(B)  ,S'J0SD(7)  ,CHfST(9)  ,  TITLE  (15) 

C  1 A  R  A  C  T  E  R  CKO  A  Tf  *  9  ,  CH  T I M  E*  3  ,  CUT  I M  *  5 


D|  *EA  SI  O')  lilUTt  (2Sf>) 

1  JTEGEW  +  2  IXKS,TYHS,NCH,TCl)bOR,lFIR 
INTEGER*?  1BUFXCS1 7, SI  2, 3) , 1H V ( 3) 

CJ’MOn  /  T'lTG/lXP,  I  Y  P ,  IZP 
C  1«‘0\./SU  !/A,n,C,  S^ARG,  SKYSCL,nl  VSKY 

C  3  v  m  n  v  /  i>  A  T  A  l«  A  S  F  /  N 1 0  2  4  ,  T  0  F  t  1C  3  ,  ?)  ,  T "FEZ (3, 2)  , SC A IF (3, 2)  , 

*  I  -?3FL!>(  3  )  ,.SK')VA,  COV^ARG,  f  kOV?,KSI  ,  KS14,KSIS,KSI7  ,  KSl*  , 

*  TOE  ..SITY(  3,2)  ,SB40VA  ,SH73V  A  ,0*01  (  3,7)  #  wi  L,l.SCaL 

C.V'TIm/C  If. Op/  T  COLOR  ,  TFIR,'»Ck,1PP(2)  ,IRV,TX,JY 

r  )•* •.*. o  ••  /  hcca'vikufx 
C  j  ITSE/TOAT 

BYTE  1  c  j  T(S1  2,SJ  7)  ,  TOA  T(Si2,512, 3)  ,  ITXTFl.AG,  ASCoC  1  7 , 39) 
C  )0  *0  </CHR2/  i.SC-1 , 1  TXTFI.A  G 


42h 


noonnnoonnnn  noon 


.'IAVtRAEOUIPCEN  80-0-0014-2 


I4TEGFR*2  JPAT1  (512,266)  ,J0AT2  (t>l  2, 256)  ,JDAT3(  512,256) 
EQUJ  VAf.ENCE  (I»Ii>P(l)).(JfIPP(2)) 

EQUIVALENCE  (»lDATl,IDAT),(JDAr2,IDAT(l,l,2)), 

♦  ( JOAT3,IOAT(l,t,3)) 


EQUIVALENCE  (ASCH(7,4),XPUS(1)), 

*  (ASCH (7, 5) #YPnS(l) ) , (ASCH(8,6),SUNA(1)) , 

*  (ASCH(P,7)  ,SUNB(1  ))  ,  (ASCH (8, 8)  ,SUNC(1))  , 

*  (ASCH(H,<*),*C»CH(l)),(ASCri(9,12),rERSZ(l)), 

*  ( ASCH (9, 13) ,TERTP(1 ) ) , ( ASCH ( 9 , 1 4 ) , TERHOR ( 1 ) )  , 

*  (ASCH (9, 15) ,TERVER(1) ) , (ASCrt(9, 18) ,R0CSZ(1)) , 

*  (ASCH (9, 19) ,ROCTP(1)),(ASCH(9,20),ROCHOR(1)), 

*  (ASCH (9,21 ),RnCVER(l)),(ASCH(9,24),GRASZ(t)), 

*  (ASCH (9, 25) ,GPATP(1)) , (ASCH (9, 26) ,GRAHOR(l) ) , 

*  ( ASCH (9,27) , GRAVER (1) ) , ( ASCH ( 1 0 , 30 ) , L AKSC ( 1 ) ) , 

*  (ASCH(1  J,  3  l),IiAKAS(l)),(  ASCH  (10,34  ),FLDSL(1)), 

*  (ASCH(9,35),Ft,OSZ(l)),(ASCH(14,37),SUNSH(l)), 

*  (ASCH( 19,38 ), SUNFT(l)) . ( ASCH( 1 1 , 39) ,SUNSD( 1 ) ) , 

*  (ASCH (2,1) ,TITLE(1)) , (ASCH (2, 2) ,CHDATE) , 

*  (ASCH(12,2) ,CHTIM) 


HAKE  4  PATCHES 

PROGRAM  BY!  OR  B.  W.  PATZ  AND  G*  BECKER 
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JIIJS99917 
0)  J  668  1  =  1,3 
DO  1668  J  =  1 , 2 
XaR4N(  JII.l) 

IJFF1 (I , J)SJIIJ 
X=RAN( JIIJ) 

IOFF2(I, J)=JIIJ 
1668  CONTINUE 

TYPE*, 'READING  NOISE' 

READ (40, 1000)  ( (JOATK l, J) ,1*1,512), J=l, 256) 
READ(41 ,1000)  ((JDAr2(I,J),I=l,512),J=l,256) 
RE An (42, 1000)  ( ( JOAT3(I » J) ,1=1 ,512) ,J=1,256) 
TYPF«,'D0NE  READING  NOISE' 


JAVTWAEO'JTPCEN  H  0-0-00  14- 2 


----------------1  i'ipiJT'  TEXT  PAStAMtTERS-  -  -  -  ---------------- 

T/PE:*, '  V  )i!I.r>  Y 01'  LIKE  THE  IMAGE  PARAMETER  TEXT 
*  GE'-iERATS'O?' 

r  ype*  ,  '  yf:s=i  ,  on=r>' 

ACCEPT*  ,  ITXTFLAG 
I F (  l T X T p L A (' .  f  o .  0 )  GOTO  20 

TYPE*,  'ANSWER  the  F;iU..0a  J.hG  QUESTIONS  *rTH  a  CH  AP  AC  rF<?  ' 
TYPE*,'  STRING  OF  LENGTH  SPECIFIED  *Y  { LF  i\i£5lH  )  * 

TYPF*,' 

TYPE* , * E^TEP  TITLE  <  t  b > ' 

ACCEPT  S,t1tLF 

type*, 'ENTER  TERRAIN  POISE  PARAMETERS' 

TYPE*,'  SIZES  <9>' 

ACCEPT  2,  TpRSZ 
TYPE*,'  TYPES  I  Q  >  ' 

ACCEPT  2,  T E R T P 

TYPE*,'  HORIZONTAL  SCALES  <  9  >  ' 

ACCEPT  2,  TERROR 

TYPE*,'  VERTICAL  SCALES  <9>' 

ACCEPT  2,  TFRVER 

T  YPE* ,  'E'lTFR  TREES/ROCKS  nOISE  PARAMETERS' 

TYPE*,'  SIZES  <9>' 

ACCEPT  2,  ROCSZ 

type*,'  types  <9>' 

ACCEPT  >,  ROC  TP 

TYPE*,'  HORIZONTAL  SCALES  <*>' 

ACCEPT  2,  ANCHOR 

TYPE*,'  VERTICAL  SCALES  <9>' 

ACCEPT  2,  ROCVER 

TYPE*  , 'E'v  TEP  GRASS/LFA VES  NJTSK  PARAMETERS' 

TYPE*,'  SIZES  1 9  }  ' 

ACCEPT  l,  CRASZ 
TYPE*,'  TYPES  <4>' 

ACCEPT  2,  GP  ATP 

TYPE*,'  HORIZONTAL  SCALES  <  9  >  ' 

ACCEPT  2,  Gp AMOR 
T  Y p E * , '  VERTICAL  SCALES  <  9 > ' 

ACCEPT  2,  GRAVER 
T  YPE*  ,  'E  j  TER  E I  EL')  SLOPE  <«>' 

ACCEPT  1,  Er.OSL 

TYPE*  ,  'ENTER  FIELDS  ST7.E  t9>' 

ACCEPT  2,  Kl-r,SZ 

TYPE*, 'IS  S  t  >  M  S  M  A  0  0  s  PRESo>'!T  I  M  UK  DATA  L<,ASE?  YF'S/nO* 

ACCEPT  1,  Sl.M.'SH 

TFISIOJS  UI  ).E  i,''J')  GOTO  20 

TYPE*,  '  E  V  T  K  R  S'l'!  SHADOW  FIRST  FACTORS  {  M  }  ' 

ACCEPT  I,  SH'ipr 

TYPE* , 'EN TER  SO*  SHAOOw  SECOnO  FACTORS  <7F' 

a c c f p r  s,  siinso 
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forma  rc  ui ) 

FJRMAT(9A1  ) 
FORMAKRAl) 
FORM AT ( 541 ) 
FORMAT(7Al) 
FORMATt 1 5  A  1  ) 


INPUT  SCENE  PARAMETERS 


TYPE*, 'TYPE  XOFF-SET  TO  SCENE  CENTER' 

ACCEPT*, IX 

TYPE*, 'TYPE  Y-OFFSET  TO  SCENE  CENTER' 

ACCEPT*, JY 

TYPE*, 'TYPE  SAMPLE  POINT  SPACING, AN  INTEGER' 

ACCEPT* , NCR 

Type*,'Tvd«»  the  Dolar  sun  angle  from  the  Z  axis 
(DEGREES)' 

ACCEPT*, TZOEG 

TZRADsTZDEG/57.3 

SINZ=SIN(TZRAH) 

TYPE* , ' fvpe  the  cylindrical  sun  anqie  from  the  X  axis 
toward  the  Y  axis  (DEGREES)' 

ACCEPT*,  TXDEG 


TXRAPsTXDEG/57. 3 
C=COS(TZRAD) 

A=SINZ*COS(TXPAD) 

BsSlNZ*SlN(TXRAD) 

W1=W1 *3 
W  aw  *  ) 

SMARGsSQRr(A*A+R*B) 

SBDVAsB/A 
COVMARGsC/SMARG 
IOOV2sIDENSlTY(2,2)/2 
KST*SCALE(2,2) *IOENSITY(2,2) 

KSI4s3*IOENSlTY(2,2) 

KSI5*4*I0ENSITY(2,2) 

KSI7a5*lDENSlTY(2,2) 

KSI8=6*tOENSlTY(2,2) 

IBRFL0( 1 )s20000000 

I9PFLO(2)=60*SCALE(2,2)  !  THIS  SETS  REACH  BOUNDRY  AT 

ABOUT  90*2.53210  UNITS  3«  2l 
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116 


117 


1  S3 
100 
1000 


17  34 


3  7  1 
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I  1RF».I7(  3)=lPRFLO(2)-150 

D)  11  1=1,3 
on  u  j=t,2 
xsioF'isi  r v c  i  ,.n 

DNOUI,  J)sl./X 
S’340V4  =  S|3riVA*3 
S370V4=S60VA*6 

T  If  Pi*  *,  'X,  Y=',  IX,  JY,  '  SCALc.=  ' , VCR , '  M  r j  I  s  t:  ?  = " ,  incur 
K 1 1 s-256 
K?2=-2S6 
0  )  100  Jtst ,51 2 

J=(J1  +  K  2 2  )  * ^CR  +J  it 
on  100  11=1,512 

I=( II +K1 1 )*Nr«+lX 
CALL  ZROAT5(*116) 

l  F  (IFIR.EQ.2)  1‘HEN 
CALL  ZRDAI'SIR(*1 17) 

FL.SE  IF  (lFi«.EJ.5)  THEN 

CALl,  ZR0AT55I«(*ll7) 

ELSE 

TYPE  *, 'IFIR=' , IFIR 

EOOIF 

CONTINUE 

DO  153  K JX= 1 , 3 

MUFXf  II  ,  J1  ,KJX)  =  IRVCKJX) 

CONTINUE 

CMTUnJE 

F  )R  AA  T  (  66  A2  ) 

TYPE* , #3T)P=1  ,CO  JTIMUFrO' 

ACCEPT*, 'll 
IFC-1I.F1.I  )  STOP 

type*,  *shall  *f  *akk  a  pictoke?  (yes=d' 

ACCEPT  *,  1YE5 
IF  (IYFS.nE.I)  0)  r ;)  373 
TYPE*,  # 

type*,  'OATA  FILL  he  fVjrPoT  TO  1  HE  DI  CO.v.EO ' 

CALL  HP.)  ICCAM 

type*,''))  Yno  VAN  r  TO  OH  AN'JTrtEk  P I CT  0  P  E  ?  (.  YbS=  l  )  ' 
ACCEPT*,  I  A* 

IF  (IAP.EO.l)  Op  TO  20 
STOP 
STOP 
E  VD 
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APPENDIX  r»G 
EGLDA  T A .  FOR 


C 

C  EGLOATA.FrjR 

c 

c 

SUBROUTINE  ZP.il  AT  A  C  *  ) 

INCLUDE  '  4PCr>M.P0R# 

INCLUDE  'BPMOI SE.EOR' 

C  JMMDM/SU\'/A,n,C,SMARG,SKiSCL,nlVSKy 

C0MM0N/oATAPASE/;U024,nFf  H3,2)#nFF2(3,2),SCALE(3,2), 

*  IdPFI.DO)  ,SP0VA,C3VMARG,I00V?,K5l,KSI4f  KSl5,KSI7f  KSlfl. 

*  I DENSITY C 3,2) , SB40V A , SB70N A , DN01 C  3 , 2 ) , w 1 , W , 1 P I L , LSC AL 

*  j#avscal 

INTSGEP*2  tsat,  IDL),  IFIR 
I N  T  E  G  E  R  *  2  indfxx, inoexy , 

*  TSA«,TM<,  tNY,KM,<L?,Kt,3^Hl,KH2,KH3f  IBL 
D  I -1EN S 13 N  I Q X ( 3 , 2 ) , I o Y ( 3 , 2 ) , I / P£ Y ( 3 , 2 ) , T  XDEX  C  3 , 2 ) 
DIMENSION  GGET ( 4 )  ,PARTTDA(2) 

DIMENSION'  TDDX( 3,2) ,IOOY 13,2) ,PARXC 3,2) ,PARY(. 3,2) 
n(M»TMSI-)4  IS  A  VI  (3,2)  ,1SAV2(3,2)  ,  ISAV3(3,2)  ,ISAV4C  3,2) 
DIMENSION  TVSAV(  3,2,4) 

EQUIVALENCE  CIVSAV,ISAV1)  ,  (IVSAVd  ,J  ,?)  ,ISAV2)  , 

*  ( IVSAVC 1 , 1 ,3) ,ISAY3) , CIVSAVC1 , 1,4) ,ISAV4) 

EQUIVALENCE  (GGET,X1X)  ,  (GGEK2)  ,yi  Y)  ,  (GGET(3)  ,X2X)  , 

*  (GGET(4)  ,Y2Y),(PARTIi)A,PAKriDATX),(PARTIDA(2),PARrlDATY) 
com'<om  /grnd/  iHX,i'jy 

BUILDINGS  T T H  ROADS  AMO  7  wniSt  TYPES  AND  MULTIPLE  RETJRj 

ip  :=•  n a i) i r  centric  Coordinates 

IPP  ja  N1RL0  CENTRIC  COORDINATES 
IPP  s  IP  +  if 
IF  1PP<0  jIPMPsiPP 
ELSE  XDf1palpp+1 

calling  Routine j  specified  oicjned  control  roujtnE 

ZRDAT5.F0R 
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^AVTHAtOWIPCKN  80-D-0014-2 

‘  1 

C  CREATED  By  PHILIP  GATT  AND  OR.  6.  M.  PATZ 
C  10/20/80 

C  SIN(X)*SIN(G(Y) )  +  NOISE  AND  LAKES 

c  sm  is  small  for  y  <  iooo 

ENTRY  ZR0AT5(*) 

DATA  C/. 852870/, 8/-. 17 36 48/, A/. 492404/ 

DATA  SCALE/. 03,. 5, 8.,. 12, 2. 5, 31/ 

DATA  Wl/2.849003E-6/,W/9.950406E-6/  i *  1  =  1 / 1 1 7000 

DATA  IDENSlTY/1 ,7,733,3, 31 ,2483/ 

DATA  LSCAL/2/  ,  IwAVSCAL/47/ 

idensity(itype,ivartnj  is  the  world  points  which  map  to  one 

NOISE  POINT 

sun  VECTOR  FROM  ground  POINT  TO  sun  (X,A|Y,d) 

FOR  STARTING  XE  LOCATION  USE  2000 
YE  SHOULD  BE  TESTED  AT  -10350 
As. 866 
RS-.25 
Ca. 4330125 

SEE  ZRDATA4  FOR  (ABC)  DATA  STATEMENT 

IDENSIT Y (3,2)  AnD  SCALE(3,2)  ARE  LOCAL  VARIABLES  TO  ZRDATa. 

IDENSIT Y (3,2)  DEFINES  THE  SPREAD  TO  BE  WITH  EACH  NOISE  DATA  %■' 

FILE. 

JDAT1  IS  SET  UP  TO  HAVE  AND  AVERAGE  PERIOD  OF  ABOUT  5  UNITS. 

JDATl!  POLAR  FILTER  3  UNIFORM 
J0AT2:  POLAR  FILTER  11  CUSP  Fsl 
JDAT3 :  POLAR  FILTER  25  PARABOLA  F=.5 
PERIOD  s  1.80FILTER 

JDAT2  HAS  THE  SAME  PERIOD  BUT  HAS  BEEN  ANDED  TO  GIVE  REGIONS 
WHERE  NJ  VARIATION  OCCURS  BY  THE  ROUTINE  CALLED  PATCHES, THE 
NO  VARIATION  REGION  HAS  THE  JDAT2  VALUE  SET  TO  ZERO. 

JDAT2  RANGES 

FROM  -128  TO  127  AS  DO  ALL  THE  BYTE  JDAT*  FILES. 

JDAT3  IS  A  TEXTURE  NOISE  PILE  HAVING  A  NOISE  PERIOD  BETWEEN 
3  AND  4. 

IF  WE  SCALE  1000  llNTTS  TO  BE  100  FEET  AND  WE  ASSUME  THE 
FOLLOWING 

variations: 

TERRAIN:  3000+  UNITS  VARIATION  S  300  FT.  FOR  ELEVATION 

TO  REPRESENT  RUTS  AnD 
GULLIES  AND  NORMAL 
VARIATIONS 

TREES:  256  UNITS  VARIATIONS  =  25.6  FT.  FOR  CLOSE  PACKED 

TREES  *  60  FT  INSIDE 
FOREST. 

BRANCHES,  FTC.:  30  UNITS  =  3  FT.  BRANCH  VARIATIONS. 

GROUND:  5  UNITS  VARIATION  s  6  IN.  FOR  FIELDS. 
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c 

C  THEREFORE,  THE  ELEVATION  SCALES  BECOME: 

C  SCA>,E(t)  =  0,03  ;  ,03*256  =  “7.5>6" 

C  S  C  A  L  K  (  2 )  =  2.5  ;  2 . 5*25bs"fe30  **  f>3' 

C  SCALE  (  3 )  =  50  ;  59*2  5  Ss"  1 5000  **  lt>00' 

r* 

w 

C  IF  GROUND  SHELLS  ARE  ABOUT  5  MILES  APART  THEN  FOR  THE  S I N  E 
C  W  A  VE : 

C  W  =  P] /I  17 , 000. 

C  IE  WE  LET  THE  AmPlItUDE  OF  POLLING  HILLS  HE  12,000  UMTS,  MTH 
C  A  5,500  UNIT  OFFSET,  THEM  THE  HILL  PEAKS  ARE  ABOUT  1,750  FT. 

C  IF  TERRAIN  VARIES  FROM  HIGH  to  LOw  IN  ABOUT  ONE-FIFTH  TO 
C  ONE-TWENTIETH  OF  THE  PEAK  ELEVATION,  THEN; 

C  I0ENSITY(3)  =  (3000*lu)/i  =  10,000  SAY  9973  (PRTMe). 

C  IF  TREES  VAR*  FROM  HIGH  TO  LOW  In  ABOUT  30  FT.  OR  300  UnItS. 

C  THEN: 

C  iDENSITYm  S  300/  3  =  1  U0  SAY  111  (PRIME) 

C  IF  THE  BRANCH  DIMENSIONS  ARE  ABOUT  JNE-HALF  TO  oNE-FIFTH  TH^IR 
C  LENGTH,  THEN 

C  IDENSITY(I)  =  (30/3)/3  =  3 

C  IDENSITYU)  FOR  GPASS  IS  1  AND  THEREFORE  NO  IDEhlSIT  Y  (  4  )  IS 
C  NEEDED. 

C  FINALLY,  TO  GIVE  EFFECTS  OF  LEAVES,  ETC.  A  NOISE  TEXTURE  AT 
C  FREQUENCY  =  3  UMTS  IS  ADDED  TO  THE  FIELDS  AND  TREES, 

c  compute  the  HEIGHT 

r 

w 

C------- - - - - - CALCULATE  TRIG  HEIGHT - - 

IRP2=IPP(2) 

XNilMrl  +  (Wi*lPR2)**2 

DEN 0M  =  1  ./(  1  .+A!3S(M*IPP2)  ) 

W IPPlsR* IPP( i ) 

SWIPPsl 3S00*SIN(H!PP1) 

Hs(XNUM*OENOH  -,P5)*?*3. 14159*. b 
SNHH  =  .STN  (  H) 

XZ=SWIPP*SNHH+5500 


FlELDsl . 

IFIELO=0 

IRENFsO 

DO  1979  iBEMlsl , 3 
DO  1979  IBEN2=1,2 

TE( IDOXC I BENI , IBEN2) . GT . I  DENS  I T Y ( I BEN  1 , I  BEN 2 ) )  TBeNitsI 
lE(-lonx(IRENi , IBEN2) ,GI. IDENSITYC IBENl , IBEN2) ) IHENpsI 
TFCTD0Y(  IHEN1  ,IHE.V2)  .GT.  IOENSlTYCIBENl  ,  I  BEN?)  )  IBfNpsI 
IF(  — TODY  (I  BENI  ,  T.  HEN  2  )  .  S  T  .  1  DEN  S I  TY  (  T  BE  v  1  , 1  oEN  2  )  )  IBrNrsl 
1978  C  ) N T I  N U E 

IF( IBSNF.EO. 1 )  THEN 
TYPE* , 'ENTRY  ' 

type*  ,  'idox  ,  r  mays*,  ion*,  i  urn  , '  idensi ty=',  I  density 
TYPE* , TRENKjIPPs',  IPP,  '  IlX,TTYr',IIX,ilY 
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ENDIF 

DO  1111  I TYPE= 3  ,  1  ,  - 1 
I0n<(tTYPF,l)=0 

iooxc  i  type,2)*o 

ID0Y(ITYPE,1)=0 
IOOYC ITYPK,?)=0 
m  1221  1 V AR  fN*2 , 1 , - 1 

INTl=t022*lnENSITY(TTyPE, IVARTN)  1  MODULO  VALUE  FOR 

NOISE  ARRAY 

I NT 2=5 1 2* r DENSITY! I  TV  PE, IVARTN) 

........... - CALCULATE  NOISE  INDEX  VARIABLE  —  —  —  —  — 

HX  =  lABS(MOO(  (IPPC1  J-IOFF1  (ITYPE,  IVARTN)  )  ,InTD  ) 
IlY=IABS(MOD(  (IPP  (2  )-IOFF2(ITYPE,  IVARTN)  )  ,InTD) 
IFClPP(l). EG. -163750)  THFN 
TYPE*, ' I IX. II Y*', I IX, I IY 
TYPE*, 'BEGIN:  IDOX*' , I  DUX 
TYPE*, 'BEGIN:  IDDY*',IDDY 
ENDIF 

IFCIIX  .LT.  TNT2)  THEN  I  1 

ICiXCITYPE,  IVARTN)*  1 ♦! I X/IDENSITY(ITYPE, IVArTn) 
lXDEX(ITYPE,IVARTN)=I3XCirYPE,IVARTu)+l 
IF(I<JX(ITYPE,IVARTN).E0.512)  IXDEX ( IT YPE , I V*RtN ) 
=  511 

ELSE  l  l 

I3X(ITYPE, IVARTN)*  1 023-1 IX/I DENSITY ( I TKPE, 
IVARTN) 

IXDEX(ITYPE, IVARTN )=I OX (I  TYPE, IVARTN )-l 
ENDIF  1  1 

IDDXCITYPE, IVARTN)=HOO(IIX,IDENSITY(ITYPE, 
IVARTN) ) 

lDOYCTTYPE,IVARTN)=MOD(IIY,IDENSirY CITYPE, 
IVARTN) ) 

IF(IPP( l) , EG, -163750)  THEN 
TYPE* , 'SOURCE: IODY*', IDDY 

TYPE*, 'SOURCE:  I T YPE , I V AR IN* ' , I  TYPE , I V ArTN 
TYPE*, 'SOURCE:  IIX,IIY=',1IX,IIY 
TYPE*, 'SOURCE:  I DENSITY*' , IDENSITY 
E^IDIF 

I F (  IIY  .LT.  I N  T  2 )  THEN  !  1 

IQY(  XTYPE,  IVARTN)*  1  ♦  1 1 Y  /  IDF.NSI  TY  (  IT  YPE ,  I  VArTn) 
IYDEY(ITYPE,IVARTN)=I0YCITYPE,IVARTN)t1 
IF(IQY( IT YPE, IVARTN) .EQ.512)  IYDEYC IT YPE, IVaRtN) 
=  511 

ELSE  i  1 

IQYC ITYPE, IVARTN)*  1023  -  I IY/IDENSITYC 1TYPE» 
IVARTN) 

IYDEY(ITYPE,IVARTN)=I3YCITYPE,IVARTN)-1 

!  1 


ENDIF 


o  n  n  non n 
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tfudpxc  itype,  ivartn)  .lt.O)  then 

TYPE*, 'TODX^Os' , IODX,  '  AFTER  I  X DEX , I  Y DEY ' 
TYPE*,'TD"X<0,IPPs',IPP,#  IIA,IIY=r,IIX,IIY 
TYPE*,  'I NT  1  ,  l!\iT2  =  ',  If!Tl  ,  INT2 

F  M  0 1 F 

IFC  IDnY(  I  TYPE,  tVA«Ti\i)  .LT.O)  T HE'* 

TYPF*, ' iDnYcOr' , 100Y ,  '  AFTER  IXDFX,  IYDEY' 

TYPE*,  '  ILDY<0,  IPPs',  IPP,  '  1XX,IIY=',IIX,IIY 
TYPE*, ' JMTJ , IM T2s', IMT1 ,IWT2 
endtf 

ILPsITY^E 

IF( IPP( l ) .FO.-t h 3750)  THEM 
TYP£*,'ir)nY  AT  PX,Y=',  IDDY 

TYPE*, 'ATI1X,  Y:  ITYPE, IVARTNs', HYPE, IVARTN 
EM  HI  F 

IF  (I  TYPE. KQ. 2)  THEM  *  2 
I MTX1 =  INTl *2S 
T  vTX2sI  JT2*25 
IVTx3=25*lDEJSITY(2,2) 

I  IXX  =  IA3S(M0[)C  (IPP(  1  >-567  397)  ,  IMTX1  )  ) 

IIYYrlA^SCMOnc ( T PP ( 2 ) -  3 1 7 9 7 1 4 i > , IMTX1  ) ) 

IF  CIIXX.LT. TMTX2)  THEM  •  6 
I'JXX  =  1  +  IIXX/IMX3 

ELSE  1  6 

tDXX=l  <*23-IIXX/IMrX3 
E'-IDIE  1  6 

IF  (I  IYY.LT.  lfTX2)  THEM  J  7 
ll)Y  Y  =  1  +IIYY/IMTX3 

ELSE  «  7 

DYY  =  1  923-IIYY/IMIX3 
EMDIF  I  7 

IJERP=inAr(I)XX,I7YY,2) 

JF( ( I  JFR0.LT.77) .OR. (IABS(ISAV2( 3, 2) ) .GT. 31 ) .OR. 

♦  (IAWS(ISAV3(3,2)).GT.3t))  THEM  i  «  CALCULATE  1RLES 

( 40  0  =  I  DENSITY! 3) /SCALE C  3) 

I  FI ELO=  > 

FIELDst . 

GOTO  161 

ELSE  I  A  FIELD,  NOT  TWEES 

IF  HOT  SATISFIED  THEN  W E  CALCULATE  A  FIELD,  SO  XZ  GETS  \I0 
CHANGE. 

IF! EL D=1 
FtFLDsD.  33 
I /ARSTPstVARTN 
GOTO  1222 

EJDIF  JR  FIE|,r/FiJRKFSr  =  rPtES 
ELSE  !  2  TEST  FOR  FIELDS 

161  ISAV1  (ITYPE, I v APT j)  =  inAT( 1DX ( ITYPE, IVAR  TN) , IOYCITYPE, 

*  I/ARTn) , ITYPE) 

ISAV2C  TTYPE, IVAR  T'OrTPATClXUFXC 1 f YPE, I VARTN) , IDY ( TTyPp, 
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*  I  (/ART  4)  ,  l TYPE) -ISA VI  (  ITYPE,IVARIN) 

ISAV3(ITYPE,  IVARTN)sIDAT(1;)XC1TYPE,  IVARTM)  ,IYDEY  CITyP£» 

*  IVARTN),lTYPE)"TS4Vl(JTYP£,IVARrM) 

ISA  V4(  ITYpE,  lVART  I)sIDAT(  iXOEX(ITYPE,TVARTN)  .IYDEYCHyPE 

*  , IVARTN) , ITYPE)-ISAV3(iryPE,IVARTM)-ISAV2(irYPE,IVARTv)- 

*  ISAV1 (ITYPE, IVARTM) 

DNOl  ( ITYPE, IV ARTS) si. /I  DENSITY ( 1 T YPE , I V AR IN ) 

DMOl  IS  SET  UP  IN  BPNEWIC  DURING  INITIALIZATION 

ner.ZsiSAYl  (ITYPE, IVARTN)+((IDDX(irYPE,IVARTN)*ISAV2 

*  CITYPE,IVARTN)+I0DY(ITYPE,IVARTN)*ISAY3(lTyPE,IVARTM)) 

*  +ON01  (ITYPE,  I  VAR  TN)*IDDX(  ITYPE,  IV  ARTN)*IDDY  CITY  PE, 

*  T  YARTN  )  *ISAV4(  ITYPE,  IVARTrO)*DNJl(  ITYPE,  IVARTN) 

DELZ=DFLZ*SCALE( ITYPE, I VARTN) 

IE( IDOX (ITYPE, IVARTM) .LT.O)  THEN 
TYPE*,'lDOX<Os#,IDl>X,'  AT  DELZ' 

TYPE*, 'IDDX<0, IPP=',IPP, '  IIX,IIY=',IIX,IIY 
TYPE*, # INTI , INT2s',INTl , INT2 

ENDIF 

IF(IDDY(ITYPE, IVARTN) .LT.O)  THEN 
TYPE*,'lOOf<Os',IDDY  ,'  AT  DELZ' 

TYPE*, 'lDOY<0,IPPs',IPP,  '  IIA,IIY=',IIX,IIY 
TYPE*,'TNTl,INr2=',INri,lNT2 

EnDTF 


EOSE  OF  FORREST  BASED  ON  IJERD 
IF( ITYPE. FO. 2)  THEN 
IFCIJERD.Lr.77)  THEN 

IF(lA9S(ISAV2(3,2)).LE.il)  IHEN 

IF(IAHS(ISAV3(3,2) ) .LE.il)  THEN 
ILOW  s-IDENSITY( 2,2) 

IHIGH  s-ILOW 
UNfRT  s  IHIGH+IHIGH 
DO  J  *557  IKRD  =  ILOW,  IHIGH,I1NCRT 
ItXlslABS(MnO( (lPP(l)-5673  97  +  IKRD) , INTX1)  ) 
TFdIXl.LT. I  NTX2)  then 

IOXXls  1+IIX1/INTX3 

ELSE 

lOXXls  1 D23-IIXI/INTX3 

E'iDIF 

DO  1  557  JKRD  s  ILOW , I H I GH , 1 1 NCRT 
IIY1=IABS(MDDCC IPPC 2) -317971 43+JKRD) , INTX1 ) ) 
IFCITY1.LT. INTX2)  THEN 

I)YYt=  1*IIY1/INTX3 

ELSE 

I0YY1  =  102 l-I IY1/INTX3 
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EHDIF 

lERDTS7=lnATC  JQXX1  ,  Kmi  ,2) 
lFClERDTST.GfC.77)  THEM  !  FIELD  NEARBY 
ITIXSIABS(IIXI-IIXX) 

JTI Y=t ARS(TTYl-IIYY) 

XX=IDENSlTYC2,2) 

IFCIT1X.LT.JT1Y)  THEM 
Xsll 1X/XX 

fdse 

XsJTl Y/XX 
EMDTF 

ehdif 

1557  CONTINUE 

PELZ»X*&EI.Z 

emihf 

endif 

emdif 

ehdif 

XiaXZ+DELZ*FlKLD 
Ehdif  !  2 

1221  CONTINUE 

1222  ipil^i type 

IFCXZ.lt. IBBFLDC ITYPE) )  THEM  i  9 
C  lHRFLnC3)s7O*SCALEC2)-U)0?  BEACH  IPIL=3 

J  lDPFLDC2)s70*SCALt:C2)?  ROCKS  AT  BEACH 

x  HEUTRAL*IR/2  IPIl*2 

w  IRRFLDC1  )s20000000;  FIELDS  AND  FOREST  lolL*l 

30  TO  101 
EHDIF  I  9 

C  IFCIPPCD.EO. -163750)  THEH 

C  type*,'iopy  REFOR  1111b', idjy 

c  TYPE* , 'BEFORE  1111s  I T YPE , I  V A RTHb ' , IT YPE , I  VAR T N 

C  EHDIF 

till  CONTINUE 

101  CONTINUE 

IFCTPIL.LT.OTHEN  1  10 
TYPE*, 'END  TTYPF  LOOP  16800' 

TYPE*, 'ISAVl=',TSAVt 
TYPE*, ' ISA V2,nZ/DXs', ISA V2 
TYPE*,'ISAV3,DZ/DY=',ISAVi 
TYPE*,'nx.IXf)Xs',IOX,IXDEX 
TYPE*,  'I  3Y,TYDEYs',l()y,  IYOEY 

TYPE*,'lDOX, lnOYs',lODX,TPDY 

TYPE*, 'IVSAVCI TYPEs),SAVb4)=',I VSAV 

Ehdif  !  10 

IZaXZ 

TFIR=2 

IFCIZ.LP.-501  THE  i  1  11 
IFIRSS 

1212  IZr-bO 

ehdif  i  n 
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IPO)3lZ 

IBENF=0 

or)  1098  lBEUl=l,3 
DO  1098  IBEN2sl,2 

IF(IDUX(IBEN1 ,  IBEN2)  .  GT.  I  DENSITY  (IREN1 , IBEN2)  )  IBeNF=1 
IFC-IODXC  18EN1  ,  IBEN2) .GT. IDENSITY (IBEN1 ,IBEN2) )IBENF=1 
IFC  ID0Y(IBEN1  ,  IRFN2).GT. IDENSITYCIBENI ,IBEN2) )  TBeNFs1 
IF  (  - 1  DO  Y  ( I  BENI  ,  I.  REN  2  ).GT.  IDENSITYCIBENI  ,IBEN2)  )  lBENp*l 
1098  CONTINUE 

TFCIRE^.EQ.l)  THEN 

TYPE*,'IODX, lnDys'.IDDX,lDDY,'  IDENSITYs',IDENSI1Y 
TYPE*, '.I»ENFiIPPs',IPP, '  IIX,IIY=',IIX,IIY 
EMOIF 
RETURN  1 

ENTRY  ZRDATSIR  (  *) 

C  COMPUTE  THE  REFLECTANCE 

DO  2211  iTYPEsIPIL, 3 
ISTRTsl 

IF(ITYPE.EQ.2)  ISTRTsI VARSTft 

O'J  2211  IVARTNslSTRT,2 

IFt (ITYPE.E0.2) . AND. ( IFIELD.ED. 1 >  )  THEN 

CVFRsO 
GOTO  2210 
ELSE 

CVERsSCALEC ITYPE, IVARTN) 

ENDIF 

XTE«sISAV4(ITYPE, t V ARTN ) *DNQ1 ( I  TYPE , I V ARTN ) 
PARTIOATXs(TSAV2(ITYPE,IVARrN)  +  lDOY(irYPE,IVARTN)«cXTEM) 

*  *0NU1 (ITYPE, IVARTN) 

PAR TIOATYsf ISA V3( ITYPE, I VARTN)+IDDX( ITYPE, IVARTN )*XtEm) 

*  *DN01 (ITYPE, IVAPTN) 

XIXsABS(PARTIDATX) 

YIYsABS(PARTIOATY) 

THIS  COMPUTES  THE  PARTI ALS  FOR  I HE  FIELDS  IF  IFIELDsl 
AMO  OTHER  REGIONS  IF  IFIELD=0 


IFCITYPE.NE.3)  THEN 

HULLs  ITYPE*  I  DENSITY  (ITYPE,  IVARTN)  +  2 
IF(NCR.GT.IMULL)  THEN 

PARTI  DA TXsPAR II  DA TX*I mull/ncr 
PARTI DA TYsPARTIDATY* I  MULL/NCR 
ENDIF 


ENDIF 

C'/ERl  siPPd  1-I0FF1  (ITYPE,  IVARTN) 

CVER?s  IPP(2)-I0FF2(ITYPF, IVARTN) 

2210  CONTINUE 

PARX( ITYPF,IVAPTN)sPARTIDATX*SlGN (CVER,CVERi) 
PARY(ITYPE,lVARTN)sPARTIDATY*SIGN(CVER,CVER2) 

2211  CONTINUE 
partida rxso 
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2215 


2227 


PAH tTOATYsO 
DO  2215  12*1,2 
DO  2215  IoAPsiPlL,3 

PARTIDATX=PARTIDAIX*PARXCIPAR,I?) 
PAPTIDATYsPARTIOATY+PARY CIPAR,t2) 

CONTINUE 

PARTHl*2*.b*2*3. 1 41 59* W 1 ** 1 *1 PP2 * DENOM 
PARTH2  =  XNljM*DEN0M*  *  2  *W1  *.6*2*3. 14159 
I F  C I PP2  •  GT  ,  0)  THEM 

PARTHYsPAR TH 1-PAR TH2 
ELSE  IF  (IPP2  .  r.T .  0)  THEN 

PARTHY*PARTH1  +  PAR  TH2 

else 

?AHT>«Y*0 

E  JDIF 

PARTRIGX*13500*W*COS(WIPP1)*SNHH 
PARTRlGY=SWIPP*COS(H)*PARrHY 
PARTZX*  PAPTRIGX  ♦  PARTIDATX 
PARTZY*  PARTRIGY  ♦  PARTIDATY 
REMAGsSORTCl  ♦  PARTZX**2  *  PARTZY**2) 
TR*255*(-A*PARTZX-B*PARTZY+C)/REMAG 
XIX=A5R(PARTIDATX3 
YlYsARS(PARTlOATY) 

X2X=ARR(PARTRIGX)*10 
Y2Y=ARS(PARTRIGY)*10 
IFCIR.LT. 3)IR*3 

SUN  SHADOWING  SHOULD  BE  BASED  AS  MUCH  AS  POSSIBLE  ON 
MAJOR  FEATURE  EXTRATION  FOR  AN  APPROXIMATION  OR  ON  eXaCT 
RAYTRaCMG 


I 3X( 3 ,2) , IUYC 3,2)  ARE  INDEX  POINTERS  FOR  TREE  FEATURES 
IXDEXC2) ,IYDEY(2)  ARE  DIRECTION  ON  DATA  BASE 


TF  TP.GT.400  THEN  SUN  SHADOaMG  TS  BYPASSED 
IF  IR.GT.40  THEN  SUN  SHADOW  IS  CALCULATED 

IF  (1R.GT.40''I)  THEN 

THIS  CODE  VALID  FOR  A RS C A ) . GE . A bS C B) 

I 4X=IQX(2,2)*4 
J4X1=I4X*1 

IFCMX.GE.51?)  I4X  =  t02i-l4X 
IFCMX1.GE.512)  14X1*1023-14X1 
I4YFsCI')YC2,2)*J0ENSirYC2,2)+SB4r)VA*IDDYC2,2) )/ 

*  I OEnSI T Y  C  2  »  ? ) 

SHO'JLO  IT  »E  SB40VA+I0DY  ,0R  SHOULD  IT  BE  SB40VA*IDDY  ? 
I4YsMYF 
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I4Vt=l4Ytl 

IFU4Y.GE.512)  I4Yb1023-I4Y 
IFCI4Yl.GE.5l2)  I4Y1=1 023-I4Y1 
IY4J=ID0Y(2,2)+SB0VA4(KSI4-IDDXC2,2)) 
IDELTAY»IY4J-I4YF4IDENSITYC2,2) 

IMOW=lDAT(l4X,I4Yf2) 

IN0WlsIDAT(I4X,T4Yl ,2) 

IZSHDsSCALEC  2,2)*  CIN0W+CIN0»1 1-IN0W)*DN01  (2,2)  *IDELTAY)“ 
4  XZ 

KIDDTES*C0VMARG4(KSI5-IDDX(2,2) )  +  .5 

IFCIZSHD.LT. KIDDTES)  THEN  13 

C  NO  SUN  SHADOWING  RY  THIS  HILL,  TEST  FOR  NEXT  CONDITION. 

lF(IDnV2.GT.IDELTAY)THEN 

C  USE  IDELTAZ/IDELTAX  AT  (I4X,I4Y)  POlNr 

IZSHDbIZSHD4KSI«(IDAT(I4X1,I4Y,2)-In0w) 

else 

C  USE  IDELTAZ/IDELTAX  AT  (I4X,I4Y1) 

IZSHD*IZSHD+KSI4(XDATCI4X1 ,I4Y1 ,2)- 
4  INOW1 ) 

ENDIF 

IFCIZSHD.LT. KIODTES)  THEN  12 

C  NO  SUN  SHADOWING  YET,  BY  THESE  TWO  TESTS 

I4XsIQX(2,2)+7  1  NO  TEST  7  UNITS  OVeR 

I4X1»I4X+1 

IFCI4X.GE.512)  I4X«1023»I4X 
IFCI4X1.GE.512)  14X1*1023-14X1 
l4YFalQY(2,2)+SB70VA 

SEE  LINE10300  ABOVE 

I4Y*I4YF 
I4Y1=I4Y+1 

IFCI4Y.GE.512)  I4Y*1023-I4Y 
IFCI4Y1.GE.512)  I4Y1»1023-I4Y1 
lY4JaiDDYC2,2)+SBOVA4CKSI7-IDDXC2,2))t.5 
IOELTAYaIY4J-I4YF4IDENSITYC2,2) 
lNOWsiOAT(I4X,I4Yl,2) 

IN0W1sIDATCI4X,I4Y1,2) 

IZSHDsSCALE(2 , 2) * ( INOW+ ( INOW1 -INOW ) 4DN01 ( 2 , 2) 4 
4  IDELTAY) -XZ 

KIDDTES=C0VNARG4(KSI8-IDDX(2,2))4.5 
IFCIZSHD.LT. KIDDTESJTHEN  11 

C  STILL  no  sun  SHADOWING,  TEST  FOR  LAST  CONDITION 

IFCIDOV2.GT, I  DELTA Y)  THEN 

C  USE  IDELTAZ/IDELTAX  FOR  CI4X,I4Y) 

IZSHD«IZSH0fKSl4 ( IDATC 14X1 , 14Y, 2 ) •iNOirf  ) 
ELSE  'USE  IDELTAZ/IDELTAX  AT  (I4X,l4Yl) 
IZSHD*IZSHD+KSI4(IDATCI4X1 , 14Y1 ,2)- 
INOW1) 

ENDIF 

IFCIZSHD.LT. ( ( KSI8-IDDX (2,2))*CQVHARG))  THEN  10 


o  u 


'*  A VTR AEQU 1 PCKN  H0-D-0U14-2 


C 

C 

12435 


C 

c 


'in  su>i  shadowing  by  this  approximation 

SO  n  12435 


ENDIF  •  0 

E  N  D  l  F  11 

ENDIF  12 

ENDIF  13 


SUN  SHADOWING 

IR=35*IR/fi 
CONTINUE 
END  I F 

KNO  SUN  SHADOWING  AND  SUN  ANGLF  APPROXIMATIONS 

IFClPlL.cO.  1 )  THEM  ilREES  AMO  SHRUBS 

NEED  SPECKLE  ON  OUTLINE  TO  HAKE  PATTERN 
USE  I D  A  T ( 3 ) 

IIXsIABS(MOD(IPP(1  ) , 1 022 )  ) 

IiysslABS(MOn(  IPP(2)  ,  1022)  ) 

IFCIIX.LT. 512JTHEN 

nxx=i  +  iix 

else 

IOXXS1023-IIX 

enoif 

IFCIIY.LT. 512)THEM 
I'JYYsl  +  Iiy 

else 

nyyssi023-iiy 

Enoif 


MMVsIR/3/MCR 

ifcidatc  i  j.ge.ojthen 

IRalR+NMV 

IFCIR.GT.255) IPS255 

El.SE 

IRsIR-NNV 

E  r:  d  i  f 

C  SPECKLF  TEXTURE  FOR  TREES  AND  FINE  DETAIL;  NOISE  FILTER-3 

if  cifisld.f.o.dthen 

C  FIELDSSGOLU;  NEEDS  NEUTRAL  APPRJX.  IR/4 

IRV(1 )sIR 
lRVC2)sIR 
IRV( 31=0 

ELSE 

C  TREESsGREEN/HMOWM ;  NEEDS  NEUTRAL  APPROX.  IR/4 

IRVC  t )sT« 

lRV(2)=C2*IR+2)/3 

lRVO)=-IRV(2)M4.IR 

ENDIF 

ELSE  I F  (  IPI L .  E>1 . 2 )  THEn  1R0CKS  AND  TREES 

IRVCDslR 
IRVC2)  =  C  IR  +  D/2 
IRVC  n  =  lRV(2) 
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ELSE 

lPV(t)rlR 
IPV(2)alRV(l ) 

IPVCB)sIRV(I) 

ENDIF 

RETURN  1 

ENTR  Y  ZRDAT55IR(*) 

COMPUTE  SMALL  WAVES  ON  LAKE 

IF(lDAT(lOX(2),lQY(2),2).GT.-32)  THEN 

CODE  NFGLECTS  PARTIALS  OF  IDAT  COMPARED  TO  TRIG  TERmS 

PARTZX=3*3.14159/24*CC0S(IPH+(3*IPP(1)+4*IPP(2)) 

*2*3.14l59/t20)+C0S(IPH4(3*IPP(l)+4* 

IPP( 2) )*2*i. 14159/60) )*EXPC-IP(2)*.OOOD 
PARTZY*1 ,33333*PARTZX 

ITXsIA«S(MOD(((IPP(1)*CIPP(2)/3))/IWAVSCAL) . 
1022*L8CAL)) 

IIYaIABS(M0D((IPP(2)-(lPP(l)/3)),i022MLSCAL)) 
IF(IIX.LT.512*LSCAL)  THEN 

IAXal+IIX/LSCAL  !IOX 
IBX«1«-IAX  1IXDEX 
IFCIAX.EQ.512)  I8X*511 

ELSE 

IAX*1023-IIX/LSCAL 

IBXsIAX-1 

ENOIF 

IFCIIY.LT. 512MLSCAD  THEN 

IAYsl+IIY/LSCAL  !IQT 

IBYsIAY+1  1IYDEY 

IFCIAY.E0.512)  I3Y=511 

ELSE 

IAYsl023-IIY/LSCAL 

IBY*IAY-1 

ENDIF 

tSlsinAT(IAX,IAY,3) 
tS2sIOAT(IBXf IAY,3)  -ISi 
lS3sIDATCIAX,IBY,i)  -ISl 
XlXsARS(PARfZX) 

YtYsABS(PARTZY) 

IFCNCR.GT.LSCAL)  THEN 
PARTZX*IS2/NCR 
PARTZYaTS3/NCP 

else 

PARTZX=IS2 

PARTZY=IS3 

ENDIF 

PARTZX=DN01 (2,2)*PARTZX*3 
PARTZYs')Nr)l(2,2)*PARTZY*3 

REMAGsS0RT(l^PARTZX*424PARTZY*42) 

REMAGsS'JRTC  J  *  PARTZX442  ♦  PARTZY442) 


!  SHORE  LINE 
1 1 P I L  a  3  1GREEN 
!  RED 

!  BLUE 


o  n  o  o  o  oonn 
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TRs25S*(-A*PART7.X  -B*PARTiY  ♦  C)  /REMAG 
I £XsIABS(MOD( ( 1PP( l ) ) , 1022) ) 

HYsIABS(MOn(  (IP0(2)  )  ,  1  022)) 
lF(IlX.LT.512)rHEN 
nXX  =  l  +  ITX 

else 

I.)XXsl023-IlX 

EnDIF 

IF( IIY.LT. 512)TREn 
IGiYYsl  +  IIK 

ELSE 

I!)YY  =  1023-IIY 

enoif 

IF(  IR.LT.  1  20)  THEN 

‘I  M  V  s  4  0  /  N  C  k 

EljSE 

M  'iVsIR/t  3*NCR) 

EnDIF 

IF(I0AT( I3XX.I0YY, 1) .GF.0)THEN 

IRslR'fNf'iV 

else 

IRs I R-NM V 

ENOIF 

IF(IR  . L  T . 3 )  TRs3 

I F ( I R  .GT.  2SS)  IRS255 

lRV(ne2*I«/3 

IRV(2)=0 

IRV(3)aIR 

RETURN  1 

CREATED  Rf  PHILIP  GATT  AND  OR.  d,  M.  PATZ 

10/20/80 

SIN(X)*3IN(G(Y))  ♦  NOISE 
S(Y)  IS  S  4  A  L  L  FOR  Y  <  3000 

ENTRY  ZROATfi ( *  ) 

IOENSITY(l)  IS  THE  WORLD  POINTS  WHICH  MAP  TO  ONE  NOISE  pOlNT 
As. 866 
H=-.2S 
Cs. 433012S 
As. 866 
HsO 
Cs,  s 
RETURN) 

ENn 
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IC4(-,-. 22)= 

lC»U-,-,23)s 

ICH(-,-,24)= 

***** 

* 

****** 

*  * 

*  * 

*  * 

*  ***  * 

*  * 

*  * 

*  *  *  * 

*  * 

*  * 

*  *  *  * 

*  * 

****** 

*  **** 

******* 

*  * 

* 

*  * 

*  * 

*  * 

*  * 

*  * 

***** 

*  * 

****** 

IC^(-,-,2‘>)  = 

ICH(-,-,26)= 

ICPC-,-,27)s 

**** 

***** 

******* 

*  * 

*  * 

* 

* 

*  * 

* 

* 

*  * 

* 

* 

*  * 

***** 

* 

*  * 

* 

* 

*  * 

* 

*  * 

*  * 

* 

**** 

***** 

******* 

ICH(-,-,28)= 

ICH(-,-,29)=  TCH(-,-,30)= 

******* 

**** 

*  * 

* 

*  * 

*  * 

* 

* 

*  * 

* 

* 

*  * 

***** 

*  **** 

******* 

* 

*  * 

*  * 

* 

*  * 

*  * 

* 

*  * 

*  * 

* 

*** 

*  * 

TCHC-,-,32)= 

ICH(-,-,33)s 

***** 

***** 

*  * 

* 

* 

*  * 

* 

* 

*  * 

* 

* 

*  * 

* 

* 

*  * 

« 

* 

**  * 

* 

* 

*  * 

* 

*  * 

*  ♦ 

***** 

*** 

*  * 
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***** 


*** 


* 

* 

* 

***** 


****** 

* 

* 

* 

***** 

* 

* 

* 

****** 


,-,44)= 


*  * 

*  * 

*  * 

*  * 

*  * 

*  *  * 
*  * 
***  * 

ICHC-,-,42)= 

******* 

* 

* 

* 

* 

* 

* 

* 

* 


lCHC-,-,45)= 


ICHC- 


ICH( 
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,  -  ,4  6  )  = 

♦  * 

*  * 

*  * 

♦  * 

* 

*  * 

*  * 

*  * 

*  * 


ICH(-,-,47)= 

*  * 

*  * 

*  * 

*  * 

♦ 

* 

* 

* 

* 


ICHC-,-,48)s 

******* 

* 

* 

* 

* 

* 

♦ 

* 

******* 


,-,4cn=  ICH(-,-,50)=  ICH(-,-,5l)= 


***** 

* 

* 

* 

* 

* 

* 

* 

***** 


* 

* 

* 


***** 

* 

* 

* 

* 

* 

* 

* 

***** 
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appendix  ea 

FIRST  GENERATION  REALSCArf  SOFTWARE 


Appendices  EB  tnrouah  EL  contain  the  routines  that  are 
sidered  tne  first  aeneration  of  REALSCAN. 
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APPEND  I  X  EB 
PGBUF.FOR 

PGBUF.F1R  APRIL  22  1981 

INTEGER*2  ITEMB!JF(512,512) 
CDMNON/B'JF/  ITEMBUF 
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APPENDIX  EC 
PGCOMDA  T . FOR 


PGCOMDAT.FOP 

THIS  IS  A  COMMON  BLOCK  FOR  THE  ROUTINER  WHICH  GENERATE 
A  PICTURE  OF  A  3  DIMENSIONAL  SCENE 

THESE  ROUTINES  ARE  M A I N 3D , SLCRF ATE , VI S , SCAN , ZRD AT A , pR 0 J4 

finfil,  sftscene 

LATEST  REVISION  DATE:  APRIL  22  1981 

DIMENSION  IF (3) ,I0UT1(256) ,IF(2) ,IP(3) 

BYTE  ICNT (51 2, 51 2)  , IDA T ( 5 1 2 , 5 1 2 , 3 ) 

INTEGEP*2  IOUT2(40, 40 ) , I X BS , I YB5 , 1 SCRN ( 2 ) , NCR , I NT2 C 5 1 2 r 
256) , JDAT1 C SI  2,256) ,  JDAT2 (512,256) , JDAT 3 (512, 25b) 

COMMON/ 71  SIR/ 1 PP( 2) , IPNP ( 2 ) , NPN ( 2 )  , 10 ( 2 ) , LO 4 ( 3 ) , NCR , 
IC00E,I0THR,ICASE,INC,INCI0,IEFE,TXY2,IDXY, JXY2 
C  )mmOM/INTG/IXP,IYP,IZP,  IXE,  IYE,IZE,IR0T(3, 3)  , I  SC ALE 
, IXH,  IYH,  IZH,IXBS,  IYBS,  IXPI-NC,  IYPINC,  IZPINC,IRB* 

, IDIV1 , lCnMn,lFJLTERl ,IFILTER2,IRUN ,I0UT1 ,IFIR,NC 
,NPL,NX,NY,IX,LY, I  AXIS , NPIX , IUS , I  VS , I *S , L I  HE 
, IFILOIM, IFLDMO? 

COMMON /REAL/ ANG, CW(4  t  3) , P ITCH , RANK , HEADING , ALPHAV , 
SJM*NG,SJRA,AA(4,2),ROT(3,3) ,PR0JC4) ,CANG(4) , 

CMAG(4) ,COR(4,3) , ANGFACTDR,XH,YH,ZH 

COMMON/FLAGS/  NADIR,LASTPf,IFIRST, J FINISHED, ICAS,KSl, 
TRESnL,IDATPAR,lSKY,ISTARI',IFND 

COMMON/CONSTS/ICRASH, JCDNSTX, JCOMSTY, IC0NST,KC0UNT, 
IPOWFR, IXSO, IYS0,H0RIZ0NLIM 
C0MM0N/BUF2/  ICNT, IDAT, I0UT2 

EQUIVALENCE  ( IE( 1) , IXE ) , ( IE ( 2 ) , I YE) , ( IE C 3 ) , IZE) , 
(IP(1),IXP),(IP(2),IYP),(IP(3),IZP), 
(IRBW,IR), (ICL,IRES3L) , C IF( 1 )  ,  IXH)  , 
(IFC2),IYH),(INT2, ICNT), (JDAT1, IDAT), 
(JDAT2,IDAT(1,1,2)),(JDAT3,IDAT(1,1,3)), 

C IXBS, ISCRN ( 1 ) ) , (IYBS,ISCRN(2)) 
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APPENDIX  ED 
PGOAT A . EUR 


*************************************** 

* 

*  SUBROUTINE  ZRATA 

* 

*  DATA  BASE  1 

* 

*************************************** 

LATEST  REVISION  OATES  SEPTEMBER  30, i960 

PROGRAMMED  BY!  GERALD  L.  BECKER 

PHONES  ORLANDOS  677-7621 

PORT  MYERS:  813/095-7930 


THIS  IS  TO  HE  USED  WITH  THE  DICOMED! ! •  •  1 ! i  I 
<<<<<«<<<<<<<<<«<«<<<«<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>»>>>> 
THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  'SCAN'. 

THIS  SUBROUTINE  DEALS  WITH  DATA  BASE  1.  DATA  BASE  1 
IS  MADE  UP  OF  BLOCKS  WITH  3  POSSIBLE  ALTITUDES.  POSSIBLE 
ALTITUDES  ARE  HIGH  (512),  LOW  (-128),  AND  GROUND  (0). 

ALL  CALCULATIONS  IN  THIS  SUBROUTINE  ARE  MADE  WITH 
INTEGER  MATH. 

12  3  4 


J  = 


J  = 


******************, 
*  *  *  *  * 

*i*e*8*2*i 

*  1*  7*  3  *  4* 

***************** 

*  *  *  *  * 

♦8*2*1*8*2 

*  5*  6*  7*  8* 

***************** 

*  *  *  X*  * 

*1*8*8*2*3 

*  *  *  *  * 

***************** 

*  *  *  *  * 

♦8*1*2*«*4 
*  *  *  *  * 


2  THE  ENTIRE  DATA  RASfc  t  IS  COVERED 

WITH  DATA  BLOCKS  AS  SHOWN  TO  THE  LEFT. 
BLOCKS  OF  TYPE  1  DATA  HAVE  A  HEIGHT  OF 
512.  BLOCKS  OF  TYPE  2  DATA  HAVE  A 
HEIGHT  OF  -128.  THE  REFLECTANCE  IS  A 
FUNCTION  OF  POSITION  WITHIN  THE  FRAME. 
BLOCKS  Of  TYPE  4  DATA  HAVE  ZERO  HEIGHT 
AND  A  REFLECTANCE  OF  4. 

DEFINITIONS: 

CLASS:  DIFFERENT  LEVELS  OF  DETAIL  OR 
RESOLUTION. 

FRAME  COORDINATES:  Ml  AND  M2  VALJES 
SPECIFYING  THE  BLOCK  BEING  USED.  EX¬ 
AMPLE:  POINT  X  HAS  FRAME  COORDINATES 
M 1  s  3  ,  *2  =  3.  FRAME  COORDINATES  ARE 
CLASS  DEPENDENT.  MlsMBl. 


o  o  o  o  o  (  j  rj  o  r>  o  n  o  r>  n  o  o  r>  r>  o  n  nnn 
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*****************  ARRAY  INUlCES:  POSITION  alfHIU  A  GtVfN 

FRAMF. 

SJRROUTINE  ZRDATA(*) 

[MCLUDF  'PGCOMDAT.FOP' 

INTEGER *2  I DEM S I T Y  (  3  )  ,  I S A  1 , IDD 

l MTEGER*2  IMOFXX, INOEXY, IPT(IO) ,I3FF1(3) ,10FF2(3> , 

♦  ISAM,lMX,INy,KL1,KL2,KL3,KHl,KH2,KH3,IBL 
DIMENSION  scale ( 3) , I  OX ( 3 ) , I  U Y C 3 ) , I Y DE Y C 3 ) , I XDEX ( 3 ) , 

*  DN01C3) 

I  'ITEGFR*2  ISA VI  (3),  ISA V2  (  3  )  ,  ISA  V 3  (  3  )  ,ISAV4(3> 

COMMON  /3RNn/  INX  , INY 

DATA  ISAM  /l/, IDENSITY/4,B, J2/,ISAT  /128/ 

DATA  SCSA*  /. 9/, N 1024/1024/ 

BUILDINGS  WITH  PC1ADS  AND  2  NOISE  TYPES  AND  MULTIPLE  RETURN 

IP  :=  NADIR  CENTRIC  COORDINATES 
IPP  js  WORLD  CENTRIC  COORDINATES 
IPP  s  IP  t  IE 
IF  IPPO  ?IPNP=IPP 

else  ipnp=ipp+i 


NPHIL=N1024*NCR 

MlX  =  MnD(IPNP(l)  ,  (NPrllL)  ) 
MJY=M0D(IPNP(?) , f wPHIL) ) 


ARRAY  INDICES  FOR  ALL  CLASSES  ARE  CALCULATED. 


THE  RANGE  OF  I NDEXX , I NDEX Y  IS  ALWAYS  I<sl024. 
THE  GRID  BOUNDARIES  OCCUR  ON  IDD  LINES.  THE  IDEA  OF 
INDEXX, INOEXY  COORDINATES  IS  TO  MATCH  DATA  COMPRESSION 

information  as  tt  would  be  accessed  tn  a  hierarchial 

DATABASE.  TO  DEFINE  BOUNDARIES  ONE  NEEDS,  IDD,  Mb1,M*2 
HE  DISPLACEMENT  FROM  IDD  I*  THE  COORDINATE  FRAME.  A(,L 
DISPLACEMENTS  ARE  POSITIVE  MODULAR  ARITHMETIC. 

IF  ( IPP( 1 ) . 3E.0)  THEN 

TNDEXXs(MIX/‘»CR)+l 

elsf 

INDEX Xs (MIX/NCR )T1U24 

ENDIF 

IF  ( IPP( 2) .GE.O)  THEN 

TNDEXYsIMjy/wCRj+l 

Else 

1  NDEX  Vs  (  m  jy /NCR  )M  02  4 

EnDTF 


n  o  n  f)  n  n  o  o  n  r»  rj  non 
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BLOCK  ASSISNMFNTS  ARE  DEPENDANT  ON  WHETHER  OR  NOT  THE  TrST 
POINT  is  within  THE  VALNCR  RANGE. 

IDDs1024/NCR 
IFUCL.GT.9)  THEN 

TYPE*, 'ERROR  ICL  .GT.  9  J  ZRDATA  9400' 

STOP 

END  I F 
lHLsIOD-1 

INX=IM0D(IN0EXX-1 ,IDD) 

I iYsIMOO(INDEXY-l , IDD) 

THIS  ROUTINE  ASSURES  NCR*2** ( I  CD-I) 

KL1*IM0DU4/NCR,  IOD) 

KL2aJROD( 128/MCP, IOD) 

K L3=I MOO ( 160/NCR, IDD) 

KHlslM0D((l024-64)/NCR, JDO)-l 
KH2sI"00( (1024-1 28) /NCR, IDD) -1 
KH3slM00((l024-160)/NCR,IDD)-i 
KL1  THROUGH  KL3  SET  THE  LOWER  ROUNDS 
KH1  THROUGH  KH3  SET  THE  UPPER  BOUNDS 
NQlsIPNPCl )/1024 
NR2sIPNP(2)/1024 
IREM3N00CMB1 ,4) 

JREM=M0D(«B2,4) 

IF  (IPP(il.LT.O)  IREMsiREM+3 
IF  (IPP(2)  .LT.O)  JREMSJREH4-3 
JsjREM+(4*IREM)*l 

IF(IPP(2).GT.1000)  TYPE*, 'IP1 ,IP2, Js#, IPp(l) ,IPP(2) ,J 
IF(IPP(2).GT.1024)  TYPE* , ' I NDEX Y , *00= ' , INOEXY , IPT( 5 ) 

GOTO  (1010,1020,1020,1040,8, 1060, 1070, 8, 1090, 11 00,U 00» 

*  1120, 1  1  30, 1140, 1150, 1160), J 


IP(J)  AND  IR  ASSIGNMENTS  ARE  MADE.  THIS  ASSIGNMENT  Is 
DEPENDANT  On  THE  FRAME  INDICES. 

1010  CONTINUE 

CALL  GN0(KL?,KL2,IBL,IBL,*9,*H,*8) 

IF(INX.Lr.KL3)  GOTO  8 
IP(3)=512 

CALL  CRSIFA(KL3,KL2, JBL,IdL,*b,*4,*5) 

GOTO  7 

1020  CONTINUE 

IFdNX.LT.KL 2)  GOTO  9 
GOTO  8 

1040  CONTINUE 

CALL  GND(Kf.?,0,IBL,KHl  ,*9,*»,*8) 

1FUNX.LT.KL3)  GOTO  8 
IP( 3)s-l28 

CALL  CRSIFA(Kf.3,0,THL,KHl,*6,*4,*5) 
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GOTO  J 

1060  CONTINUE 

CALL  GND(KLl,n,lBL,KHl.*8,*8,*8) 
IFCINX.LT.KLI)  GOTO  8 
IF  (INY.GT.KH1)  GOTO  8 
IP(3)s-l28 

CALL  CRSlFA(KLl ,0, ISL.KH1 ,*6,*4,*5) 
GOTO  3 

1070  CONTINUE 

CALL  GNOCO.O,  TBL,  IBL, *8 , * b , *8) 

IPC  3)s5l2 

CALL  CRSIFACO.O,  I 3L, I ML , *6 , *4 , *5 ) 

GOTO  7 

1090  CONTINUE 

CALL  GNO(KLl,KLl,KH2,KHl,*8,*9,*8) 

IF  (INX.GT.KH3)  GOTO  8 
IPC J)s5t2 

CALL  C8SIFACKL1 ,KL1 ,KH3,KH1,*6,*4,*5) 
GOTO  7 

1100  CONTINUE 

IFCINX.GT.KH2)  GOTO  9 
GOTO  8 

1120  CONTINUE 

IFCINX.0T.KH2)  GOTO  9 
IFCINX.GT.KH3)  GOTO  8 
IPC3)s-l28 

CALL  CPSlFA(0,0,KH3,IPL,*b,44,*5) 

GOTO  3 

1130  CONTINUE 

CALL  GNO  (KL2,0,KH2,I8L,*9,*9,*8) 

GOTO  8 

1140  CONTINUE 

D  TYPE*,'KL2,KH2,KHls',KL2,KH2,KHl 

CALL  GN!)(kl?,0,KH2,KH1,*9,*9,*8) 
IFCINX.GT.KHJ)  GOTO  8 
IFCINX.LT.KLi)  GOTO  8 
TP( 3 ) =5 1 2 

0  TYPE*, '1140:  IPTs'.IPT 

CALL  CRSlFA(KL3,0,KH3,KHl,*b,*4,*5) 

GOTO  7 

1150  CONTINUE 

CALL  GN0CKL2,KL1 ,KH2,KH1 ,*9,*9,*8) 
IFCINX.LT.KL3)  GOTO  8 
IFCINX.GT.KH3)  GOTO  8 
IPC  3)3-128 

CALL  CRSlFA(KL3,0,KH3,KHl,*b,*4,*5) 
GOTO  3 

1160  CONTINUE 

IFCINX.LT.KL2)  GOTO  9 
IFCINX.GT.KH2)  GOTO  9 


non  o  o  on 
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GOTO  g 

C  BOTTOM  OF  HOLE 

3  IRsO 

GOTO  99 

4  CONTINUE 

c  s ideS; x  constant,*  varies 

IFdNX.LT.lBL/2)  then 
IRS158 
ELSE 
I«s98 
ENDIF 

IFUP(3).EO.-l28)IP(3)=0 
GO  TO  99 

5  CONTINUE 

front  and  back  FACES ; Y  CONSTANTS  varies 
type*,'  "S"  # 

IF( INY.LT, IBL/2)  THEN 

I R-76 

ELSE 

iRsieo 

ENDIF 

IF(IP(3).E0.-12«)  THEN 
I P ( 1 ) sO 

lRs(IR-t27J*. 75+127 
ENDIF 
GO  TO  99 
CORNER 

6  CONTINUE 
TYPE*,'  "6"' 

I«sl27 

GO  TO  99 
7  CONTINUE 

ROOF  TEXTURE 

IFIR=4 
RETURN  1 
C  GROUND  TEXTURE 

8  CONTINUE 

D  IF(IPP(2) .GT.999)  T YPF*  , 8  "  ,  KL ,  I PTs' ,  KL1  ,  KL2  ,  KL3  ,  IpT 

D  *  , 'KH=',KH1,KH2,KH3 

I P ( 3 ) sQ 
IFI»s3 
RETURN  1 

C  ROAD 

9  CONTINUE 

D  TYPE*,'  "9"  ,INneXX,INOEXYs',lNDEXX,INDEXY 

IRs70 
I P ( 3 ) sO 

IFdNX.LT,  (B/NCR)  )  IR*200 
IFCINX.GT.dDD-R/NCR})  IR  =  200 
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IF(INX.LT.(4/NCR))  IR=150 
IF(INX.0T.(IDD"4/NCR))  IR=150 
IF(NCR.E'3.8)  THEN 

IF(JNX.EQ.O)  IR=167 
IF(INX.EQ.IDD)  IR=lb7 

E  JDIF 

o  type*,'iR9=',ir 

99  IFIR*1 

RETURN  1 


C 


c 

ENTRY  ZRROF ( * ) 

P11sR0./72. 

TRaCPll *(SIN(.092*IPP( 1 ) ♦ . 04*IPP( 2 ) - 1 . ) *3 . 4SI N ( 

*  ,26*IPP(1  )-.10  3*IPP(2)  +  .'5)4-5.»RlN(  ,432*IPP(1)  + 

*  .197«XPPC2)+.R))*(SXNC«0Rb*IPP(2)-.037*lPP(l)-.96)+ 

*  3.*SIN(.2534IPP(2)*.096*IPPCl)+.45)+4.*SlN(.385* 

*  IPP(2)-.18ft*IPP(l)))) 

C  ALPHAV  a-4.5/lH0RlZ0N(ICASE)  AND  IS  SET  UP  IN  VIS 
IRsl 65+IR*EXP( ALPHA V4IPCICASE)) 

IF(IP(3)  ,E0.  -12R)  IRsO 

IF(IR.GT.255)  TYPE*,#950/2  ZRDAIA  IR , IPs' , IR , IP 
RETURN  1 


GROUND  COMPUTATION 


entry  zrgndc*) 

NOISE  ON  GROUND 

INDXs  ABS(MOD((IPP(2)-IPP(l )/32) ,2044)) 

INDY*  A*iS(Mon({IPPCl)-IPP(2)/I2«)  ,2044)  ) 

IFtlNDX  .LT.  1024)  THEN 
I N  D  X  *  1  ♦  INDX/2 

ELSE 

INDX*  1023  -  INDX/2 

END  I F 

I F ( INDY  .LT.  1024)  THEN 
INDY*  1  ♦  INDY/2 

ELSE 

InDy*  1023  -  INDY/2 

E.NDIF 

IR*127+(SCSA^*( TUAT( INDX, INDY, 1)+128)-127)*EXP(-.00005*IP(2)) 

IR*127 

RETURN  1 

ft************************************** 

* 

*  SUBROUTINE  ZRDATA2 

* 

*  DATA  BASE  2 

* 

I*************************************** 


4ft  4 
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LATEST  REVISION  DATE:  30  SEP  1980 

PROGRAMMED  BY:  GERALD  L.  BECKER 

PHONE:  ORLANDO:  677-7621 

FORT  MYERS:  813/995-79J0 


<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 


THIS  PROGRAM  IS  TO  BE  USED  rflTH  THE  DICOMED !!’!!! M  M !!• I l! ! 
<<<<<<<<<<<<<<<<<«<<«<<<<<<<<<>>>>>>>>>>>>>>»>>>»>>>>>>>>>> 


THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  'SCAN'. 
THIS  SUBROUTINE  DEALS  *ITH  DATA  BASE  2. 

DATA  BASE  2  IS  A  SIN  FUNCTION  IN  BOTH  THE  X  AND  Y 
DIRECTIONS.  THIS  GIVES  THE  EFFECT  OF  ROLLING  HILLS  Is  A 
3-D  SCENE. 


ENTRY  ZRD AT2 ( *  ) 

THESE  EQUATIONS  ARE  USED  TO  DEFINE  ALTITUDE  (IP(3))  AmD 

reflectance 

IPC  3 )  =  S12*SIN(6. 283185^(1 PP(1)+IPP (2) ))/2048 
IR=IP(3)/4  ♦  127 
IFIR=1 
RETURN  1 


SUBROUTINE  ZPDAT3  SINX*SINY  WITH  SUN  SHADING 

PHILIP  GATT 

9/30/80 


FOR  A  FULL  DESCRIPTION  OF  THE  HATH  SEE  THE  MEMO  FROM 
DR.  B.  W.  PATZ  DATED  9/21/80  ON  SUN  SHADING 
NOTE  A,C  DEFINE  THE  SUN  ANGLE 


ENTRY  ZRDAT3(*) 
*1=6.283185/2048 
"2=N1 
A  =  .S 

C=. 8660254 


R  =  255 


HEIGH r=5l2*SlN(Wl*IPP(l ) )*SIN(w2*IPPC2)) 
IP(3)=HElGHT'fSlGN(.5,HEIGHT) 


IR=(-A45l2*wl*COS(*l*IPP( 1 ) )»SIN( *2*IPPC2) )  ♦  C)* 

*  R/SDRT(l+262144*C*l**2*C0S(Ml*IPP(l) )K42*SIN(#2* 

*  I PP  C  2 ) ) *  *2  ♦  W2M2*STNC*1*IPPC1))**2*C0SU2*IPP(2))**2)) 
IFCIR.LT. 0)  IK  =  0 

IF(IR.Gr.255)  THEN 

TYPE*,'IR  .GT.255  =#,IR 
IR=255 


465 


n  ri 


NAVTRAEOU  IPCEN  80-0-001<*-2 


K'MDIF 

IPIR=1 
RETURN  1 
C  ZR0AT4.E0R 

C  CREATED  BY  PHILIP  GATT  AND  HR.  B.  M.  PAl'Z 
C  10/20/80 

C  SlN(X)*StN(G(YJ)  +  NOISE 
C  3(Y)  IS  SMALL  FOR  Y  <  3000 

DATA  A/. 8 52 B7/.B/-.  17  36  4  8/C/. 49 2404/ 

ENTRY  ZRDAT4C*) 

IDENSITY(l)  IS  THE  WORLD  POINTS  RHICH  MAP  TO  ONE  NOISE  pOiNT 
3 ( Y )  IS  SMALL  FOR  Y  <  3000 

C  COMPUTE  THE  HEIGHT 

IPP2=lPP(2)+4500 
I0FNSITY(2)=1A 
X  Z  =  0 

no  1221  IL0P=1,3 

IIX  =  A8S(M0D( (IPP(l)-IOFFl (I  LOP) ) , 1022*IDENSITY ( ILoP) ) ) 
IIY=ABS(MOD( (IPP(2)-IOFF2(ILOP) ) , 1 022* IDENSIT Y ( ILoP ) ) ) 
IFCIIX  .LT.  (512*IDENSITY(IL0P) ) )  THEN  !  1 

IOXfILOP)s  1  ♦  I IX/IDEMSITY(ILOP) 
IXDFX(IL0P)=I0X(IL0P)+1 
IF(IQX(IL0P).EC.512)  IXOF.X  C  ILOP )  *5 1 1 

i  1 

I'OX  (  ILOP  )  s  1023  -  IIX/ 1  DENSITY  (ILOP) 

IXDEX( ILOP) =IOX( ILOP) -1 

1  1 

IODX=MODCIIX,IDENSITYCILOP)) 

I0DY3P0DC 1 1 Y, I DENSITY (I  LOP)) 

.LT.  (512*inENSirY(IL0P)))  THEM  !  1 

1 0  Y  (  I  LOP ) s  1  ♦  TIY/IDENSITY  (ILOP) 
lYDEY(IL0P)sIQY(lL0P)tl 
IF(I0Y(IL0P)  .E0.512)  IYDEY(ILOP)=SU 

1  1 

I Q Y ( I  LOP ) a  1023  -  1  1Y/IDENSITY ( ILOP) 
IYDEY(IL0P)=I0Y (ILOP)-I 

1  1 

ISA  VI ( I  LOP ) sID AT ( IOX(ILOP) , IQY ( ILOP) , ILOP) 
ISAV2(lL0P)sinAT(IXDEX(IL0P),IQY(IL0P),IL0P)*ISAVl(iLpP) 
ISA V3(ILOP)slDAT(IOX( ILOP) rIYDEY ( ILOP) , ILOP) -ISAVj ( iL^P) 
ISAV4 ( ILOP) sIUAT( I XDEX( ILOP ) rlYDEYC ILOP) , ILOP)- 

♦  ISAV 3 (ILOP) -ISA V2C I  LOP) -ISA VI (ILOP) 

DNOl (IL0P)=1./IDENSITY(IL0P) 

DELZsiSA VI (ILOP) +( (IDDX4ISAV2C ILOP) +IDDY*ISAV3( ILOP) ) 

*  ♦IDDX«‘inOY*ISAV4(ILOP)*DNiJi  ( ILOP)  )*DNOl  (  JLOP) 

IF( IL0P.E0.2)  THEN 

lF(lPP2.GT.2*IPP(l)+?50)  THEM 
FACTsfc 

ELSE  IF((PP2.6T.2*IPP(1)4150)  THEN 

FACrsl.+(lPP2-lS0-24IPP(l ) )/20 


ELSE 

ENDIE 

I F  (  HY 

ELSE 

E  N  f)  I F 
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ELSE 

FACT=1 

ENOIF 

ELSE 

FaCT=SCALE(ILOP) 

ENDIF 

IF(IL0P.£0.2)  THEN 
XZsXZ*(DELZ4-12A)*FACT 

else 

XZsXZtDELZ*FACT 

ENDIF 

1221  CONTINUE 
IZ  =  XZ 

C  COMPUTE  THE  REFLECTANCE 
PARTXsO 
PAPTYsO 

DO  3311  IL0P*1,3 
XTFMslSAV4( IL0P)*DN01 ( ILOP) 

PARTIDATX=(ISAV2(IL0P)4-IDLY*XTEM)*DN01(IL0P) 
PARTIDATYs(ISAV3(ILOP)^I00X*XTEM)4DMO1(ILOP) 
I F ( I  LOP  • EQ  •  1  )  THEN 

Xmv=EXP(-IP(2)*.0U006) 

PARTIDATXsPARTIDATXYXMV 

PARTIDATY=PARTIDATY*XMV 

EMDIF 

IF( IL0P.E0.2)  THEN 
CVERSFACT 

ELSE 

CVEP3SCALE( ILOP) 

ENDiF 

CVER1  =IPP(1 )-IOFFl(ILOP) 

CYER2=  IPP(7)-TQFF2(IL0P) 
PARTX=PARTX+PARTIDATX*SIGN(CVER,CVER1 ) 
PARrysPARTY+?ARTIOATY*SIGN(CVERf CVER2) 

3311  CONTINUE 

REMAGaSQRTCl  ♦  PARTX**2  f  PARTY**2) 
IH=25S*(-A*PAPTX-B»PARTYfC)/REMAG 
I F ( I R  .LT.O)  IRsO 
I F ( T R  .GT.  255)  THEN 

TYPE*, 'ERROR  IR  .GT.  255  s'.TR 
IR=2S5 

ENOIF 
IP(i)=IZ 
IFIRsl 
RETURN  l 
C  ZR0AT5 , FOR 

C  CREATED  BY  PHILIP  GATT  ANO  DR.  B.  V.  PATZ 
C  10/20/00 

C  SIN(X)*STn(G( Y) )  ♦  NOISE  AND  LAKES 
C  G(Y)  IS  SMAbt  FOR  Y  <  3000 
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E  nI  T  B  Y  Z R 0* T 5 ( *  > 

DATA  I0FF1,IQKF2  /  1  27 , 69  ,  u  ,  13 , 243 , 0/ 

DATA  SCALP  /. 4, 1.6,3./ 

T0ENSITY(  ILOP)  13  HE  WORLD  POINTS  vHICH  MAP  TO  U\jE 
NJISE  POINT 

SUN  vecnp  FROM  ground  point  TO  SUN  (X,A;Y,d) 

FOR  STARTING  XE  LOCATION  USE  2000 
YE  SHOULD  BE  TESTED  AT  -10350 
A=. 866 
H=-. 25 
C=. 4330125 

SEE  ZRHATA4  FOR  (ABC)  DATA  STATEMENT 


c  compute  the  height 

TPP2=tPP(2)-l65oO 
*1=1 ./3000. 

W=2*3.14t59*Wl*.5 
XNUM=1+(W1*IPP2)**2 
DENOMsl ./(l.*ABS(Wl*IPP2)  ) 

H=(  XNIJM4DEN0M  -.85)  *2*3. 14159*.  o 
IHEIGHT=lOOO*(SIN(w*IPP( 1 ) )*SIN(H)  ) 

XZ  =  0 

IPIL=l  1  TREES  AND  SHRUBS 

IFdHElGHT.LT. 12)  IPIL=2  !  ROCKS  AND  TREES 

IFdHEIGHT.LT. -12)  IPIL=3  I  LAKE  BANK  (TERRAIN} 

DJ  1111  IL0P=IPIL,J 

IIX  =  A!3S(«nn(  CIPPC1  )-I0FFl  (I  LOP)  )  ,  102  2*  I  DENSITY  (  ILOP}  )  ) 
II  YsARS(M0D(  (IPP(2)-IOFF2(TLOP)  )  ,  1  022*  I  DENSITY  ( IL[)P)  )  ) 
IFCIIX  .LT.  dl2*lDENSITY(IL0P)  )  )  THEN  1  1 

I  OX ( I L OP  )  =  1  ♦  ITX/IDCNSITY (ILOP) 

IXDEXC IL0P)=I0X(IL0P)*1 
iFdQx(ILOP)  .E0.512)  IX0EX(IL0P)s51  1 

!  1 

I  OX ( ILOP ) s  1023  -  I IX/IOENSITYCILOP) 

IXDEXf ILOP)sIOX(TLOP)-l 

!  1 

IODX  =  Wi)D(  I IX  ,  I  DENSITY  (I  LOP)  ) 

IDDYS^ODCIIY, I  DENSITY (ILOP)) 

.LT.  (512*IDEMSITY(ILJP)) )  THEN  1  1 

IOY(ILOP)=  1  ♦  IU/IDEnSITY(ILOP) 
IYDeY(ILOP)sIOY(IuOP)+1 
IF(I0Y( ILOP) .E0.512)  I Y DE Y ( I  LOP ) =5 1 1 

!  1 

IOY(ILOP)s  1  02  3  -  TIY/lDENSITYdLUP) 

IYDEY( ILOP) sI0Y( ILOP) -1 

!  1 

I  5 A  V 1  ( 1  LOP )  =  THAT ( 1  OX (ILOP) , 1 Q Y ( 1  LOP ) , I  LOP ) 

ISAV2(  IL0P)  =  IDAT(  IXDEX(  ILOP)  ,IOY  (HOP)  ,  I  LrjP ) -IS  A  V 1  (  lL}P  ) 


else 

en  o  i  e 

I F  (  1 1  Y 

ELSE 

KN  D I E 
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ISAV3(ILOP)  =  I[)AT(  IOX(ILOP)  ,  I Y DEJf  (  ILOP )  ,  I LOP )  -  I S A  V 1  (  TL-jP) 
ISAV4CILOP)  =  IDAT( IXDEX(ILOP) ,IYDEY(ILOP) , I  LOP) 

♦  -ISAV3C ILOP ) -ISA V2( ILOP) -ISA  VI (I  LOP) 

DMOl ( IL0P)=1 ./IDENSITY ( I  LOP) 

OELZ=ISAVl  (ILOP)*(  (  IDDX*ISAV2(IL0P)+IDDY*ISAV3(  ILOP )  ) 

*  ♦  IDOX*IODY* ISA V4C ILOP) *  ON Jl (ILOP) )*DN01 ( ILOP) 
XZ=XZ+DELZ*SCALE(ILOP) 

1111  CONTINUE 

IZsXZ+lHElGHT 
IFI R  =  2 

1FCTZ.LT. -50)  THEM 
IFIRS5 

IF(IDAT(T0X(2) ,  1 9  Y (2) f2).GT.O)  THEN 
IPHsIDAT(laX(3) ,I3Y(3),3)/31 
IZ=(2.5*SIN( (3*IPP(1) +4*IPP( 2) ) *2*3. 14159/120* 

♦  IPHl+l ,25*$IN( (3*IPP(1 )+4*IPP(2) )*2*3. 14i59/ 

*  60+IPH) )*I0AT(IC)X(2) ,  I  0  Y (2) »2)/127-50 

else 

1212  IZ=-50 

E'JDTF 

END  IF 

IP(3)=IZ*70 
RETURN  1 

ENTRY  ZRDAT5 IR  f  * ) 

C  COMPUTE  THE  REFLECTANCE 
PARTXsO 
PARTYsO 

D)  2211  IL0P=IPIL,3 
X  TEM=ISAV4( ILOP)*DN01 (ILOP) 

PARTI  DA TXs(lSAY?( ILOP )  +  IDD/*X IE M)*DN01 (ILOP) 

PARTTDATY  =  (  ISAVK  ILOP)  +  lDDXM,XrEM)  *DN01  (  ILOP) 

1F(IL0P  .EQ.l)  THEN 

XMV  =  EXP(-IPC2)*.0ClQU5) 

PARTIDATXsPARTIDATX*XHV 

PARTinATYsPARTIDArY*XHV 

E  MDIF 

CVERsSCALE(ILOP) 

CVFR1  stPP(D-IOFFKlLOP) 

CVER2=  IPP(2)-TOFF2( ILOP) 

PA9rX  =  PARrX  +  PARTI0ATX*SIGi'!(CVER,CVERl) 
PARTY=PARTY+PARTIDATY*SIGN(CVER,CVER2) 

2211  CONTINUE 

PARTIDATXsPARTX 

PARTIDATYsPARTY 

PAPTHl=2*. 6*2*3. 14159* W1*#1*IPP2*DEN0M 
PARTH2sXNIJM*DF,'IOM**2*W1  *.  b*2*3.  14159 
I F ( I P  P  2  .0 T.  0)  THEN 

°ARTHYsPARrHl-PARlH2 
ELSE  IF  (TPP2  .  l.T.  0)  THEN 

PARTHYsPARTHl  ♦  P  A  R  T  H  2 

ELSE 
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DARTHYsO 

E  JDTF 

2227  PARTRlGX  =  lOOO**l*COS(W*IPP(  1  )  )*S1N(H) 

PARTRTGY=1000*SIN(W*IPP(1))*CJSCH)*PARTHY 
PARTZX=PArTRIGX  +  PARTTDAIX 
PARTZYsPARTR IGY  +  R ART  I  DA  f Y 
Pp'MAG  =  SQRT(  1  *  PARTZX**2  +  PARTZY**2) 
IRs253*(-A*PARrZX-0*PARTZY+C)/REMAG 
IF(IP(7)  .GT.SOO^HEN 

TYPE  *»'TRIGX*Y»PA1’X,Y  =  #, PART  RIGA, PARTRI5Y,PARTIDATX, 

rartioaty 

TYPE  *,'IP(3)=',IP 

TYPE*, 'PArTHI ,PARTH2=' ,PARTH1 ,PARTH2 
TYPE*, 'PARTZX, PARTZYs', PARTZX, PAR TZY 
TYPE* , 'iRs' , TR 
TYPE*,'  ' 

E  N  D I  E 

IFCIR  •  L  T  .  0  )  IR  =  0 
I F ( I R  .GT.  255)  THEY 

TYPE*, 'ERROR  IR  .GT.  255  *',IR 
IR=255 

EYDIE 
RETURN  1 

EJTRY  ZR0AT551R(*) 

COMPUTE  SMALL  WAVES  ON  LAKE 

IF(IDAT(IQX(2) ,T0Y(2) ,2).GT.-J2)  THEN 

CODE  NFGLECTS  PARTI ALS  OF  IDA  T  COMPARED  TO  TRIG  TERMS 

PARTZX  =  3*3. 14159/24*CC0S(IPH+(3*IPP(1)+4*IPP(2)  ) 

*  *2*3.1  41  59/120)  +  C0S(IPH  +  C3*XPP(l)M* 

*  IPP( 2) ) *2*3. 14159/50) )*EXP(-IP(2)*.OoOD 
PARTZY=1 ,33333*PARTZX 

ELSE 

PARTZX=0 
PARTZY=0 

E  JUIF 

REMAG  =  SiRT(l  ♦  PARTZX**2  t  PARTZY**2) 

I«s220*(-A*PARTZX  -M*PARTZY  t  C) /REM A3 
IF(TR  .LT.O)  tr=o 
I F ( I R  ,GT,  255)  THEN 

TYPE*, 'ERROR  IR  .GT.  255  s',IR 
IRS255 

ENDTF 
RETURN  1 
ZR  0 AT4 , FOR 

CREATED  MY  PHILIP  GATT  AND  DR.  6.  W.  PATZ 
10/20/80 

SIN(X)*SIN(G(Y) )  +  NOISE 
G(Y)  IS  SMALL  FOR  Y  <  3000 


E^TRY  ZROATHf*) 
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IOENSITY(l)  IS  THF  WORLD  POINTS  WHICH  MAP  TO  ONE  NOISE  POtNT 
As. 866 
Bs-.25 
C*. 4330125 
As. 866 
BsO 
Cs.5 

C  COMPUTE  THF  HEIGHT 
Wlsi ./3000. 

Ws2*3, 14159* *1*.7 
I°P2=IPP(2)-440O 
XMUMM  +  (W1*TPP2)**2 
OENOMsl ./( 1 .*ASS(W1*IPP2) ) 

Hs(XNiJM*OENOM  - 1 ) *  2  *  3 . 1 4 1 59* . 6 
I  IXsAHS(MdD(  I PP  (  1  )  ,  (  1022*lDENSll'y  (  1  )  )  )  ) 

IIY=ABS(MOO( IPP ( 2 ) , (1022*IDEHSITY ( 1) ) ) ) 

IFCIIX  .LT.  (512*IOEflSITYCl  )  ))  THEN  •  i 

IOX  (  1 )  s  1  ♦  IIX/IDENSITKl) 

IXDEX(l)sIQX(l)4.l 
IP(IQX(1).EQ.512)  IXOEX(l)s51l 
ELSE  ,  j 

IOX  C  1  )  s  1023  -  IIX/IDENSimi  ) 

IXOFX(UsIQX(l)-l 

ExniF  ,  J 

iDDXaMODCIIX.IOENSITyil ) ) 
lOOYsMJOdlf  .IDEMSITY(D) 

IF(  1 1 Y  .LT.  (512*1 OENSITY(l)))  THEN  1  1 

1 0  Y  (  1  )  s  l  ♦  m/IDENSlTYCl) 
lYDEY(l)siani)+l 
lF(IQY(n.E1.512)  IYDEYll)=511 
else  i  i 

lOYClJs  1023  -  IIY/IDENSlTYd) 
lYDEYC l)sI3Y(l )-l 

E^niF  1  ! 

ISA  VI (1 )*IDAT(IOX(1),IQY(1),1)*1.0 
ISAV2C1 )«IDAT(IXDEX(l)#I2Y(l),l )-lSAVl(l) 

ISAV3(1  )  =  IDAT(IOX(l).IYDE<(n,l)-ISAVl  (1) 
ISAV4(l)siDAT(lXDEX(l), IYUEY(l),l)-ISAV3(l) 

*  -ISAV2(l)-ISAVl(l) 

DN01 ( l)sl . /IDRNS I TY( 1 ) 

DELZslSAVi (1 )+((TDOX*ISAV2( 1)*IOOY*ISAV3( 1)) 

*  +I0r>X*I0DY*ISAV4C  l  )*ONOl  (  1)  )*0n31  (1  ) 

IP(3)s5l 2*(SIN(W*IPP(1))*SXM(H))  *  DELZ 

C  RETURN  1 

C  EH TRY  ZR0AT4IR 

C  COMPUTE  The  REFLECTANCE 

X  rEM  =  ISAV4(  1  )*0N(J1  (1  } 

PARTIOATXs(ISAV2(l)tIDDY*XTEM)*DNDl(i)*ISlGH(l#IPP(l)) 
PARTI  OAT Ys (ISAV3(1 )*I DDX*XTE*)*DN01 ( 1 )*ISIGN(1 ,IPp( 2)1 

PAR  THIS?*.  6*2*  3. 14159*W1  *  «  1  *  I  PP2*DENO'i 
PARTH2  =  X'»UH*DEH0A**2*W1  *.t>*2*3. 1  4159 
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IF(IPP(2)  •  GT .  01  THEN 

PARTHYSPARTH1-PARIH2 
ELSE  IF  (£PP(?)  .  f.T .  01  THEN 

PARTHYsPARTHl  ♦  pARTH2 

ELSE 

PAPTHYSO 

E  N  D I F 

PART«IG<  =  5)12*«i*CaS(W*IPP(l))*SIN(H) 
PARTRIGY  =  51?*SIM(  «!♦  IPP(  1  )  )  *COS  C  ril  ♦PAR TM Y 
PARTZX  =  “APTPli;X  ♦  PART  IDA  IX 
PARTZYsPARTRIGY  ♦  PARTIOATY 
REMAG=S1«T(1  ♦  PARTZX442  ♦  PARTZY4M2) 


IRs255*(-A^PARTZX  -RMPARTZY  ♦  C)/RE«AG 
If(IP  .LT.O)  IRsO 
I F  (  1 R  .GT.  255)  THE"! 

TYPES 'ERROR  IR  .GT.  255  r',IR 
lR=255 


E  N  D  T  F 
IFIR=l 
RETURN  1 
END 


C 

C 


SUBROUTINE  CRSIFA(LX,LY,HX, BY, ♦,♦,♦) 

n 

c 

integers  inx,iny,lx,ly,hx,hy 

COMMON  / 3  R  N  n /  INX.INY 
CJRNFR  TEST 


TF(((INX  .EQ.IX)  .UR.  (INX  ,E3.  HX))  .AND. 

♦  ((IMY.EQ.LY)  .OR.  (INY  .EU.  HY)))  RETURN  1 


SIDE  TEST 

I F ( (INX  .KQ.LX  )  .UR.  (INX  .EG.  HX))  RETURN  2 


FACE  TEST 

IFICINY  .EO.LY)  .OR.  (INY  . EQ.  BY))  RETURN  3 


return 
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k  • 

l 

! 

t 


F  i  D 


S JRRHUT  IMF  GNO  (  LX,  LY,HX,H  If  ,♦,*,*) 


integer *2  inx, iny,lx,ly,hx,my 
cimmdn  /grnd/  inx,iny 


I F  (  1  N  X 

.lt. 

LX) 

RETURN 

1 

IF( INX 

•  ST  * 

HX) 

RETURN 

2 

IF(  INY 

.l*T. 

LY) 

RETURN 

3 

I F ( IN  Y 

.GT. 

HY) 

RETURN 

3 

c 

return 

E  ID 


h  w 


* 
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APPENOIX  E£ 
PGFILTER.FOR 


C  PGE I LTER •  FOR 

C 

subroutine  finfil 

I  <CLUDE'PSCnH[>4T.EOR' 
iNCLUOE'Pr.BIlF.FOR' 

n 

c 

100  T YPS* , '  dE  APE  IN  THE  FILTER  STAGE ' 

I  FI LTEP  t s 1 
DO  200  1*1  ,  TFUiDI'4 

03  200  I  *  t  ,  I F I L  D I M 
K|)IV«IC1T(T,J) 

IF  (KOIV.RQ.O)  KDIVsl 

IF(<0IV.GT.37)  TYPE*, 'FINFIL  ICNTs' , KOI  V , ' AT' , I , J 
I  TE4PtJF(I,  J)  =  ITE  4&WFCI, JJ/KOIV 
200  CONTINUE 

TYPE*, 'BUFFER  IS  FILTERED  BY  FILTER  1' 

RETURN 


ENTRY  F I L T 2 

TYPE*,'  READ  OF  FILE  22  kEQUIRED?  (YES*1)' 

ACCEPT*, IREAD2 
I F  (  T  RRA02  .  Eil ,  1  )  THEN 

TYPE*, 'READING  FILE  21  T3  BUFFER ' 

READ(21,*)  ITEM9UF 

TYPF*, 'READING  FIlF  31  TD  ICnT' 

REA0C31,*)  INT2 
ELSE  IF(  IFUTER2.E3, 1  )  THEN 

TYPE*  ,  'ERROR  — HIDE  COMPLETED:  CHECK  STATUS' 
RFT"RN 

ELSE  iFClFlLTKrtl.Ei.O)  THEN 

ryPF*,'MO  OPEW  A  T I  ON  AIj  FILE  FOUNDS  CHECK  STATUS' 

return 

END  IF 
IFILTKk?=1 

DO  ill  TYBSsSj  2, 1 ,-l 
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DO  222  t  X  BS= 1,512 

IF(lC'4T(tXBS,lYHS).NE.0)  GOTO  222 

JCOUMT=0 

JSUM=0 

PO  300  KsiYBS+1 , I YOS-1 , -t 
0]  444  LSIXRS-1 ,  IXBS+1 

tF((L.LT.l).n«.(L.Gi.5l2))  GOTO  444 
IF(  (K.LT.l  )  .UR.  (K.Gr.512)  )  GOTO  300 
IFUCUT(K,L).E0.0)  GO  TO  444 
.JCOIJNTsJCOUNTtl 
JSUMsJSUM  +  irEMRilFCK  ,L) 

C JNTJNUE 
CONTINUE 

if( jcouMr.Eo.o)  jcount=i 

I  TE»XBUF  ( IXBS,  I YBS)  sJSUM/ JCOONT 

TCNT( IXBS, IYBS)S-1 

CONTINUE 

TYPE*,'Fl|,  2  LlNE',IYBS 

CONTINUE 

RETURN 


ENTRY  CLEAR 
00  500  J  =  1  #512 
PJ  500  1=1,51? 

ICNTC I, J)=0 
I  PEMblIF(I,J)=0 
CONTINUE 

TYPE* , 'BUFFERED  CLEARED' 

RETURN 

END 


f 
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APPENDIX  EE 
PGLJGLOAD.FOR 


1000 

10 

20 

30 

40 

50 


subroutine  logload 
I'JCLUDE'PGCO^nAT.FOR' 

I  •ICLUDE'PGRlJF.FOR' 

KCOONTsKCrjIlNT  +  l 

IE(  (IXHS.NE.  IXSfU.OR.  (IYRS.;»E.IYS3)  )  THEN 
lP0WEPs2 
KCOUNTsl 
IXSO=TXBS 
lYSO=IYBS 
Goto  iooo 

EbSE  IF(lP0wER.E3.KCUUNn  THEN 
lPnwEPs2*IPQWFR 

GqTO(50,10,20,30,40) ,IF1R  •  GET  REFLECTANCE  Ir 

call  zKnAr5i«(*50) 
call  zrgndi*50) 
call  zrrdf(450) 

call  zrpat55IR(*50) 

Crjrj  TlfKJE 

IF( CIXR3.GT.IF!LDI*).0R. (iXdS.LE.O) )  THEN 
TYPE*. 'TXBSs'.IXBS, 'LOGLO' 

R  E  T 1 1 R  r; 

else  TF(( IYaS.GT.IFILDIH) .OR. CIXBS.LF.O) )THEN 
TYPE*, 'IYBSs'.TYBS, 'LQGLD' 

RETURN 

E  N  D I F 

IF( (IR.GT.2551 .OR. ( IP . LT . 0 ) ) THEN 

TYPr*, 'LOGLOAD  2150  IRs',IR 

return 

END  IF 

ITFviUuF(  IYBS,  IX6S)  =  ITc,MBUF(IY9S,  IXBS)+IR 
ICNTI  IYBS,IXBS)slCNr(lYBS,  IXBS)-»1 
IFCICNT(  IyBS,IXRS).LT.O)  TYPE* , 'PGLOGLOAD  ICNT', 

ICNT(IYRS,1XHS) 

I F ( I CNT ( I YBS »  T  X  B  S ) . GT . 3  7 )  TYPE*. 'PGLOGLQAU  ICNT', 

ICNTCIYHS.IXBS) 

IF(IC JT( lYHS.TXPSJ.Kj. 126)  TYPE*, 'WARNING  ICNT  .Gr.126' 
E  JO  IF 
RETURN 
E  J  0 
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APPENDIX  EG 


PGMAIN.FUR 


PG” AIN. FOR 


include  'pgcomdat.for' 

INCLUDE  'PGftUF . FOR  # 

DATA  IRUN,IFILTER1,IFILTER2  /Q,0,0/ 

IFILDIM  IS  THE  FILE  DIMENSION  AND  THE  SCREEN  DIMENSION  ♦  1 
IF  *E  NHISH  TO  HAVE  A  2*SCREEN  OF  DATA  PER  LINE  THEN  IFILdIm* 
1024  AND  ANGLEFACT=2  ??  SINCE  ANGLEFACT  IS  A  FUNCTION  OF  NX 

TYPE* , 'WHAT  DIMENSION  DO  YOU  RANT  FOR  THE  SCENE  NORM*5l2' 
ACCEPT*, IFILDIM 
IFLDM02SIFILDIM/2 


TYPE*, 
TYPE*, 
TYPE* , 
TYPE* , 
TYPE*, 
TYPE* , 
TYPE* , 
T/P£* , 
TYPE*, 
TYPE* , 
TYPE*, 


ENTER  COMMAND  BY  NUMBER:  ' 

Cl)  INITIALIZE  SCENE  AND  RUN  MAIN  (NOTES' 
FILTER  1  EXECUTED  AUTOMATICALLY)' 

(2)  AN ALYSlZE  SCENE' 

(3)  RUN  DICOMED  PICTURE  OF  BUFFER' 

(4)  WRITE  BUFFER' 

(5)  WRITE  IC.NT' 

(6)  CHECK  STATUS' 

(7)  EXECUTE  FILTER  2' 

(8)  STOP' 

(9)  READ  ITEMBUF  AND  INT2' 

I Com  a  n  o 


ACCEPT*,  ICOMANO 

GOTO  (1 1,6, 3), 44, 55, 66, 77, 88, 99)  ICO 
CALL  RUN 
GOTO  5 

TYPE*,'  ERROR  IN  COMMAND  CODE--TRY 
GOTO  S 

CALL  A  N  S  C  N  3  D 
GOTO  S 
CONTINUE 

TYPE*, 'READ  REQUIRED  ?  YES=1' 
ACCEPT*, IYES 

IFCIYES  .EQ.  1 )  CALL  READ 
CALL  PGCAM 
GOTO  5 
CONTINUE 


ICOMAND 


AGAIN' 
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TYPE*,'  -Urn  FILE  on  YOU  A 1  n  wRTTE.  ITEMBUF  InT? 

*  (20:2'))' 

ACCEPT*,  IFILE 

TYPE*,'  WRITING  ITEMBUF  I«TO  FILE  ',IFILF 

WRITE  (I  FII,K,  1000)  (  (ITEM0UFCI,  J)  ,1  =  1 ,  IFILOI-D  ,  Jsl , 

IFILDIM} 

goto  5 

55  c  jmtnue 

TYPE*,'  oHICH  FILF  DO  YOU  WANT  TO  WRITE  ICNT  INTO  (30:39)' 
ACCEPT*  ,  I  FI  F,F. 

TYPE*,'  WRITING  ICNT  INTO  FILE  ',IFILE 

WRITE ( T FILE. 1000)  ( (INT2(1,J) , 1=1 , IFILDIM) ,J=1 , 1FLDW02) 

GOTO  5 

66  TYPE*,' 

TYPE*,' 

TYPE*,'  STATUS  VARIABLE  CHECK ' 

TYPE*,'  ' 

TYPE*,  'IRUNs'  ,IPIJN,  'I  FILTER  1  =  ',  IFILTER1 ,  '1FILTER2  =  ',IFIlTeR2 
TYPE*,' 

TYPE*,'  ' 

GOTO  5 

77  CALL  FJLT2 

G  )T05 

88  STOP 

99  CALL  READ 

GO  TO  5 

1000  F0RMAT(66A2) 
end 

SUBROUTINE  PEA!) 

I JCLUOF'PGBUF.FnR' 

IICL"OE  'PGCOMDAT.FOR' 

TYPE*,'  WHICH  FILE  00  YOU  WANI  TO  READ  ITEMBUF  FROM  (20*29)' 
ACCEPT* , IFILE 

TYPE*,'  READING  ITEMBUF  FROM  FILE  ', IFILE 
RE AO (I  FILE, 10  00)  (( ITEMBUF! T,J), 1  =  1, IFILDIM), J  =  l, IFILDIM) 
DO  100  1=1,500,100 
DO  100  0=1,500,100 

TYPE*, ' I  TEMP UF(',J, =',ITEMBUF(I,J) 

100  CONTINUE 

TYPE* , 'READING  INT2  FROM  FILE  ', IFILE 
TYPE*,'  T NT?  IS  EQUIVALENCE!)  TO  ICNT' 

READ  (IFILE, 1000)  ( ( INT2(1,J),I=1 , IFILDIM) ,J=1 ,1FLDm02) 
D)  101  1=1,500,100 
00  101  0=1,500,100 

TYPE*,' ICNT ( ',1, ', ',!,')=', ICNT (J, I) 

101  CONTINUE 

TYPE*, '00  YOU  WANT  TO  SCALE  ITEMBUF  YES=1' 

ACCEPT*, I  YES 
MIN0=lOOv) 

IF(IYES.NE.l)  GOT)  400 
M AXB=-1 000 
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TYPE*  ,  '  INPUT  SCALE  ,MAX  NORMsf>,2bS' 

ACCEPT*, SCVIU,SCMAX 
DO  200  Isl , IFILDIM 
no  200  J=1,IFIL0IM 


1000 


IE(ITEMRJE(  I,  J)  .Gt.MIiJB)  M I NB= I TEMBUF C I , J ) 

IE(  ITEMR!JF(I,  J)  .  Lfc.  MAXB)  MAXB=ITEmBUF( I , J) 

CONTINUE 

SCALE=(SCMAX-SCwI.\i)/(MAXB-MINB) 

00  300  1=1, IFILDIM 
DO  300  0=1, IFILDIM 

ITEMBUFC I ,  J)s(  ITEMBUFd  ,  JJ-MINB)  *SCALE  +  SCMlN 

CONTINUE 

RETURN 

CONTINUE 

TYPE*, 'DO  YOU  WANT  TO  ELIMINATE  ALL  VALUES  <U,>?bb  YeSsI' 
ACCEPT*, I  YES 
IFCIYER  .NE,  1)  RETURN 
JC0UNT=0 
LC0UNT=0 

DO  500  1=1, IFILDIM 
DO  500  0=1, IFILDIM 
IF(ITEMRUF(I, J) .51,255) THEN 
JCQUNTs  JCOUnT* 1 
ITF.MetJFCI,  J)=25b 

ENDIF 

IFCITEMBUFI  I ,  J)  .LI’.O)  THEN 
LC0UNT=LCUUNT*1 
I  TEMSl'F  (  1 , J ) =0 

EnDIF 

CONTINUE 

TYPE*,'  3UF  .GT,  255  =',JCDUNT 
TYPE*,'  UUF  , L T ,  0  = ' , LC OU N T 

RETURN 

F  1RMATC56A2) 

E  30 

subroutine  input 
INCLUDE  'PGCOMOAT.FOR' 

TYPE*, 'INPUT  DATABASE  CHOICE  lsZROATA , 2=Z«DAT2 , 3=ZRoAt3' 
TYPE*  ,  'ZRDAT4s4,7.RDATS  =  5' 

ACCEPT* , I0ATBAS 

IFC ( lOATSAS.LT, 1 ) ,  OR  . ( IDATBAS.G1.5) )  GOTO  109 
TYPE*, 'INPUT  STARTING  SCANLINE  , ENDING  ' 

TYPE*, 'INPUT  A  FACTOR  TO  DIVIDE  THE  EYE  COORDS  BYE' 
TYPE*, 'INPUT  SCALE  FACTOR  FOR  ANGLE  BETWEEN  SCAN  LlNFs' 
TYPE* ,' INPUT  iCASsl , 2 , 3  TO  SELECT  A  ROTATION.  MATRIX' 
TYPE*, 'APROXI NATION' 

TYPE*, 'INPUT  I SC ALE  FOR  THE  ROTATION  MATRIX' 

ACCEPT*,  I  ST ART, I  END, ID  I  VI , ANGF ACTOR, I  CAS, ISC ALE 
TYPE*, 'INPUT  THE  EYE  LOCATION  XK,YE,ZE' 

TYPE*, 'INPUT  THE  SCREEN  CcNIER  IUS,TVS,IWS' 
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TYPE* , ' INPUT  the  SCREEN  DIMENSIONS  (LENGTH)  LX,LY' 
ACCEPT*, IXE,IYE,IZE,IUS,IVS, IwS,LX,LY 
TYPE*, 'INPUT  PITCH, BANK, HEADING  IN  DEGREES' 

ACCEPT*, PITCH, HANK, HEADING 

IPCCIDArBAS  .f-0.4).DR.(IDATSAS  .  ED .  5  )  .  OR  .  (  I  D  ATB  AS .  EG  .  1  )  ) 

*  THEN 

TYPE*, 'DO  YOU  WANT  TO  READ  IN  TEXTURE  NOISE  JDAT1?YeSs1' 
ACCEPT*, IYES 
IE(IYES.EQ.l )  THEN 

T YPE* , '  WHICH  PILE  DO  YOU  WANT  TO  READ  nOTSe' 
type*,'  from  (40:49)' 

ACCEPT*, IFILE 

TYPE*,'  HEADING  JDAT1  FROM  FILE  ', IFILE 

REAO( IFILE, 5005)  ( ( JD AT  1 ( I , J ) , 1  =  1 , 5 1 2 ) , J  =  1 , 25 6 ) 

ENDIF 

TYPE*, 'DO  YOU  WANT  TO  READ  IN  TEXTURE  NOISE  JDAI2,YeSs1' 

ACCEPT* , I YES 

IF ( I  YES . £Q. 1  )  THEN 

TYPE*,'  WHICH  FILE  DO  YOU  WANT  TO  READ  NOISE' 
TYPE*,'  FROM  (40:49)' 

ACCEPT*, IFILE 

TYPE*,'  RE AO  I NG  JDAT2  FROM  file  ', IFILE 

READC IFILE, 5005)  ((JDAT2(I,J),I=l,5l2),J=i,25$) 

ENDIF 

TYPE*, '00  YOU  WANT  TO  READ  IN  TEXTURE  NOISE  JDAT3,YeS=1' 
ACCEPT*, IYES 
IF(IYES.EQ.l)  THEN 

TYPE*,'  WHICH  FILE  DO  YOU  WANT  TO  READ  NOISE' 
TYPE*,'  FROM  (40:49)' 

ACCEPT*, IFILE 

TYPE*,'  READING  JDA  T3  FROM  FILE  ', IFILE 

REAO( IFILE, 5005)  ((JDATi(I,J), 1=1, 512), J=l, 25ft) 

E  NDIF 
ENDIF 

5005  F0RMAT(6bA2) 

RETURN 

ENTRY  OUTPUT 

WHITE( 10,*) , 'ROT( 3, 3 ) , PRO J ( 4 ) , N AD  I R= ' , ROT , PRO J , N A Dl R 

WRITE (10,*) , 'C0R(4, 3),AA(4,2)s',C3R,AA 

WHITE (10,*) ,'CW(4, 3)=',CW 

*RITE(10,*)  ,  'ANGLE  BETWEE«E  SCANS*', ANG 

WRITE (10,*) ,'IXE,IYE,IZE=',1XE,IYE,IZE 

WRTTE(10,*), 'SCREEN  CENTER  LOCATION  IN  EYE  COORDS', 

*  IUS,IVS,IWS 

WRITE(10, *) , 'SCREEN  DIMENSIONS  LX , L Y , NX , N Y* ' , LX , L Y , NX . N Y 

WRITE (10,*), 'PITCH, HANK, HEADING*', PITCH, BANK, HEADING 

WRITE ( 1 0, *), 'ICA5,IDIV1=',ICAS, IDI VI 

WRITE (10,*) , 'I  SC ALE, ANGF ACT= ' , I  SC ALE , AN GF AC TOR 

WRITE (10,*), 'ICONST, JCONSTX, JCOVSTY®', ICONST, JCONSTX, 

*  JCONSTY 
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WRITE  (10,*)  ,  'CMAG(4)  ,CAN0(4)=',CMAG,CANG 
TYPE*, 'R0T(4, 3) ,PR0J(4) ,  N ADI R  =  ' , R OT , PRO J , N ADlR 
TYPE*, 'COR (4, 3) , A  A ( 4 , 2 )  =  ' , COR , A  A 
TYPE*, 'CN(4,3)=',C* 

TYPE*, 'ANGLE  8ETWEEME  SCANS=',ANG 
TYPE*,'IXF,,IYE,IZEs',IXE,IYE,IZE 

TYPE*, 'SCREEN  CENTER  LOCATION  IN  EYE  COORDS ' , I  US , I Vs , r WS 

TYPE* , 'SCREEN  DIMENSIONS  LX, LY, NX, NY*', LX, LY, NX, NY 

TYPE*, 'PITCH, RANK, HEADINGS', PITCH, BANK, HEADING 

TYPE*, 'ICAS, IDIVls', I  CAS, IDIV1 

TYPE* , 'I  SCALE, AHGEACTs' , ISC ALE , AN3F ACTOR 

TYPE*, ' ICONST, JCONSTX, JCONSTYs', ICONS!, JCONSTX , JCONsTy 

TYPE* , 'C*AG( 4) , CANG(4)=' , CM AG, CAN  3 

RETURN 

ENTRY  TESTPR 

C  THIS  ROUTINE  VlLL  COMPUTE  THE  EXACT  SCREEN  COORDINATES  OF  A 
C  WORLD  PT. 

103  TYPE*,'  DO  YOU  WANT  TO  TEST  THE  PROJECTION  PROCESSOR  ?' 

TYPE*, 'N0=0' 

ACCEPT* , IANSPR0J5 
IFCIANSPROJS  .NE.0)  THEN 

type*, 'input  x,y ,z  in  nadir  centric  coords' 
accept*, ixp,iyp,izp 

UP0INT=(R0T(1,1)*IXP  +  R0T(1 , 2 ) *  I YP-ROT ( 1 , 3 ) * 

*  (IZE-IZP)) 

VW  =  (P0T(2,1)*IXP*R0T(2,2)*IYP-R0r(2,3)* 

*  ( IZE-IZP) ) 

WP0irJT=(R0T(3, 1  )*IXP  +  K0T(3 , 2  )  *  I  YP-ROT  (  3 , 3  )  * 

*  (IZE-IZP)) 

KssICONS r*UPOINT/VVV  -JCONSTX 
YSs-ICONST*)*POINT/VVV  -JCONSTY 
IXBS=(2*(XS*1)  +NX ) / 2 
IYBS=(2*( YS*l )  ♦  N  Y ) / 2 

type*, 'projs  test  x,y*',iybs, ixrs, 'ip=',ixp, 

*  TYP,IZR 

JO  TO  103 

E  JDTF 
RETURN 
E  JD 


l 
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SUBROUTINE  RUN 

C  THIS  ROUTINE  NlLL  CONTROL  THE  SEQUENCING  OF  THF  REAL  SCAN 
C  ALGOR  IT  IMS. 

INCLUDE  'pGCOEDAT.FOR' 

1  JCLl’OF  'PGRUF.F  OR' 


4R3 


Call  Cl EAw 
CALL  I*  -ur 
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CALI,  GF  r set: *1 F 
CALL  OUTPUT 
CALL  TE.STPR 

DO  14')  LlMEsl  ,  IEND+1 
CALL  SLCREAX 

IF(LINE.GT.IFND)  IFINISHEDsl 
IF  (IFlNlSHFO  ,FJ.  1)  THEm 

TYPE*, 'THATS  ALL  FOLKS' 

4RITE (10,*), 'FIRST  SCAN  L Ns ' , I  ST ART , ' L ASTs ' , LINE 
TYPE*, 'FIRST  SCAN  I, Ns  '  ,  1ST  ART ,  '  L  AST  =  '  ,  LI  N  R 
CALL  FINFIL 
RETURN 

FMDIF 

I^dFIRST  ,FQ,  1)  IFIRSTsO 
IFCLINE  .LT.ISTART)  GOTO  140 
CALL  VIS 

CALL  SCAN(*160)  1  RETURN  TO  160  IF  HORIZON  LIMIT 

C  IS  PASSED 

I  lEISHTalZP 

iF(tCOOE.GT.NCR)  IZP=IZP-IC0DE 

CALL  PR0JFCTI0N(*1 30)  1  RETURN  TO  130  IF  SCREEN 

C  BOUNDARY  IS  PASSED 

CALL  LOGLOAD 
60  L0*(1)=IXP 

L0W(2)=IYP 

C  INCREMENT  UP  A  W ALL 

IF  (ICOOE  ,C,T.  NCR)  THEN 
IXPINC=0 
IYPINCSO 
IZPINCSNCR 

70  IZPssIZP+NCR 

CALL  INCPEMENT(*1 30,*200)  !  130  IF  END  OF  SCREEN 

D  IF( (1XBS.GT.IFIL0XM) .OR. (1XBS.LE.0) )  TYPE* , 'IXBS*'  , 

*  I  X  B  3  »  'RIJN' 

D  IF( (I YBS.GT. IFILOIM) .OR. (1YBS.LE. 0) )  TYPE* , ' I YBS= ' , 

*  I YBS  t 'RUN ' 

ITF4P  JF(IYBS,  JXHS)=ITEM6UF(IYbS,IXBS)3-lR 
ICNT( IYBS,IXrtR)=ICNT(IYBS,IXBS)fl 
IFC (IZP+NfR)  . LE.  IHEIGHT)  GOTO  70 
ENDIF 

L  )R  (  3  )  s  I ZP 

CALL  S C A •  v' (  *  1  6 0  )  *  160  IF  HORIZON  LIMI  T  IS  PASSED 

I (FIGHTsIZP 

I F ( I  CODE  .GT.MCR)  IZPsIZP-ICODE 
I  <  P I N  C  *  I  X  P  -  L  0  w  (  1  ) 

I (PIVC=t*P-L0w(2) 

IZPINCSTZD-L0W( 3 1 

2ALL  INCRF.MENT(*1  )0,  *200)  11  30  IF  END  OF  SCREEN 

CALL  logload 

GOTO  60 
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130  CONTINUE 

0  TYPE*,LINe,IXBS, IYBS,IP,SJMANG 

ISKY=0 

140  ontinije 

RETURN 

C  PAIMT  TRR  SKY  BACKDROP 
160  CONTINUE 

IP(  3)  =  IEC  D-NCR+C  IF(lCASE)^(LOW(3)-IE(3))+LOWCICASE)/2)/ 

*  LOW( ICASE) 

ISKY=1 

Xs?50*EXP(-IZP/45000.) 

YsRXP(-NCR/4SOOO.  ) 

I R  =  X  *  Y 

IZPIMCsIZP-LDa.(3) 

I<PI^C=IP(1 )-LOW(l) 

I YPT*C=IP(2)-LUW(2) 

CALL  I^CRRMRNTC*130,*?00) 

T  TE^BUFC IYPS,IXBS)sITRMBHR(IYBS» IXBS)  +  IR 
0  IF( C IXPS.CT. IFTLDIM) .OP. (IXBS.LE. 0)  )  TYPE*, 'IXBS=',  I X  3S , 

*  'RUN  7300' 

D  I F  C ( IYBS.GT. IFILOIM) .DP. ( IYBS.LE.O)  )  TY PE* , ' I Y6S= ' , I Y *S , 

*  '  R U :•«  7  300' 

ICMTC tY*S, lXBS)sICNT(IYBS,IXaS) *1 
InCSKYsNCR 

IXP^C  =  0 
I YPIWC=0 

IZPTNCsnrSKY 
170  IZP=1ZP+IUC5KY 

CALL  XMC«RMRNT(*1 30, *200)  1130  IF  END  OF  THE  SCREgN 

0  IRC (IXBS.GT. IKILOIM) .OR. C iXBS.LE. 0) )  TYPF* , ' IX BS* ' , I X aS , 

*  'RUN  B  40  0  ' 

D  IRC  (TYHS.GT.  IFU.OIM)  .OR.  ( 1YBS.LE.  0)  )  T  YPE*  ,  '  I  YBS  =  '  ,  I Y  *S  , 

*  'RUM  B  40 0  ' 

IRC  C IXBS.GT. IFILOIM) .OP. CIY6S.G1. IF  I LO I H ) . OK . C I  X BS . LE . 0 ) 

*  . )R. C IYBS.LP.O) )THRN 

TYPR*, 'ERROR  COORDS  OUT  OF  RANGE  " SK Y" ' , 1XBS, I Y^S 
ELSE 

lTEM‘)UFClYBS,IXBS)sirE'3BJFClYBS,IX9S)*IR 
irNTClYBS,.TXBS)aICNTClXPS,IXtiS)-U 
R  N  DIF 
XsX*Y 
IR  =  X 

GOTO  170 
200  RETURN 

END 
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APPENDIX  EH 
PGPROJ. F  J» 


PJPRPJ.FOR 

MEMORY  EXTENSIVE 

SUBROUTINE  PROJECTION!*) 


PHILIP  GATT  (105-496-4741 ) 

R/27/R0 

THIS  ROUTINE  COMPUTES  THE  SCREEN  LOCATION  OF  A  VISITS 
P  )  I  N  T 

INPUT  VARIABLES  ARE 

(  I V  S  OR  I Z  (  3  )  #  T  P')  1  "I  T  (  i),IPINC(3),IEYE(J),IRnT,IROT(3,3)) 

IHORIZ  s  POSITION  OF  HORIZON  ;<vOKLD  COORDINATES 
IP  s  POSITION  OF  VISIBLE  POINT, *ORLD  COORDINATES 
I  PIN  Cs  I  'VC  REMENTAL  DISTANCE  BETWEEN  SUCCESSIVE  POINTS 
TJ  WORLD  COORDINATES 
IE  s  POSITION  JF  rYF;*ORLU  COORDINATES 
TROT  =  ROTATION  MATRIX  DUE  TO  EQUATIONS  JF  MOTION 
FROM  THE  INITIAL  T'J  THE  PRESENT  ORIENTATION 

OUTPUT  VARIABLES  ARE  (IXBS,IYBS) 

I<RS,TYR3  =  SCRFEN  SUFFER  CO-ORDINATES  OF  THE  VISIBLE 
POINT 

CONSTANTS  are  ( I  VS, L, N , 1 SCA LE, 1CJNST) 

IVS  =  DISTANCE  FROM  EYE  TJ  SCREEN 
L  =  LENGTH  of  THE  screen 
H  s  DIMENSION  Of  THE  SCREEN  IN  PIXELS 
I  SCALE  =  SCALE  «-ACTOR  FOR  TRnr 
r  instsi vs*n 
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KEY  VARIABLES  ARF  ( I XS  ,  I  YS ,  I  NCXS ,  I NC  X  S  ,  JERRX  ,  JERK  Y  ,  I  RFSOL ) 

I  X  S  ,  I Y  S  =  SCREEN  CO-ORDINATES  OF  A  VISIBLE  POINI 
I  N  C  X  S  ,  I  J  C  Y  S  =  *1  -1  OP  0,  WHICH  INDICATE  I He  DIRECTION 
£ N  JW H I CH  THE  SCREEN  COORDINATES  iXS.IyS 
APE  I'JCREMEWTED/DECREMENTEO 
JERRX, JERRY  =  THE  ERROR  BETWEEN  THE  INTEGER  SCREEN 

COORDINATE  and  THE  REAL  SCREEN  COORDINATE 
PROJECTED  BACK  TO  THE  VISIBLE  POINT 
IRESOL  =  THF:  RESOLUTION  BETWEEN  SUCCESSIVE  POIMIS 

THIS  ROUTINE  USES  FOUR  CO-ORDINATE  SYSTEMS 

1)  THE  WORLD  CO-ORDINATES  X ,Y ,Z 

2)  THE  EYE  CO-ORDINATES  U,V,W 

n  T«E  SCREEN  CO-ORDINATES  rXS,IYS 

4)  THF:  SCREEN  BUFFER  CO-ORDINATES  IXBS,1YBS 

THE  SCREEN  IS  IN  THE  U,W  PLANE,  AND  THE  V  AXIS  PASSES 
THRU  THE  CENTER  OF  THE  SCREEN.  THE  SCREEN  HAS  X  AND  Y 
AXIS  WITH  THE  ORIGIN  IN  THE  CENTER.  THE  X  AXIS  IS  In  THE 
U  DIRECTION  THE  Y  AXIS  IS  IN  THE  -*  D I RECT I  ON . SEE  FlG  1A 

THE  SCREEN  BUFFER  HAS  THE  SAME  ORIENTATION  AS  THF.  SCREEN 
BJT  IT#S  ORIGIN  IS  IN  THE  UPPER  LEFT  HAND  CORNER.  SpE 
FIG  1  H 


Cl ,1 )  C  l,N)  C-N/2r-N/2) 

*****«*«**********>  XBS  !-- 

*  :  s 


(  (N-l)/2, .N/2) 


* 

*  YBS 


**********>  YS 


(  N  ,  1  ) 


( N , N )  ((H-l)/2,-N/2)  ( (N-l )/2,  CN-1 > / 2 ) ) 


FIG  1A 


FIG  IB 


FOR  A  FULL  DESCRIPTION  JF  THE  MATHMATICS  SEE  THE  MEMO¬ 
RANDUMS  DATED:  ? 8  NOV  79?  1  FEB  RO?  13  FEt3  HO?  30  ApRlL 
80?  1  MAY  80  PERTAINING  TO  THE  PROJECTION  PROCESSOR 


INCLUDE  'PGCOMDAT.FOR 
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i* 

P 


i 


n  ^ 


P 


I  <11  VNCRsliUVl*Nf« 

I  OLORESOLslREROl, 

C  TRANSLATE  HORIZON 
IZHT=IZH-IZE 
C  TRANSLATE  POINT 

IZPr=TZo-TZF 

C  ROTATE  JADIR 

I  JMADIRslROTd,  1  )*(-IZE) 

TYNADrR=lROT(3,2)*(-rZE) 
lNNADtR  =  lPOT(3, 31M-IZE) 

C  ROTATE  HORIZOJ 

UHDRlZslRnTd  ,  l)*XH-HROT(2,l)*yrt-HROT(  3, 1  )*IZHT 
WHORIZsTRllK  1  ,  3}*XH*IROT(2, 3 1 *Y rt+TROT ( 3 , 3)*IZHT 
V  3DRIZ=IROT(l  ,2)*XH+IROT(2,2)*Y4*IROT(3,2j*IZHT 
C  ROTATE  FIRST  PJINT 

I1JPOIN  r*(  IRDT(  1 , 1  )*  tXP+IROT(2, 1  JMYP  +  IROTC  3, 1 ) ♦ I ZPT ) / 1  01 vN«R 
IV=(  C1R0T(1  ,  2)*lXP  +  lROr(2,2)*dP4-IRor(  3,2)*IZPT)  )/ID1VMCr 
I^POlNfsciROTCl, 3)*lXP+IROT{2,i)»IXP+IROT(3,3)*IZPr)/lDlvNcR 

C  COMPIJTE  SION  FOR  INCREMENTAL  POINTS 

SONsSIGNCl . f VNADIR)*SIGN(1. ,VrtQRIZ) 
DELX=IVNAnlR*UHnRIZ-VNORIZ*IldADIR 
OELY  =  VHORIZ*lWN  AHIR-IVNAfllR*WHORIZ 

A  3SX  =  ABS(OELX) 

AMSY  =  ARS(I)EI,Y1 
IF(2*AHSY.LT. AHSX/NX)  THEN 
InCYSsO 

I.lCXSsSlGNd  . ,DELX)*SGN 
ELSE  IF(2*APSX.LT.Ai3SY/,IY)  THEN 
I NCXSsO 

ImCYSsSIG'KI  .  ,  DELI  )  ♦SON 

else 

I.lCXSsSIGNd.  ,  DELX  )  *  SGN 
iNCYSsSIGNd  . ,OFLY)*SSN 

end  i  f 

C  COMPUTE  FIRST  POINT 

IXS=  rCONST*IUPriINT/IV  -JCONSTX 
I  YSr-lCONST*I'vPijlNT/IV  ♦JCO'-STY 
lXBSs(?*IXS+NXf2) /2 
t  YRSs(2*l YS  +  NY  +  2) /2 
J  IXsI  XS+  JCOiuSTX 
JI Y=I YS-JCOVSTY 

C  COMPUTE  ERROR  Or  FIRST  POINT 

J£KKM3JCOnST*IUPOI OT-JIX*lV 
JERRW  =  -lCi)NST*  IRPOINT-JI  Y»I  V 
I  JfXsISlG  J(  1  ,  JEW»'I) 

I  JCY=ISIG  K  1  ,  .JEW  W  1) 

C  NEXT  PIXFfj  TEST  FOR  '•’THST  POINT 


4«9 


UUQh  l;lJU000C!C00e00C3000  D  Q  u 
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I  F  (  (2*  JERRH.GE.  IV)  .OR.  (2*JERKU.LT.-IV) )  THEN 
JlXsJIX+INCX 
IXBSstX^S+IMCX 
JERRU  =  JFRRIJ-IV*INCX 

F  J  0  I  F 

T  =•  (  (2V.1KPRw.Gi*:. IV)  .OP.  (2*JERRW.LT.-IV) )  THEN 
JlYrJT Y+  r  YC  Y 
IY0S=I Y*S  +  I MCY 
.J  F  R  R  w  r  J  R  R  W  -  I  V  *  t  N  C  Y 

F  JO  If 

Check  f  ip  crash 

TYPE*. 'FIRST  SCREEN  COORDINATES' , 1XBS, IYBS 
0  IF  (I  CRASH  .GE.  1/)  THEM 

WRITE  (&,*)  '"ERROR "  POINT  IS  BETWEEN  EXE  AND  SCREEN ' 
TYPE*, 'TCHASH, IV, IP, IXRS,1YBS=',ICRASH,IV,IP,IXBS,IyBS 
TYPE*,  'iSCRri,  IAXIS,NPIX='#ISCRN,  IAXIS.NPIX 
W  E  r 1 )  R  ^  2 
E  iOTF 

THIS  C A ij fj  TS  A  TEST  USING  A  STRAIGHT  DIVIDE  TO  TEST  THE  SCREEN 
CU-OROI YATES  OF  A  N A 0 1 R  CENTRIC  WORLD  POINT  IP 

IFCISKY.Mfc.l)  THEN 

UPO I NTs (ROT  Cl ,  l  )MXP+ROTC 1 , 2 ) *  I XP-ROT ( 1 , 3 ) * ( IZE-I ZP ) ) 
Vjs( (ROIC  2,1 )*IXP+H0T(2,2)*IXP-K0T(2,3)*(IZE-IZP))) 
WPQIMTs(RnT(i, n*IXPfROT{3,2)*TXP-ROTC3r3)*CIZE-IZP)) 

XSs  ICONST*i!POlNT/VL  -jcowstx 
YSs-ICONST*wPOINT/VL  tJCOWSTY 
IXYSsYS+SlGN(.5,XS) 

IXXSsxS+SlGNC ,5,XS) 

IXXBSsIXXStMX/2+1 
IXYBSsIXXSt NX/2+1 

IFC (ABSC IXBS-IXXBS) .GT.l ) .OR. CABSCIXBS-IXYBS) .GI. 1) )THEN 
TYPE*, 'ERROR  IN  SCREEN  CO-ORDINATES.' 

TYPE*, 'SHOULD  BE' ,IXXBS, I YXBS, 'IS',IXBS,IXBS 
TYPE*, 'TNCX,X, JERRU,W, IV, IPs', INCXS,INCXS,JeRrO, 
*  J ERR W, IV, IP 

E  HDIF 
FVDlF 

OUTPUT  SCREEN  BUFFER  CO-ORDINATES  FOR  VISIBLE  P 
IF(NPIX.EQ.O)  THEN 

iFClSCHN(IAXlS).Lt.vPlX)  RE  TURN  1 

ELSE 

IFCISCHNC I  AXIS) .SC. <PIX)  RETURN  1 

EHDIF 


RFT'JPN 
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▼I' 


entry  i  iCrkmen rc*) 


IFdKlNlSHtn.K  1.1)  THEN 
RETURN 

ENOIE 

C  CHECK  FIR  CHANGE  I  '4  RE  S3  LOTTOS 

IE  (IRES3L  .NE.I3L0RES0L)  THEN 

NE«'PFs2*<‘(  IRESOL-IOLORESOL) 

NlJ2  =  NE*RF/2 

JERPUs(JERRU«-NIJ2)/N£rfRF 
JEKRR=(JERRW4-N!J2)/Ne;^RF 
I  Vs(  IV  +  MJ2J/SEKRF 
ICPASH=(ICRASH4-SL)2)/NEWHF 
ICLnHESOLsIRESDL 

e  miF 

1011*101/1  *‘JCW 

C  ROTATE  INCREMENTAL  DISTANCE  F3R  NEXT  POINT 

I  JPINC*(  l«OT(  1  ,  1  )*IXPINCl-IR.3TC2,l)*IYPlNC-*-lROT(3, 1  )* 

*  IZPIFO/IDIO 

I  /P I  >*C*  (  I  ROT  C  1  ,2  )  *IXPINC  +  IRUT(2, 2)  *IYPISC  +  IR0T(  3  »  2)  ♦ 

*  IZPlfJO/IOTO 

IHPINC»(  mi)T(i  ,3)*IXPINC4-lROTC2,3)MYPINC  +  lKOT(3, 3)  * 

*  iZPlNCj.'TOIO 

C  UPDATE  V  CO-ORDINATE 
I/sIV+I/PTJC 

C  COMPUTE  PRROE  FnR  NEXT  POINT 

JERRU=JERRU+IC0nST*IUPINC-JIX*IVP1NC 
JERR«sJERR*-IC;JNSr«tI><PINr-JIY*I  VP  INC 

C  .NEXT  PIXEL  TEST  FOR  >!FXT  POINT 
IF  (I  iCXS  .El.  -1)  THEN 

ITESTs-IV-JERRU-  JtRRU 
IE  (iTESr.GT.O)  THFN 

JERRUsJERKII-HV 
JIXsJIX-1 
IXBS*IXHS-t 

END  IE 

E Ij S E  IE  CINOXS  .El.  1  )  THEN 

I  TESTs I V- JERRU- JEHRO 

if  ( i tes r . le , 0 )  the:.  13 

JERRHsJERKU  -IV 
JlXsJIX+1 
I XBSsIXBS+l 

E-.nr  f 

E  JDIE 

IC  (IlCYS  .El.  -n  THEN 

r tests- t v-jerr*- jerk* 

IF  ( ITEST.  IT.O)  T.1EN 


11 

1  2 


!  2 
!  1 


I  3 
U 
1  4 

15 
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.)KRK«sJSRHW  +  IV 
OIYsJI Y-l 

i yrs=i yss-i 

K--OTF  !  5 

•5L.SE  If'  Cl'<rYS  .  E  ).  1  )THti\»  !4 

iTESTsIV-JERRa-JEKR* 
re-  CITEST.LT.  0)  THE*  •(, 

JERRvsjERRW  -IV 
J I  Y  =  J I /♦ 1 
I  YRSsIYRS-M 

E'JDIF  i  6 

E-JO  IF  !  4 


GO  TO  100 
E  JO 
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y 
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APPENDIX  El 
SCAN. FOR 


4 

1  *1* 


4 


« 


subroutine  scan(*j 
data  Ml  024/1024/ 

INCLUDE  'PGCOMDAT.FOR' 

C  THIS  ROUTINE  INCREMENTS  ALONG  THE  SCAN  LINE  VIA  A  BRESEnHaM 
C  TlfPE  LI  \|E  DRANInG  ALGORITHM,  VISIBILITY  TESTS  ARE  PERFORMED 
C  FOR  EACH  POINT. 


100 


11  ) 


120 


1  10 


K ILL=0 

IE( IEEE. GT.O) THEN 

IP( I0THR)sIPCI01HR)+INCI0*NCR 
IEEE*JEEE-IXY2 

5  MO  IF 

IP(ICASE)=IPCICASE)+INC*NCR 
IEKEsJEKE* JXY2 
03  130  MTsl ,2 

1 PP( JT)=IP( NT) ♦IECNI) 

TF(IPP(NT).LT.0) THEM 

IPNP(NT)*1PP(  NT  J-M 
I  J»(NT)sIPiMP(ND/1024-l 
IF(ICL.E3.1)GDT3  130 
00  120  IT1=2,ICL 

IJ(nT)s((TQ(NT)+1)/2)«1 

C  )N  TINflE 

Sl.Sr 

I3NP(NT)sIPP(.MT) 

NPHIL=N1024*NCR 

r3(NT)sIPiMP(NT)/(VPHIL) 

e  jpif 

CONTINUE 

IF( (IABS( 10(1 )-NP  1(1)) ,GT. 1 ) .OR. CIABS(IO(2)-NPN(2) ) 

.  JT. 1)3  THEN 

IFIKILL.EO.DTHEN 

TIPE* , 'INVALID  CLASS  CHANGE' 
S  l' OP 

E.IDIF 


KILL=1 


On  140  NTs  1,2 


I 


4  <3  3 
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IF( IE(NT) .LT.O) THEN 

n  r )  =  c  ( fjPN  c  mt  )  ♦  i )  ri )  - 1 

ELSE 

"IPM(NT)=MPN(MD/2 

EMLHF 

CfJMTI'MJE 
L5I=NCW 
^CR=NC«*2 
ICL=ICL+1 
£P2=IPP( IHTHR) 

IP1=IPP( ICASE) 

IF(ICL,E).2)THEN 

IF(lP?.E3.(IP2/2)*2)TrtEN 
I P2=IP2  -INCIO 

enoi  e 

IF( IP1 .EO. ( I  PI /2) *2) THEN 
IP1«IP1+I*C 

endif 

else 

IRN  =  ( c IP2-LSI*IWCIO)/ *CR)*NCR 

IpPP1sIBM+LSI*INCIO 

IPPP2sIBM-LSI*INCIO 

IF( ( I  Arts ( IPPP1-1P2) ) .ST. (IABSCIPPP2-IP2) ) )ThEN 
IP2=IPPP2 

else 

t  P2  =  I PPP 1 
E’JOIF 

IC9ms( (TPt+LSI*lNC)/NCR)*NCR 

ippisicbw+lsi*inc 

IPP2sICB«-LSI*INC 

IF( (IABS(IPPl-IPl) J.GT. (IABS(IPP2-IP1)))ThEv 
TP  1 s I PP2 

ELSE 

IP1=IPP1 

E  N  D I F 
ENDIF 

IP1=IP1-IE( ICASE) 

TP2sIP2-IF( IOTHR) 

IEKE*  -IHXy  4>CIP1*JXY2*INC-IP2*IXY2*INCIO)/nCr 
IFCIEEE.jT.  ojthen 

IP2sIP2*I*CIO*NCR 

TEEE=IEEE-IXY2 

EWOIF 

I F  C I F  F  E . LT.*IXY2) THEN 

TYPE*, 'IEEE  .LT.-IXY2  =' , IEEE, 'IP1 , lP2*' 
, IP  1 , 1P2 

VRlTEd  0,*) 'TEEE  .LT.-IXY2  =' , Ifc.EE, 'Ipl , 
IP2=# , IP1 , IP2 
IEEE=IE£E*IXY2 
IP2sIP2-INCIO*NCR 


£  M  0 1 F 


OQOQ  OOOO 
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1 


IP(ICASE)*IP1 
I P  (  I OTHR ) s I P  2 
IEEE=IEEE*JXY2 
goto  110 


0 


n 


n 


C  THIS  IS  A  TEST  WHICH  VERIFIES  THE  I OTHR  POINT  GIVEN  AN  ICaSf 
C  POINT 


D 

D 

0 

0 

0 

0 

0 

0 

D 

D 

0 

0 

0 

0 

0 

0 

0 


I 


LSIsNCR/2 

OTHERsl .*JXY2/IXY2*IP(ICASE)*INC*INCI0  ♦lE(IOTHR) 
ITESTsOTHER  ♦SIGN!. 5, OTHER) 

N*(ITEST-LSI)/NCR 

ITESTsNUNCR-LSI 

TEST  1 s ASS ( I TEST-OTHER) 

TEST2sASS(lTEST-OTHER+NCR) 

I F ( TEST2  .LT.  TEST1 )  THEN 
TTESTsITEST'fNCR 

IF(TEST2  .GT.  ABS ( ITEST-OTHER  +MCR))  THEN 
ITESTalTEST+NCR 

EnDIF 

ENDIF 

IF( ITEST. NE.IPP(IOTHR) )THEN 

IF(ASS(l.*(ITEST4lPP(IUTHR))/2  -OTHER). GT.. 001)  THl^N 
TYPE*, 'LSI. OTHERS', LSI, OTHER 

TYPE*, 'ERROR  IPP ( OTHR ) s' , IPP ( IOTHR ), 'SHOULD  BE', 

*  ITEST 

TYPE*, 'IPs',IP,'Ns',N,'NCR=',NCR 
TYPE*, 'IEEEs'.IEEE, 'IP1=',IP1, rIP2«',IP2 
WRITE( 10, *)'LSI,OTHERs',LSI, OTHER 
WRITE (10,*) 'ERROR  I PP ( OTHR ) s ' , I pp ( I OTHR ) , 

*  'SHOULD  BE', ITEST 

WRITE (10,*) 'IPs', IP, '  N  s  '  ,  N  , 'NCR s', NCR 

WRlTE(10,*)'IEEEs',IEEE,'IPls',iPi,'IP2s',lp2 

ENDIF 

ENDIF 


l  LN VPsAL  TITUDE  OF  PREVIOUS  NON-VISIBLE  TEST  POINT  SUPPLIED 
1  BY  Z R 0 A  T A . 

i 

L^VPrlP(J) 

i 

• 

1ZROATA  IS  A  SUBROUTINE  WHICH  GIVEN  A  DATA  BASE  POINT  CALCULATES 
! THE  ALTITUDE  AND  REFLECTANCE  OF  t HE  CORRESPONDING  TEST  POINT. 


1001 

GOTO 

CALL 

(1001 , 1002, 100) , 1004, 1005) , I  DATS AS 
ZROATA(IOIO) 

1002 

CALI, 

ZPDAT2(1010) 

100) 

CALL 

ZRDA13( 10tn) 

405 
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( 


{ 


! 

ji 


i. 


B 


B 


t, 


1004  CALL  ZH0AT4(lO10) 

1005  CALL  ZR.)AT5C1010) 

1010  c  on  ti*jue 


MC  =  A  PR]PEP  TEST  LTNic;  COORDINATE  SUPPLIED  BY  ZRDATA. 

VISIBILITY  f  K  3 T  I MTwUDUCED  f  SEE  STATEMENT  OF  WORK) 

K<s(IE( ))-bnw( i) )*IP( ICASE) 

J J  =  LOV( ICASF)*CJE( 3)-IP(  3)  ) 

IF  I TNC.GT.OJTMEN 

lF(7P( ICASE) ,GT.IF( ICASE) )G3T0  400 
IF( JJ.GE.KKJGOTO  100 

else 

IF( IP ( ICASE). LT.IFI ICASE)) GOTO  400 
IF(JJ.LE.KK)G0T0  100 

E  '(DIF 

ROUTINE  HAS  FOUND  A  VISIBLE  TEST  POINT  . 


IF(IP(3) .LE.LNVP)  THEN 
IcnnEsl 

ELSE 

KIF.s((IE(3)-LOw(3))*IPCICASE)  ) /LOW  (ICASE) 

KZCALC=IE(3)-KIE 

IF(IE(3).GT.KIE)  KZCALC=KZCALC+1 

IC0DE=IP(3)-KZCALC 

IF(TCDDE.LE.O)  ICODEsl 

E  JOIF 
RETUW  4 

400  CONTINUE  ! PAST  HORIZON  LIMIT 

RETUP Ul 
END 


*  1 


h  I 


I 
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APPENDIX  EJ 
PCJSCENE.  for 


c 

c 

n 

c 

n 


c 

r* 

U 


f 

v 


C 


p« scene. fop 

PROGRAMED  RY  PHILIP  GATT  896-4741 
LATEST  REV  I  SO  I  H  DATE  :  MARCH  26  1981 

FIR  A  FULL  DESCRIPTION  OF  THE  MATHEMATICS  SEE  THE  MEMO  FROM 
OH.  rt.w.PATZ  DATED  5/30/80 

THIS  PROGRAM  SETS  UP  THE  FOLLOWING  SCENE  CONSTAfjTS: 

1.  THE  ROTATION  MATRIX.  ROT 

2.  THE  LOCATION  OF  THE  SCREEN  CORNERS  IN  EYE  CENTRIC 
rfORLD  COORDINTAES.  C0R(4,3) 

3.  THE  LOCATION  OF  THE  SCREEN  CORNERS  WHEN  PROJECTED 
ro  the  ground.  cw(4,2) 

4.  A  VECTOR  WHICH  INDICATES  WHETHER  OR  NOT  THE  SCREEN 
CORNERS  PROJECT  OT  THE  GROUND.  PR0J(4) 

PR)  J ( * )  =  0  =>  PROJECTS  TO  THE  HORIZON  LIMIT 
PRO J ( * )  =  1  =>  PROJECTS  10  THE  GROUND 

5.  THE  LIMES  BETWEEN  THE  FOUR  CORNERS  ON  THE  GROUND 
AA(4,2) 

6.  ThE  ANGLE  RETWEEN  SCAN  LINES,  SUCH  THAT  AT  LEAST  TwO 
SCAN  LINES  CUT  THROUGH  EACH  PIXEL.  AN  G 


SUBROUTINE  GETSCSNE 

INCLUDE  'pGCUmDAT.EOR' 

DTMENSI1N  CPROJC4) ,CHOSS(4) 

C 

H  DRIZJN LIMS4S000. 

NPLsIEIL'JlM-1 
N <=LX*NPL 
N Y=LY*mdL 

C  COMPUTE  SINES  AuD  COSINES 

P ITCH l =P ITCH* 3. 1 41592654/180 
HEADI NG  l  =HE  ADI  Nf,*3. 1  41  592O54/180 
RANKlsBA'IK*  3. 141592654/180 
SH=SJN(MEADTNGl) 

sp*si v(pi tchi  ) 

SHsSINfHAjKl  ) 
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C3=cos! hEadingi ) 

CR=ns!  pitChi ) 

C^CGSHAmK  1  ) 

C  CJMPIJTE  TMK  H? r  3  T  A  r  I L3  :M  MATRIX 

W)T!1,1)=CB*CH-SH*SB*SP 
R3T(1 ,2)s-SH*C*3-SB*SP*CH 
ROT!  1 ,3)=-SB*CP 
M  JT  (  2 , 1  )  s C P * S H 
H  )T! 7,?)=CP*CH 
w  I  T(? , 3 ) s-SP 
ROT! 3, 1 )=SB*CHFCB*SP*SH 
R  JT! 3,2 )=-SH*SBfCB*SP*CH 
«)T(3, 3)=CH*CP 

C  CALCULATE  THE  SCREEN  CORNERS  I  N  EYE  CENTRIC  WORbD  COORDINATES 
C  COR ! 4 , 3  ) 

P 3  100  1=1/3 
A l  =  IUS*«OTCl , I  ) 

A2=I*S*R0T! 3,1) 

A  )=T VS*R0T(7, I  ) 

A  1  =  [,X*R  3  T  ( 1  ,  T)/2 
AS=LY*POT! 3, I)/7 
X=Al+A2+A3 
Yl=A4+AS 
Y2=A4-AS 
C  JRf 1 ,1 )=X*Y1 
C3P(2,I)sx-Y2 
C  )R ( 1 , 1 ) sx- Y 1 
C  )P(4,I )=X  +  Y2 
100  CONTINUE 

C  COMPUTE  TUF  DISTANCE  FOPM  THE  NADIR  TO  THE  CORNERS  WHEN 
C  DROPPED  TO  THE  FLAT  EARTH  CMAS(4) 

DO  200  1=1,4 
C4AG(I)sO 
DO  150  .1  =  1,2 

x  s  c  0  p  ( i ,  n 

CRAG!  l)=C^An(I)  F  x*x 
150  COMTjUK 

c^AcmsSoRTcc  iag(  m 

200  CONTINUE 

C  COMPUTE  THF.  cross  products  of  the  screen  corners  cross! 4) 
CROSS( 1  )SC0R(4,1 )*C0R(1 , 2 ) -COR { 4 , 2 ) *CDR ( 1 ,  1  ) 

DO  300  [  =  2,4 
Ksl-l 

CROSS! I )=COR(K , 1 ) *COR ( I ,2J-COR(K,2)*COR( I , 1 ) 

300  CONTINUE 

C  COMPUTE  The  A  JGf.F  TU  each  SCREEN  CORNER  FROM  the  NADIR  CAv6(3) 
DO  35-)  r  =  l,4 

CVMG!  I  )sAT  A  1 2!  COR  (  I  ,2)  ,C0«!  I,  1)) 
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\ 


h  *** 


t 


3  5  0  C  .)  N  T  I  .* I  i  E 

m  3  7  s  [  =  1,3 
C  4 G  (  l  )  =  C  a  n  n  (  I  )  -  c  A  'j g  (  4  ) 

I FC  CAUGC  I )  .  t  T. 0  )  CAnGC I ) =C  a:  mG(I)+2*3.1415R2654 
T  (•'  {  c  A  ;G(  I)  .LT.O)  TYPE  */t.PKOK  IN  C  A  N  G  (  I  )  =  '  ,  C  A  N  G  (  I  ) 

3  7  5  c  vi  r  r  'a  i  e 

C  COMPlJTf-  ANGLE  4ET-EEN  SUCCESS  [  V  c.  SCAN  LIMES 

A  i  G  =  A  • ;  G  F  A  C  T  0  R  *  (  t..  X  *  L  X  +  L  Y  *  L  t)  /  C  3  *  CM  AG  ( 1  )  *CM  AG  ( 1)  *  M  X  ) 
C  COMPUTE  a  HERE  IS  THE  NADIR 

T  F  (  G  R  0  S  S  (  4  )  .  l.T  .  0)  THEM 

UADIRrO  l^ALIH  IS  OUTSIDE 

Et..SE 


M  A  D I  R  =  1 


;.«AL)IK  IS  I  MS  IDE 


E  i  0  I F 


C  PROJECT  The  SCRfE'’  CORNERS  rn  TrtE  FLAT  EARTH 

C  C*(I,*)  IS  The  .AhJti  CENTRIC  COORDINATES  OF  THE  INTERCEPT  (]r 
C  THE  LIME  FRO'’'  ThE  EYE  THROUGH  THE  CORNER  (CDRC1,*))  ONTO  rHp 
C  GROUND  RLAf>*.  IE  SUCH  4'  INTERCEPT  OCCURS  THEM  pRJJ(I)  =  l  rLsE 
C  PR0.J(I)=O  If  PROJ(l)=n  THEM  C*(l,*)  HAS  A  LENGTH  CORESPONOI V3 
C  TO  THE  HORIZON  (,  I  M  T  T  . 

no  too  r  =  i  , 4 

TE(Cnw(I/3)  . GE .  0 ) T  H  F  N 

PRnj(I)sO  i  TH  E  CORNER  PROJECTS  TO  THE  HORTON 

SCALE  =  HDR  IZ ONl.I  ,-1/C  ',AGC  I  ) 

C - (  T , l )=SCALE*C0P  l  T  ,  1  ) 

CMC I,?)=SCALE*CDR(I,2) 

E  u  S  E 

PRO. 1(11  =  1  I  THE  CORNER  PROJECTS  TO  THE  FLAT  eArTH 
Cp^OJC T)=IZE/COR( 1,3) 


40  0 

F  i  P  (  F 

c  )  n  r  t  u ; ' 

C  v  (  I  ,  1  )=-C'lR(  1 ,  1  )  *CPR  JJ(  I ) 
C  * ( T ,2 )=-COR C I , 2 ) ♦CPR0J1 1  ) 

r. 

500 

no  6  0  r.  1  =  1,2 

A  A (  1  ,  T  )=C  J(  1  ,  1  )  -f ft  (  1  ,  n 

A  AC?,  T  )  =  C  --  (  2  ,  3  )-C*(  1,1) 

A  A  C  3  ,  T  )  =  C  (  3  ,  I  )  -  C  .v  (  2  ,  n 

A  A  f  i , I) =C*  C  4 , I ) -c* (  i  , I ) 

IF  (  n  0 I R  . E  )  .  0 )  THEN 

4A(4,T)=-44(4,n 

e  '  n  i  e 
r  i'.te  up 

n  i  *>i"i 

1  =  1,3 

f '  )  ; 

1  =  4,3 

T  ROT {  J  , 

I  )  =  R  M  T  c  I  ,  n  *  I  s  r  A  L  E 

60  0 

r in ri ml 

p 

S  )  R  A  s  A  *■ 

,**? 

r  c  u  A  S  H  = 

I  V  S  *  I  S  r  A  1 ,  E  /  1  0  I  V  1 

r  c  •  o  s  r = 

I  Y  S  *  '  E ' . 

4  Q  •> 
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APPENDIX  FK 
PGSL. FDR 


C  P  G  S  L  .  F  0  R 

f-i 

C  PROGRAMED  BY  PHILIP  GATT  R9B-4741 
C  LATEST  REVISION  DATF  MARCH  6  1981 

C  THIS  ROUTINE  COMPUTES  THE  SCAN  LINES  FOR  A  SCENE  ONE  AT  A  TjME 
C  THE  SCREEN  CORNERS  ARE  NUMBERED  COUNTERCLOCKWISE  1-4  STARTING 
C  Af  THE  ip PER  RIGHT  HAND  CORNER 

n 

C  OUTPUT  VARIABLES  ARE  ( X H , V H , U P PE W , R LO * E R , I F I N I S H EO ) 

C  I X  H ,  I  Y  H  -  DEFINE  THE  LOCATION  OE  IKE  LOWEST  RESOLUTION  RAvjGE 

C  I'JPPER  -  DEFINES  THE  UPPER  BOO -10  FOR  A  PARTICULAR  SCAN  L I  NR 

C  LOWER  -  DEFINES  THE  LO*FP  ROI'.nD  FOR  A  PARTICULAR  SCAN  LINE 

C  I F  T  N I S w  E  D  -  DEFINES  WHEN  THE  LAST  LINE  HAS  BEEN  COMPLETED 

C  INTERNAL  VARIABLES  USED  FOR  INDICES  ARE: 

C  KSL  IdFnTJFIES  THF.  CORNER  NOUMBER 

C  TSL  IDENTIFIES  THE  X  JR  Y  COMPONENT  TO  BE  TESTEf) 

C  LSI.  IS  A  SIGN  MULTIPLIER.  LSL  HAS  THE  EFFECT  Of 

C  ABSOLUTE  VALUE 

C  for  A  DESCRIPTION  OF  THE  MATHEMATICS  SEE  THE  MEMO  FROM 
C  DR.  H.  w.  D A T Z  date r-  s-30-RO 


T  IS 


WITH 


* 

r* 

C 


S i.J H R C U T  I  U E  SLCREAT 
T  m^LDOE  ' P  G  C  0  H  0  A  T . FOR  ' 
nr^Ef-si on  r  1 , 0  e r ( 3 ) 

A  FUNCTION  *UICH  COMPUTES  THE  INTERCEPT  OF  THE  SCAN  List 
THE  SCREE  <  FOOTPRINT  OM  THE  GROUND. 
TCANG,X,Y,A,R)=AJG*((X**2+Y**2)/(X*H-Y*A))*tl+ANG* 
CA*X+b*Y)/Cf;'*X-A*Y)  I 

IF  ( J  FI WST  . ED. 1  )  TUED 

IE  (NADIR.EO.O)  THC.N  1 'I  A  0  I  R  IS  OUTS  IDF 

W  L 0 .v  E R  I  1) =C* ( 4 , 1  ) 

R LOWER!  2)=C*(4,2) 

E  l,SE 

RLO.VERC  1  1=0 
RLUaEW ( ? ) =0 

E"D  1  e 


u  o  i)  u  o  u 


*A  VTRAEO'IIPCEH  80-0-0014-2 


C*(I,*)  IS  THE  N A  D I P  CENTRIC  COORDINATES  OF  THE  INTERCEPT  Op 
THE  LINE  FR n»  THE  EYE  THROUGH  THE  CORNER  (C3RII,*))  OM”l  rH? 
GROUND  PLANE.  TF  SUCH  AN  INTERCEPT  OCCURS  THEN  PRUJ(I)=1  ELSE 
PR0J(1)=0.  IF  PROJ(I)sl)  THEN  CW(I,*)  HAS  A  LENGTH  CORESPOnDtNG 
TO  THE  HORIZON  LI  HIT 
PROJECT  THf  RADIUS  THROUGH  CW 4 

SCALE=H0RIZ0NLIM/CMAGC4J 
XH=COR (4,1) *SCALE 
YH=C0R(4,2)*SCALE 

ELSE 

IF  (NADIR  . EQ . 0 )  THEN 

TL=T( ANG,RL0WER(1) ,R LOWER (2) , AA(4,1) ,AA(4*2)) 

EljSF 

TL  =  0 
E  N  D I F 

RL0WER(1  )sPL0*ER(l)+AA(4,l)*TL 
«LOWER(2)sRLOWEP(2)+AA(4,2)*TL 
C  CORNER  CROSS  TEST 

Sljw  ANG*SUHANG+  ANG 
IF(CANG(KSL)  ,LT.  SUMANG)  THEN 

TYPE*, 'CROSSED  CORNER  ',KSL,'AT  LINE  '.LINE 
T  YPF* , '  l*  I TH  LAST  POINT, SCREEN  AND  WORLD  COOrDs*' 
♦  , IXBS, IYBS, IP 

IF  (KSL  . EQ .  ( 3+NAD1R) )  THEN  ! N ADIRsl , 0 / I M , OUT 

IFINISHEDsI 

TYPE*, 'LAST  LINE  IS  COMPLETED' 
RETURN 

EMDIF 
KsL  =  KSf,+  l 

GOTO (100, 200, 300, 400) ,KSL 

C  N P I X  IS  INITIALIZED  INSURR  INPUT  IN  PROG  PGMAIN 
100  TYPE*, 'ERROR  KSL  =1  =',<SL 

30  TO  500 

200  I A X  I S  =  2 

NPix=n 

GOTO  500 

300  lAXTSsl 

NPlxsn 

Goto  son 

400  lAXTSs? 

HPIX=NYtl 

500  ONTINIIE 

E  JDIF 

C  ICAS  SELECTS  ONE  OF  THREE  ROTATION  MATRIX  APROX IMATIONS 

IF  (ICAS.E'l.l)THEN 

X  =  XH  -  Y  H  *  A  N  G 
Y=XH*ANG  +  YH*( 1-SORA) 

E  ( i  S  F  IF  (ICAS  .EG.  2)  THEN 

X  =  XH*(1-SJRA)  -  Y H* AN G 
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Ef.SK  IF 


SLSR 


E  M  D  I  F 


Y=XH*AN3  +YH 
(TCAS  ,E3.  3)  THEN 
X  =  X  M ♦ ( 1 -S-iRA/2 )  -  YH*ANG 
YsXH*AMG  +Tfri*(l-S3RA/2) 

TYPE*, 'ERKOK  1C  AS  IS  MOT 
ICAS 


XH  =  X 
VH  =  Y 
E  Ml) IF 

I  <  H  r  X  M  +  S  I  S  K  (  .  S  ,  X  H  I 
I YHsYH+SinN(.KfyH) 

f-OKUsPbOWERC  1  )  4.  Sir,N(.S,RLOwERCl)) 
b0^(2)  =  RL0wFR(2)  +  S  I GN  (  .  b  ,  Kl.D  W  ER  (  2  )  ) 
L3'(3)=) 
return 
E  U.> 


S  0  3  /  S  r>  4 


U  O  l)  O  U  IJ  l)  U  O  CJ  C J  tJ 


^  A  V  T  R  A  K  Q  U  I  P  C  E  N  80- D -001 4-2 


APPENDIX  EL 
PGVIS.FOR 


PG VIS. FOR 
SURROUT  I  ME  VIS 

THIS  SMflHOUTI  JE  v*  l  Lli  SET  UP  THE  BRESEVHJ.M  ALGORITHM  IN  SCAN. 
THE  OUTPUT  VARIABLES  ARE: 

IEEE  THE  ERROR  TERM  FOR  THE  BRESENHAM  ALGORITHM 
I  X  Y  2  THE  DISTANCE  TO  THE  HORIZON  ALONG  THE  ICASE  AxIS 

I  OX  Y  OmE  HALE  OF  I  X  Y  2 

JXY2  THE  DISTANCE  TO  THE  HORIZON  ALONG  THE  IOTHR  AxIS 
INCLUDE  'PGCOMOAT.FOR' 
n  C  R  =  1 

FOR  A  GOOD  DESCRIPTION  OF  IOTHR  AND  ICASE  SEE  SUBROUTINE  SCaN. 

IFUAHSC  IYH)  .gt.iabscixhdthen 

I C  A  S  E  =  2 
IOTHRsl 

else 

I  CASE= 1 
I  n  T  H  P  =  2 

E  N  D  I F 

DETERMI  \i  T  j(;  TCASt.  A u I)  IOTHR  FOR  A  GIVEN  SCAN  LInE  USING 
BRESENMA'-'S  ALGORITHM  *HICH  USES  A  SCALING  FACTOR  OF  1*3. 

(SEE  STATEMENT  OF  WORK) 

ALPHA V=-4. S/IE (ICASE) 

T  X Y  ?  = ( f  (ICASE) 

J  X  Y  2  =  I E ( IOTHR) 

IF( IXY?.Lt.O)THFh 

i x y?  =  - rx Y  2 

I NCs-1 

else 

T  .  C  r  1 

E  J  P  I  F 

IF(  JXY2.LT.0)THEN 
JXY?=- JXY2 
I M CIOs— 1 

EI.SK 


SOS 


n  n  n  r>  n  o 


NAVTRAEQUTPCEN  RO-D-O 014-2 


ivcinsi 

e  n  n  i  f 

i >xy=ixy2/2 
I£EE=JX Y2-IDXY 

DO  100  \ir  =  l,2 

IP( NT) =0 
IPP( NT) =TE( NT) 

IPNPCNT)sIE(NT) 

iF(  IE(NT)  .LT.O)  rPNP(NT)sIP'JP(NT)  +  l 
M  P  N  (  N  T  )  s  I P  N  P  (  N  T  )  / 1 0  2  4 
IF(1E(NT)  .LT.O)  NPN(NDSNPN(NT)-1 
tQ(VT)=NPN(NT) 

100  C  0  T  T  M  U  E 

ICL  =  1 

IFdDATBAS.FQ.l)  CALL  ZRDATA 
IF(IPAT8AS  . EQ . 2  )  CALL  ZRDAT2 
IFdDATBAS  .EQ.3)  CALL  ZRDAT3 
IFdDATBAS  . EQ •  4)  CALL  ZKDAT4 
IFdDATBAS  .EQ.  5)  CALL  ZROATS 

IF  THE  VIEWER  IS  WITHIN  THE  LEVEL  SURFACE  N 3  VISIBLE  POINTS 
WILL  HE  TRANSMITTED  BY  SCAN.  I.E.  IF  A  PLANE  FLEW  INTO  THE 
SIDE  OF  ft  MOUNTAIN  OR  INTO  THE  OCEAN,  ETC.  SEE  STATEMENT 
OF  WORK  DONE  BY  TFRRY  TANZEY. 

IF(IFC3).LT.IP(3))fHEN  % 

TYPE*,#EYE  IS  INSIDE  THE  DATA  BASE' 

TYPF*,'AT  THE  WORLD  POl NT ' , I PP , I P ( 3  ) 

STOP 

E  N  D I F 
RETURN 
E  ^0 


r 


► 


:  « 


c 


« 


't  r 


•  % 
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APPENDIX  EM 

TYPICAL  USE  OP  REAL  SCAN'  PROCRAMS 


[lie  routines  arc  compiled  with  the  aid  of  a  command  file  called 
PdP0R.COM,  which  compiles  all  the  routines  for  the  user  by  typing 
0PGPOR,  A  listing  of  PCPOR.COM  is  given  below: 

$0N  ERROR  THEN  CONTINUE 

$  POR  POSC  AN 

$P0R/ DUNES  PCPR0.J 

$P0R  POSE 

$F0R  PCSCENE 

$P0R  PCVIS 

$P0R  PCDATA 

$  POR  PCPIETER 

$P0R/D!.INP:S  DOMAIN 

$  P(  )R  PCEOCLOAD 

$POR  PCCAM 

SPURCE  *  .OB.) 

SEX  IT 

The  FORTRAN  files  are  linked  together  by  the  command  file  PCMMN.COM. 
The  user  can  link  these  files  by  typing  0POM\IN.  This  file  is  listed 
below : 

SLINK- 


PdMMN,PUSeENE,POSlJUPR(M,POFlETER,PODATA,P(AOS,POSCA\\POEOOEOAD,POCAM,- 
DIC:BEKDAT,DIC:PI CGMEO/EI  B 


Ihe  user  cam  create  a  picture  by  typing  RUN  PCMAIN  ;md  by  typing  in 
the  required  input  information  of  Table  1.  A  sample  picture  is  given 
in  figure  EM  1 . 


« 
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TABLE  EM-1.  Input  Information  For  The 
PROMPT 

INPUT  SCREEN  SIZE 

ENTER  COMMAND 

DATABASE  CHOICE 

STARTING  AND  ENDING  SCAN  LINE 

PROJECTION  DIVISION  FACTOR 

A  FACTOR  FOR  THE  SCAN  LINE  ANGLE 

I  CASE  (ROTATION  MATRIX  APPROXIMATION) 

SCALE  FACTOR  FOR  THE  ROTATION  MATRIX 

THE  EYE  LOCATION 

THE  SCREEN  CENTER 

THE  SCREEN  DIMENSION  (LX.LY) 

PITCH,  BANK,  AND  HEADING  IN  DEGREES 
ENTER  COMMAND 
ENTER  COMMAND 


Sampl.  'cene . 
RESPONSE 
512 

1  (RUN  SCENE) 

1 

1,2000 

3 

1 

3 

2  500 
0,200,800 
0,1,0 
1,1 
5,0,0 

3  (RUN  DICCMED) 
6  (STOP) 
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Figure  EM-1.  Sample  Picture. 

The  input  information  for  this  picture  is  listed  in  Table  EM-1. 

After  all  the  input  information  has  been  entered,  the  routines 
will  create  the  scer.e  data.  This  data  can  then  be  written  to  a 
file  or  a  Polaroid  picture  can  be  created. 
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APPENDIX  FA 

second  generation  realscan  pojtines 


Aopenilx  ph  t  o  r  o  u  t  h  fm  contain  toe  routines  t  n  a  t  are 
ierei  toe  secnn  ]  veneration  of  REALSCAn. 


cons i- 


su  /si  2 


MAVTNAfcJ.'JH  T  p  C  K  N  30-D-0014-2 


APPEND  IK  Fb 
PZtitJF.  FDK 


PZ^UF , FTP 

INTERN  *2  ITEMBUF( 3,512,512) ,INT2 (51 2, 256) 
P(TE  ICNFC51 2,512) 

COMvo-j/ B'JF/  ITEMBUF,  ICMT 
EQUIVALENCE  ( I C  N  T , I U  T  2 ) 


51  3/51  4 
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APPENDIX  EC 
PZCO*DAT.FOR 


PZCJNDA T.FOP 

HIS  IS  A  CCIHM3N  rtLOCK  FUR  THE  ROUTINES  WHICH  GENERATE 
A  COLOR  PICTURE  JF  A  3  DIMENSIO*AL  SCENE 


INTEGER *2  ISC«N(2) , I  COLOR , I K V C 3 ) 

C IMMDN/PaiNTS/IPP(2) ,IEC3),IH3RiZ(2),IP(3) , IOTHR, ICaSe 
CO^ON/INTG/ rsCRN,IXPlNC, IYPIMC/ IZPINC, 

*  IFTLDI*,l»V,NCR,!NX,NY 

CDM-nv/REALl /ALPHAV , SUM AMG , HOR I ZONL I M , X BS , YbS 
C  3 V  ION /FLAGS/  I D A TB AS , I  FIR , I  COLOR , LI NE 

F1UIVALFNCF.  (IR,IRV(1)) 

IPP  IS  THE  data  POINT  IN  WORLD  COORDINATES, 

IP  IS  TIE  SCALED  DATA  POINT  IN  EYE  CENTRIC  w  D  L  R  D  COORDINATES 
(12  PITS),  LCUN  IS  T  OF  SCALED  LAST  VISIBLE  DATA  POINT  IN  rYp 
CENTRIC  *i  3  R  L  D  COORDINATES  (12  PITS)  ,  IHDRIZ  IS  THE  END  OF 
the  SCA  J  line  In  s-Yt-  CENTRIC  *  OLR  D  COORDINATES,  IE  IS  THE 
LOCATION  of  THE  OBSERVER  in  WORLD  COORDINATES, 


S1S/51S 


CJ  tJ  CJ  U  CJ  O  IJ  IJ  IJ  U  (J  tJ  U  U  U  ti  IJ  U  O  li  O  CJ  CJ  OUUU  tj  U  U  t)  U  l  J  K.J  tJ  U  IJ  iJ 
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APPENDIX  FD 
PZDATA3.F0R 


PZDATA3.P0R 


SUBROUTINE  ZRATA 


DATA  BASE  l 


**************************************** 

LATEST  REVISION  DATE:  SEPTEMBER  30,1980 

PROGRAMMED  BY:  GERALD  L.  BECKER 

this  IS  TO  BE  used  with  THE  DIC0MED1  1  m I !  1 


THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  'SCAN', 

THIS  SUBROUTINE  DEALS  WITH  DATA  BASE  1.  DATA  BASE  1 
IS  M  A  OF  UP  OF  BLOCKS  WITH  3  POSSIBLE  ALTITUDES.  POSSIBLE 
ALTITUDES  ARE  HIGH  (512),  LOW  (-128),  AND  GROUND  (0). 

ALL  CALCULATIONS  IN  ZKDATA  ARE  MADE  WITH  INTEGER  MATH. 
12  3  4 

*****************M2  THE  ENTIRE  DATA  BASE  1  IS  COVERED 

*  *  *  *  *  WITH  DATA  BLOCKS  AS  SHOWN  TO  THE  LeFt. 

*l*p*9*2*i  BLOCKS  OF  TYPE  1  DATA  HAVE  A  HEIGHT  OF 

*  1*  2*  3*  4*  512.  BLOCKS  OF  TYPE  2  DATA  HAVE  A 

*****************  HEIGHT  OF  -128.  THE  REFLECTANCE  Is  A 

*  *  *  *  *  FUNCTION  OF  POSITION  WITHIN  THE  FRAMr. 

*9*2*1*8*2  BLOCKS  OF  IYPE  4  DATA  HAVE  ZERO  HFiGrT 

*  5*  5 *  7*  P*  AND  A  RFFLECTANCE  OF  4. 

*****************  DEFINITIONS: 

*  *  *  X*  *  CLASS:  DIFFERFNT  LEVELS  OF  DETAIL  OR 

*1*P*3*2*3  RESOLUTION. 

*  *  *  *  *  FRA^E  COORD  I  N  A  I  E  S  :  Ml  ANo  M2  VALUES 

*****************  SPECIFYING  THE  BLOCK  BEING  USED.  EX- 

*  *  *  *  *  A  ^  P  L  F. :  POINT  X  HAS  FRAME  COORDINATES 

»8W1*2*R*4  M 1 s  3  ,  M  2  s  3 .  FRAME  COORDINATES  ARE 

*  *  *  *  *  CLASS  DEPENDENT. 

*****************  ARRAY  INDICES:  POSITION  WITHIN  A  GlVpN 

FRAMF . 


*  5*  *,*  7*  p* 

***************** 


5  17 
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M1=MR1 

SUBROUTINE  ZKOATAC*) 

INCLUDE'  'PZrnrOAr.FOR' 

CO1’*  /  DATABASE  / N  1024, IOFE  1(3)  ,  I  OFF  2  (  3  )  ,  SCALE  (  3  )  , 

*  I  iRFLDm  ,  W1  ,S*r>VA,CDVMAG,  IDCW2,KSI  ,KSI4,KSI5,KSI7  ,  KSl8  , 

*  lDENSITY(3),SR4OVA,SB7OVA,DN0l(i),rf,MAXHElGHT 
CDM-tOl  /GRND/  INX,IMY 

I  JTEGER*2  I\!DKXX,IN0EXY,IDD,NCR1 

*  ,INX,INY,KM,KL2,KL3,KH1,KH2,KH3,IBL 
DIMENSION  IPNP(2) 

DATA  SCSAm  /.q/ 

MAXHEIGHT  Mi)ST  RE  SET  FDP  THE  SCA*  LINE  INTTILIZATION 
w AXHEIGHTsSl 2 
NCR  1 =MCR 

BUILDINGS  win  ROADS  AMD  2  NOISE  1YPES  AND  MULTIPLE  RETURN 


IP  :=  rg A D I P  CENTRIC  COORDINATES 
IPP  :=  a'ORLD  CENTRIC  COORDINATES 
IPP  =  IP  ♦  IE 
IF  IP PO  ;IPN°=IPP*1 


ELSE  IPWP=IPP 

DO  123  \|M  =  1,2 


IDf)P(MN)SIPp(NN) 

IP(lPPCMMKLT.O)IPNP(NN)=lPNp(MM)fl 

CONTINUE 


* 


NPHII.,sN1024*NCR1 

MIX=M0D(IPNP(1 ) , (NPhIL) ) 
4JY=M0D( I P N P ( 2 ) , ( yPHIL)  ) 


ARRAY  INDICES  FOR  A(,L  CLASSES  ARE  CALCULATED. 


THE  RANGE  OF  INDEXX , INDEX Y  IS  ALWAYS  1 <= 1 024. 

THE  GRID  BOUNDARIES  OCCUR  0(  IDD  LIMES.  THE  IDEA  OF 
TNOEXX,  l n D F X Y  COORDINATES  IS  TO  MATCH  DATA  COMPRESSION 

Information  as  it  ^ould  bl  accessed  in  a  hierarchial 

DATABASE.  TO  DEFINE  BOUNDARIES  ONE  NEEDS,  IDD,  MBl,M*2, 

the  displacement  from  idd  in  the  coordinate  framf.  all 

D [SPLACEMFNTS  are  POSITIVE  MODULAR  ARITHMETIC. 

IF  (IPP(1 ).GE.O)  then 

INDEXX=(MIX/NCR1 )  +  i 

else 

IMDEXXs(MIX/NCR1)+1024 

EdDIF 

IF  (IPP(2).GE.0)  THEN 

T'JDEXYs(MJY/NCKl)  +  l 

else 

[  NDEXY=( MJY/NCR1 J+1024 


SIR 


O  Ci 
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E  ■  i  n  I  p 


block  ass i '••fmts  are  dependant  d.  whether  jr  nut  the  tpst 

POINT  is  W  I  T  H  r  >1  THE  V  A  L  N  C  R  1  RANGE. 


I ' D  =  1  H24/NCR1 
IF(  l CL • GT . 9 )  THEN 

TYPE* , "F RRTR  ICL  .Gi.  9  ;  ZPDATA  9400' 
S  T  0  P 

E  V  D  I  E 
iHLsTQD-l 


I  'JX  =  IMQi)(  IM1EXX-1  ,  I  i )  D  ) 

i iYsiMpo(iNoexY-i,ino) 

C  THIS  ROUTINE  ASSUMES  NCR  1 s2 *  * ( I  CL- 1  ) 

K  L  1  s  I  '*  0 !)  (  6  4  /  N  C  R  1  ,  IDO) 

E  L  ?  s  I  •*  0  0  (  1  2H/ECP1  ,  IDO) 

K  L  3  r  I  *OQC  1  60/NCR1  ,  IOD) 

*  H  1  s  I  H  0  0  (  (  1  0  24-64) /N CPI  ,  I  D  D  )  - 1 
<H?  =  J  HOOC  (  1  0  2-1-1  28)  /  NCR  I  ,  100) -1 
KH  3  =  1  v!QO(  (  1  0  24-160)  /^CRl  ,  LDu)-l 
K  L 1  THROUGH  M,3  SET  THE  LJ*ER  BOUNDS 

k  i i  through  kh3  set  the  upper  bounds 
*6) = IPNP( 1  )  /  1024 
-1  <’  2  =  I P  N  P  (  2  )  /  1  U  2  4 
I »F  «s"OD( MB1 , 4 ) 

Jr K’‘sMin  ( mb?  ,  4  ) 

IF  ( IPP( 1 ) .LT.O)  lREM=IREM+3 
IE  (IPP(2) .LT.O)  JWEMsjRE^+3 

I  =  .JPEm  +  (  4*1REM)  vi 

G ITo  (1  0  1  0,1  0  20, 1020, 1040, 9, 1060, 1  0  70, H, 1090, 1100, UOg, 
*  1 1 2  ) ,  1  1  3  0 , 1  1  40  ,1160,116  0  1,0 


IP(i)  A  l i)  iw  ASSIGNMENTS  ARE  YAjE.  THIS  ASSIGNMENT  Is 
DEPENDENT  !■:  THE  EPA^E  ]N DICES. 


l  oi  u  OM]  ,;.;e 

CALL  G  ‘  D(Kl  ?,^L2, lHL,r-L, *b,*R) 

I  E(  I  r,x  .  L  r  .  K  1. 3 )  Giro  R 

I p f  n=si  ? 

CALL  CRSIFA(KM,KL2,IPL,TBL,*",M,*5) 

G  J  T  :  7 

1  0  20  C  1 M  T I  u I: E 

TEC  TNX.Lr.KL2)  srrn  o 

git  i  * 

1040  c  Vv  r  r  joe 

CALL  G '  1  C  *>'  I  7  ,  O  ,  )  A  r,  ,  K  H  1  ,*H,*n,*R) 
IFCINX.LT.KL3)  GOTO  8 
I R (  4 ) =-  l  28 

call  cr s  r  e  a  (  k  l  j  ,  o ,  i  l  ,  k  h  i  ,  * h  ,  * •♦ ,  * 6 ) 


SIP 
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GOT  )  3 

10b0  CONTINUE 

CALL  GND(KLl,0,IBL,KHl,*R,*e,*8) 
IPCINX.LT. K[,l)  GOTO  8 
TP  (TNY.jT.KH1)  GOTD  8 
IPC  3)=-t?8 

CALI/  C  P  5  I F  A  (Kf,l  ,  0  ,  I  f3  L ,  K  H  1  ,*t,  *4**5) 
GOTO  3 

1070  C-JNTl  NUE 

CALL  G  NO ( 0 , 0 , I ri  1 , , I  ft  L , *  8 , *  8 , *  8 ) 
IP(3)=5l2 

CALL  CPSlFA(0,0,IBL,IBL,*b,*4,*5) 

G  ITT  7 

1090  C  ) N  T  T  N *•  E 

CALL  GNDCKLl ,KL1 ,KH2,KH1,*8,*9,*8) 

IF  (INX.GT.KH3)  GOTO  8 
IP( J)s5l2 

CALL  CWSIFACKLI ,KL1 ,KH3,KH1 ,*6,*4, *5) 
GOTO  7 

1100  CONTINUE 

IF( IMX.GT.KH2)  GOTO  9 
GOTO  9 

1120  CONTINUE 

IP( INX.GT.KH2)  GOTO  9 
IPCINX.GT.KH3)  GOTO  8 
I ^C  3) =-128 

CALL  CKSlFA(0,0,Ki33,IBL,*b,*4,*!>) 

GOTO  3 

1130  CONTINUE 

CALL  G N 0  (KL2,0,K42,IBL,*9,*9,*b) 

COT)  o 

1140  CONTINUE 

D  TYPE*,'KL?,KH2,KHl=',KL2,KH2,KHl 

CALL  GNr>(KL2,0,KH2,KHl,*9,#y,*8) 
IFCINX.GT.KH3)  GOTO  8 
IECINX.LT. KL3)  GOTO  8 
IP( 3)=512 

CALL  CKSlFA(KL3,0,KH3,KHl,*t>,*4,*5) 
GOTO  7 

1150  C  J  N  T I N  t 1 E 

C  A  f, L  GNO (  K  L2  ,  K  L 1  ,  K  H 2  ,  KH 1  ,  *9  ,  *9  ,  * 8  ) 
IFCINX.LT.KL3)  GOTO  8 
IFCINX.GT.KH3)  GOTO  8 
TP(  3 ) =- 1  2 8 

CALL  CPSIFA(KL3,KL1,KH3,K<-Il,*b,*4,*5) 
GOTO  3 

llbO  C  )  N  T  T  N  U  £ 

IFCINX.LT.KL2)  GOTO  9 
IFCIWX.GT.KN2)  GOTO  9 
G  )T0  A 

3  13=0  J  BOTTOM  OF  HOLE 
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g )  t  i  4  y 

4  C  J^TI  '!"t: 

C  S[PES;X  CONSTANT,  Y  VARIES 

IFCINX.LT.IHL/?)  THEN 
I4=lSR 
ELSE 
I  R  =  9R 
f  mi f 

IF(  Tt>(3  )  .  FO.-l  ?R)  I  P  (  3)=0 
GO  TO  94 

5  c  )  f  r  i  n  u  (•: 

C  FRONT  A\<9  PACk  FACES;)  CONSTANTS  VARIES 

9  TYPE*,'  "S"  ' 

I^CIN'/.L  r.  HL/2)  THEM 
I  4  =  7  fS 
ELSE 
I  4  =  1  R  7 
F  *  n  I  F 

IF(  I  P  C  3  )  .FO.-l  ?P)  HEN 
IP(  i)=0 

IR=(TR-l27)*. 75+127 
F.  N  D I  F 
GO  TO  99 
C  C  0  R  N  F  » 

6  CONTINUE 

0  TYPE*,'  "f»M- 

IRsl?7 

GO  r  O  4  9 
7  CONTINUE 
C  ROOF  TEXTURE 
IFT  9  =  A 
RET JP 9  l 
C  G40UNO  TEXTURE 
R  CONTINUE 


C  ROAD 
9 

0 


0 


1 P  o  )  =  0 
I F I Rs  ) 

RETURN  1 

C  )N  T  I  9  1 '  P' 

TYPE*,'  "9"  ,  TNPEXX,  INOEXYs' ,  INOF.XX,  I  NDEXY 

14  =  7  0 
I  P  (  3  )  =  f> 

TEC tux.LT. (H/NCP1 ) )  I R  =  2  0  u 
IRC INX.OT. ( iUP-o/NCKl ) )  J  H  =  2 0 U 
IFf  TNX  ,f,r.  (  4/NC«n  )  T  R  =  1  S  0 
IFC  TP  X.GT.  ( T 00-4/ NCR  1)  )  I  4=  ISO 
I  c  (  n,  r  w  1  .  F  'j  .  A  )  THEN 

I  F  C  T  N  X  .  *■'  i  .  0  )  I  R  =  1  9  7 
I  r  (  T  N  X  .  F  )  .  I  0  0  )  I  R  =  1  b  7 

F  JOIF 

Tyi'f*  ,  '  [RQ='  ,  IR 


S  2  1 


n  n  r  j  n  n  o  n  n  n  n  n  n  o  n  n  n  o  n  o  n 

+  ooooooonorjonno 
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99  IFI R=t 

RETijpj  1 


ENTRY  ZRROFC*) 

Pll=90./72. 

IR=(Pll*(SlN(.092*IPPCl)+.04*IPP(2)-l.)+3.*SIN( 

*  .26*IPP(l)-.103*IPP(2)+.S)+b.*SlN(.432*IPP(l)+ 

*  .197*ipp(7)+.h))«(SIn(.0So*IPP(2)«. 037*1 PP(1)-. 96)+ 

*  3.*SIn(.253*IPPC2)+.096*IPP(1)+.45)+4.*SIN(.385* 

*  JPP(2)-.lfi6*lPP(l)))) 

C  AUPHAV  =  -4.‘j/HORlZ0N(  ICASE)  Anu  IS  SET  UP  IN  VIS 
T*£R'-1sFXP(ALPHAV*(  TPP(  lCASt)-IE(  I C  A  S  F  )  )  ) 
lR=lfcS+lR*TFRM 
I F  (  I P  (  3  )  ,fc(j.  -129)  IR  =  0 

IFC IP.GF.25S )  TYPF* , 'PSO/2  ZR D  A  f  A  IR# IPs', IP, IP 
RETJR  i  1 


GRO'P  0  CUMP'iTA  riDN 


ENTRY  Z  R  3  tl  I)  (  *  ) 
niSF  n  'J  GROUND 

HOX  =  A9S(M00C (lPP(2)-IPP(l)/32) ,2044)  ) 

I  \IDY=  ABS(Mr.r>(  ( IPp(  1  )-IPPC2)/12U)  ,2044)  ) 
IFCINDX  , LT.  1024)  THEN 
lNDX  =  1  ♦  INOX/2 

FUSE 

I  1 0 X  =  102)  -  INDX/2 

F  V  0  I  F 

I  F  (  T  N  D  Y  .  [, T  .  1  0  2  4)  THEN 
IN0Y=  l  ♦  IJDY/2 

FUSE 

Ionys  1023  -  INOY/2 

END  IF 

IR=l?7+(SCSAM*CI0AT(lrjr»x,iNOY,l)fl28)-127)* 
F  X  P  (  -  .  0  )  0  0  5  *  I P  (  2  )  ) 

IR=127 
R  FT  *J  R  o  1 
F  <0 


SJHR!7  I T  I  7  F  CRS  I  FA(UX,UY,HX,HY, *,*,*) 

T  JT£GER*2  I  NX, [ N  Y , L  X , U  Y , H  X , D  Y 
C  ) ) M 0  J  /Sr No/  I  N  X  ,  I  'J  Y 
C)RNER  TEST 

F((n‘l<  .Hv.UX)  .JR.  (I\'A  .  F  J .  ri  X )  )  .and. 

♦  (  (  I .  i  Y  .  F  i  .  I,  Y  )  .'JR.  (INY  .Ej.  Hi)))  PFTURN  1 


U  CJ  U  tJOUUO  O  O  IJ  OUOOU  (j  (j  1)  utj 
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SIDE  TEST 

IFUIDX  .KO.LX  )  .UR.  (  I N  X  .  EQ  .  HX )  )  RETURN  2 


F4CE  TEST 

IF((INY  .EQ.LY)  .OR.  {  I  N  Y  .ED.  rtY))  RETURN  3 


RETURN 

END 


SJBROUTINE  GND(r,X,LY,HX,  Hi,  *,♦,*) 


INTEGER  *2  lNX,INY,l.jX»LY,HX,rlY 
CDMMDN  /ZRNT)/  INX.INY 


If! INX 

.  Ll. 

LX) 

RETURN 

1 

1  E  (  I  N  X 

.St. 

HX  ) 

RETURN 

2 

T  E  (  I  K  Y 

.  LiT. 

LY) 

RETURN 

3 

I  E  (  I  N  Y 

.  jT. 

HY) 

RETURN 

3 

return 

E  JD 


S?  3/S24 
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i 


< 

« 

.  ' 


P 


1  00 


1  W|r 

200 

300 

! 


400 


APPENDIX  Ft 
PZ FILTER. FOR 


PZFILTEK.FCiP 

SJRRnJTI'JF  FI'iFIL 
INCLUDE  'DZCOVOAT.FOK' 

I  MCl,nr>fc  'PZBUF.  FOR  ' 

TTPE*,'WE  ARE  IN  the  FILTER  STAGE' 

D I  300  jsi , IFILDIM 
03  300  1*1, TFT L DIM 
K  )IV  =  IC0T ( I , J) 

IF(KDIV.NE.O)  then 

IFCKDTV.LT. 0)  KOlV=KDIVf 128 
DO  200  KVS*1,IC3LJR 

ITEMBMFCKVS, I , J)s(ITEMBJFCKVS, I , J)+KDIV/2)/kDtV 

continue 

E  3  D  I  F 
C  3  N  T  I  V I  >  E 

return 

F  3  T  R  Y  CLEAR 

no  40o  k vs* i , t color 

m  400  I*1,IFIL0I^ 
no  400  T  =  1 , T  F I L  p I M 
IFCKVS.E3.1 ) I C  *3  T  ( I , J ) s  0 
I rE  I B  U  F ( K  v  S , I ,U)=0 
CON  I  T  j'uE 
RETURN 
F  30 


S25/S2B 
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APPENDIX  FF 
PZLOGLOAD. t OH 


C  PZLOGLOAD 


SUBROUTINE  LOGLOAD 
I  JCLUDF.  'DZBUF.EOR' 

I  'I  CL  ODE  'PZCOMDAT.FQft' 

C IMmON/LOAD/ IXSO, TYSO  JCCHMJN  XITH  GETSCEnE 


100 
200 
300 
4  0  0 
500 
600 


* 


* 

7  0  0 


KC0iJNT  =  KC0UNT+1 

IFC  (  TSCRNf  1)  .NS.  IX  SO)  .OR.  C I  SCRN  C  2  )  .  ‘I  E .  T  YS  U )  )  THEN 
IP0.>'ER  =  2 
KfGNNTsl 
lXSn=ISCRN( 1 ) 

iYSnsiSCSO ( 2) 

SOTO  ion 

else  IF (IpOwER.EO.KCOUNT)  THEN 
lP0»ERs2*IP0HER 

GOT, ->(<1,00,200, 300,400,500)  ,IFIR  >  GET  REFLECTANCE 
Gall  COL0RIRC*600) 
call  zhgnoc*60o) 

CALL  7  R  P  0  F  ( *600) 

CALL  COLORI IR ( *bOU) 

CnNT  IN  OF 

IFCICNTC ISCRN(2) , ISCRNC 1 ) )  .Gf.126  )  RETURN 
IF((ISC»M(1  ).GE.CIFILDT«I  +  1 )  )  ,  OR  .  ( I  SCR  N  ( 1  )  .  Lfc .  0  )  )  TH£N 
return 

else  IFC  (  ISCPNC2)  .GS.  ( I  F 1  LUI  H  + 1  )  )  .  OR  .  (  I SCRN  (  2 )  ,  LF. .  0  )  ) 
THEN 

RETURN 

E  10  TF 

i)  )  700  <VS=1  ,  ICHL1R 

1  rF«R.JF(<VS,lRCRN(21  , 1  SCR  ‘  (  1  )  )  =  I T  EM  riUF  (  K  V  S  ,  1  SCRN  (  2  )  . 
ISCRNC1 ) )+lRV(KVS) 

C  ) N riNUE 

ICNT(ISCRn(?)  ,  l  SCRN  (  l)  1=ICN1’(ISCRN(2)  ,  I  SCRN  (1  )  )tl 
E  M  D I  F 
RETURN 
E  NO 
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APPENDIX  FG 
PZMA1N.FOR 


*1' 


C  PZMAIN.F1R 

r+ 

INCLUDF  'PZCOMDAT.FOR' 

INCLUDE  'PZBUF.FQR' 

C  I  FI LDI M  IS  THE  FILE  DIMENSION  AND  THE  SCREEN  DIMENSION  ♦  1 
C  IF  WE  WISH  TO  HAVE  A  2*SCRE£N  OF  DATA  PER  LINE  THEN  IFlLDtM  s 
C  1024  AND  ANGLEFACT=1  ??  SINCE  ANGLEFACT  IS  A  FUNCTION  OF  NX. 
100  TYPE*,'  00  YOU  WANT  COLOR  (3)  OR  SLACK  AND  WHITE  (1)  ?' 

ACCEPT* , ICOLOR 

I F  (  ( ICOLOP  .  F‘0 . 1  )  .  OR  .  (  I  COLOR  .£0.3))  THEN 

flse 

TYPE* , ' I COLORS ' , ICOLOR 
GOTO  100 

E  4  D I F 

200  type*,'  enter  command  by  number: 

TYPE*,'  (1)  INITIALIZE  SCENE  AND  RUN  MAIN  (NdT?:' 

TYPE*,'  FILTER  1  EXECUTED  AUTOMATICALLY)' 

TYPE*,'  (2)  RUN  DICOMED  PICTURE  OF  BUFFER' 

TYPE*,'  (3)  WRITE  BUFFER  AND  ICNT' 

TYPE*,'  C  4 )  STOP' 

ACCEPT*,  ICOMAND 

GOTO  (  300,41)0,500,600)  ICJMAND 
300  CALL  RUN 

GOTO  20  0 
400  CONTINUE 

CALL  S  n  I  C  * (0,0,0) 

GOTO  200 
5  0  0  C  )  N  T I  J  U  !•: 

TYPE*,'  WHICH  FILE  DO  YOU  WANT  I'O  WRITE  HF.MBUF  AND' 

T Y PF *  ,  '  ICNT  TNT!)  ?' 

ACCEPT* , IFILE 

TYPE*  ,  '  WRITING  ITEMBUF  I-NTJ  FILE  '  ,  I  F I  L  £ 

WRITE (IFILE, 700)  ( ( ( ITEMRUFCK, T,J),I=l,IFlLDlM),Jsl, 

*  IFTLDIV) ,K=I , ICOLOR) 

TYPE*,'  WRITING  ICNT  INTO  FILE  ', IFILE 

WRITE  (I  FT  LE,  BOO)  ((ICNT(J,I),J=l,TEJLDIM),in,IFlLOTM) 
GOTO  200 
600  STOP 


52? 


i 
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8  JO  F]KMAT(l3?Ai) 

700  F  IR^A f(^6A?) 

E  4D 

SUBROUTINE  RUN 

C  HIS  ROUTINE  -VI LI.  CONTROL  THE  SEQUENCING  OF  THE  RtAL  SCAN 
C  ALGORITHMS. 

1NCL"QF  'DZCOMDAT.FOH' 

INCLUDE  'PZHUF.FOR' 

COUMnN/SJN/A,K,C,SMARG,SKYSCL,DlVSKY 
C3MM0^/vlAlN/lsTAWr,IEN0 
CO*MON/VlS/LOWN(  3)  ,  IHIEGHT 

C  CLEAR  M AK ES  THE  ARRAY'S  ITEMBUF  AND  ICNT=0 
CALL  CLEAR 

C  GETSCEJE  INITIALIZES  MOST  PICTURE  PARAMETERS 
CALL  GETSCEnE 
00  400  LlNEssl  ,  IKN0+1 

C  SLINIT  INITIALIZES  EACH  SCAN  LINE 

CALL  SLINIT(*Q00)  1900  IF  FINISHED  50  IF  NADIR  r  0 

I F ( L 1 0 f , 3T *  I En 0 )  GOTO  900 
IFCLINE  .LT.ISTART)  GOTO  400 

C  SCAN  DETERMINES  THE  VERY  FIRST  VISIBLE  POINT. 

CALL  S  C  A  N ( *  $  0  0 )  1  RETURN  TO  500  IF  HORIZON  LIMIT 

C  IS  PASSED 

C  PRQ.J  PLACES  THE  FIRST  VISIBLE  POINT  ON  THE  SCREEN. 

CALL  PFnJECTlON(MOO)  J  RETURN  TO  300  IF  SCREEN 
C  BOUNDKY  IS  passed 

C  LOGLOAD  ACClJMiJLTES  THE  REFLECTANCE  DATA  IN  ITFMBUF 

CALL  LOGLOAD 

100  TF(IP(3)t2/?  .LE.  HIEGHT)  THEN  1  INCREMENT  UP  A  VERTICAL 

C  SURFACE 

IXPINC=0 
l  Y  P  T  N  C  s  0 
IZPINCS4/2 
IP(3)sIPC3)+4/2 

CALL  TNCREMENT(*300)  1  300  IF  END  OF  SCREEN 
IF( ICNT( ISCRNC 2 ) , 1SCRN ( 1 )  )  .GT.126)  GOTO  lOo 
i)0  200  KVSsl  ,  ICOLUR 

I TEMBUFIKVS, ISCRNC?) ,ISCRH(1 ) )sITEMBUF(K VS, ISCRNI2)  , 

♦  ISCRN(1 ) )+lRV(KVS) 

200  Continue 


530 
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300 

0 

400 


c  paint 

500 


* 


* 

600 


*»00 


lCf»T(ISCW*U2)  ,  ISCKN  C 1  )  )=ICNT(  ISCRN(2)  ,ISCRN(1 )  ) 
♦1 

G'l  TO  100 

E.NDIF 

L  Q  W  MCI)  =  IP(1) 

L)*N(2)  s  I P  C  2  ) 

L0WN(3)  =  I  P  (  3  ) 

CALL  SCAM(*50O)  1500  IF  HORIZON  LIMIT  IS  PASSED 

I  X P I N C  3  I P ( 1 ) -LOrfN ( 1 ) 

I  / P I N C  3  IPC2)-L0WN(2) 

IZPINC  s  iPf 3)-LO*N(3) 

CALL  INCRFMFNT(*300  )  UOO  IF  END  OF  SCREEN 
CALL  LOGLOAD 
GOTO  100 
C  )  *4  T I H  U  E 

TYPE* , (INF, TSCRN , XflS, YHS 

C  JNTIGUE 

RETURN 

the  sky  hackdrop 
CONTINUE 

IP( 3)=4*IhORIZ(ICASE)*LOwN(3)/(nCR*LO«N(ICASE) ) 
Xs(7+(A*IP(1 )+B*IP(2) )*DI VSKY)* 

31  .Q*FXPC-(IPC3)*.'*CR  +  lEI3)*4)*SKlSClj/NCR) 
YsEXPC-  l*SKYSCLD 
I  R  s  X  *  Y 

IFCICOLOR  .FI. 3)  THEN 
IRV(  1  )3f, 

IPV(2)=0 
tPV ( 3 )  =  I R 

END  IF 

IXPINC=IP(1  ) - f  1 0  K  N ( 1  ) 

I  YPINC=IPc2)-I.0wN(2) 

I  dPlMC=r°(  3)-r/JwN(  3) 

CALL  INCREM(r  JT(*  300) 

0)  boo  <  7  s  s  1  ,  I C  0  L  0  R 

I rEvPUF(KvS, ISCRN(2),ISCR<C1 )  )  =  I TE**  HUF  C  K  V  S  ,  I  SCR  N  (  2  )  , 
ISCRNC1 1 )+lPV(KVS) 

CJNTI  MllE 

IF(  ICN1  f  ISCPN(2)  ,  I  SCUM  1  )  )  .LT.D)  THEN 

IC nT( IsCPNf 2) , ISCRN( 1 ) )siC  m 1 SCRN ( 2) , l  SCRN ( 1 ) )  +  l 
Fuse 

ICnT(  IsCrL(  2)  ,  ISCRNU  )  )  =  ic  <7  C I  SCRN  (2)  ,  ISCRnCI  )  0  - 1  2  7 
e  j  n  i  f 

IXPINC=0 
I YPINC=0 

i  zp  i  ecs  \n 

TP( 3)sTP( 31+4/2 

CALL  INCRE«E  .’T(*  300  )  1  300  IF  END  OF  THE  SCREEN 

IFC  (ISCRNf  1  )  .GE.  C 1FILDIM  +  1  )  )  .  JR  .  ( I  SCR  M  ( 1)  .  LE .  0  )  )  T^rN 

Goto  hso 
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ELSE  IF( ( ISCPn ( 2) .GF. ( IFILDIM+I ) ) .OR. ( ISCrn ( 2 ) . LE.O ) ) 
THEN 

GOTH  R50 

E  iDIF 

01  HOO  K  V S  =  1 , T  C  0  L  3  R 

HFMhUF(KvSf  ISCR-XC2)  f  ISCRMC  1)  )slIEN»UF(KVS«  1SCKn(  2) 

ISCRNfl  )  WJPV(KVS) 

CONTINUE 

IF(ICMT(IsCRN(2) , ISCKNC1 ) ) . LT.O)  THEN 

ICNTCISCRNC2) , ISCPN ( 1 ) ) =1 CN T ( I SCRN ( 2 ) , I SCRN ( 1 ) ) ♦ 1 

ELSE 

ICN  T(  TSCRN,(2)  ,ISCRNC1  J  )=ICNr(ISCPN(2)  ,ISCRN(1  n-127 
ENDIF 

x=x*y 

I  R  =  X 

rECiCOLQR  .Ell.  3)  THEN 
IRV ( 1 ) *0 
I R  V  (  3  )  s  I  R 

END  IF 
GOTO  700 

type* , 'th-th-th-th-thats  all  folks' 

WRITEUO,*),  'FIRST  SCAN  LNs'.ISTART,  'LAST*', LINE 
T/PE*. 'FIRST  SCAN  L  N  s  ' , I S  T  A  R  T , 'LAST*', LINE 
CALL  FINFIL 
RETURN 
EW 
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APPENDIX  F H 
P7.WULT.FJR 


C  pzmult.for 

C  CREATED  HT  PHILIP  GATT  ON  JUNE  25  1901 

c  this  is  a  multiply  routine  which  neglects  overfed* 

C  AND  TS  USED  By  THE  PROJECTION  PROCESSOR 
C  THIS  ROJTINK  4  UST  BE  COMPILED  WITH  THE  QUALIFIER 
C  /CHKCKsNOOVERFLOW 

SUBROUTINE  m U L T ( I  COM , I U P , i W P , lVP,JX,jy,IRESU,IRESW) 

IRESU  =  ICOM*IUP-JX*IVP 

IRESW  =  -TCnN*lWP-jy*IVP 

RETURN 

END 
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APPENDIX  FI 
PZN'IISE.FJR 


PZNOT  >F  .  FflP 

THIS  IS  A  Cn^M'JN  BLOCK  FOR  HE  XQISE  DATA 

BifTE  IDAr(Sl2,S12, 3) 

C  J M  >1 0  ’/M0TSF/1DAT 


C.J  CJ  CJ 
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APPENDIX  EJ 
PZPROJ.FJR 


*1' 


PZPP3J.EDU 


MEMORY  EXTENSIVE 

SUBROUTINE  PRO  )ECTION(  *) 

PULI  P  <1 A  T  T  (005-806-4741) 

THIS  ROUTINE  COMPUTES  HE  screen  location  of  a  visible 
P  J  T  NT  . 

I  vPfJT  VARIABLES  ARE:  I  P  (  3  )  ,  1  P  X  N  C  (  3  )  ,  I  E  (  3  )  ,  I R  QT  (  3  ,  J  ) 

IP  =  POSITION  3F  visible  POINT  IN  EYE  CE.NTRtC 
WORLD  COORDS  SCALED  TO  A PpROX 1 M AT L Y  1? 
BITS  AND  1J  NCR  UNITS. 

I  P 1  C  =  I  N  C  R  E  M  E  *’  T  4  L  DISTANCE  BETWEEN  SUCCESSIVE 
POINTS  SCALED  THE  SAME  AS  IP. 

IE  =  POSITION  OF  e-YF;  *.)RLD  COORDINATES 
[ROT  =  POTATION  MATRIX  DUE  TO  FOUATIOnS  OF 

MOTION  FRJM  THE  INITIAL  TO  THE  PRESENT 
I R  I E  w  T  A  T I  J N  SCALED  BY  ISCALt  :  USUALLY 
4096. 

output  vartahlfs  are:  iscrn(2) 

IsCRN  =  SCREEN  BUFFER  C j - 0 R D I N A T ES  OF  TnE 
VISIBLE  POINT. 


C  INSTANTS  AP>-  :  ICONST,  JC1NSIX,  ICONSTY  (INITIALIZED  H 
P  L  S  C  F  N  F  ) 

ICO  .’STSNPL*!  VS 
J C 0  •  S T  =  N  P L *  IDS 
jrn:,STYsNPL»US 

*  R  F  R  E  -!Pl,=  PIXELS  PER  UNIT  LENGTH,  AND  THE 
SCREEN  CE  UE.P  IS  At  (  iUS,  TVS,  TwS)  IN  EYE  CO:)RnS 
KEY  VARIABLES  ARE  ( I XS , I YS , JEKR J , JERR*  ) 

I  X  S , I Y  S  =  SCREEN  CO-ORDINATES  OF  A  VISIBLE  D  0  y  N  T 
JF»RU,JFRRw  =  THE  SCALED  ERROR  BETWEEN  IRE 

r  N  T  r.  G  E  R  SCREEN  CO-ORDINATE.  A  N  0  T'Jt' 
REAL  SC  R  F  E  N  CO-ORDINATE  PROjEcTrO 
BACK  TO  THE  V I S  ABLE  POlU. 

THIS  HO  JIT  , E  USES  FOUR  CO-ORDINATE  SYSTEMS 
1)  r H  F  WORLD  CO-ORDINATES  X,Y,Z 


5  \1 


UNCLASSIFIED 


flL  SCAN  EVOLUTION(U)  UNI VERSITV  OF  CENTRAL  FLORIDA 
ORLANDO  DEPT  OF  ELECTRICAL  ENGINEERING  B  U  PATZ  ET  AL. 
FEB  82  NAVTRAEQU I PC-80-D-D814-2  N6i239-80-D-8014 
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2)  THE  EYE  CO-ORDINATES  U , Y  , tf 

3)  THE  SCREEN  CO-ORDINATES  IXS,IYS 

4)  THE  SCREEN  BUFFER  CO-ORDINATES  ISCRN(I), 
ISCRNC2) 

THE  SCREEN  IS  IN  THE  U,W  PLANE,  AND  IS  CENTERED  AT 
(IUS,IVS,IWS).  IT  HAS  X  AND  Y  AXES  WITH  THE  ORIGIN 
In  THE  CENTER. 

THE  X  AXIS  TS  PARALLEL  TO  THE  U  AXIS  -OF  THE  EYE,  WHILE 
THF  Y  AXIS  IS  PARALLEL  TO  THE  -rf  AXIS  OF  THE  EYE.  SEE 
FIG.  JA 

THE  SCREEN  BUFFER  HAS  THE  SAME  ORIENTATION  AS  THE  SCREEN 
BUT  IT'S  ORIGIN  IS  IN  THE  UPPER  LEFT  HAND  CORNER.  SEE 
FIG.  IB 

INCLUDE  'PZCUNDAT.FOR' 

COMMON/PR OJ/JC ON STX,JCONSTY#ICONST,IROTC3, 3) ,ROT(3, 3) 
C3MM3N/PR0JSCAN/JERRU, jerrw,ivpqint,icrash 
COMNON/PROJ1/NP1X, i axis 

C  ROTATE  FIRST  POINT 

IUPOINT=IROT(1  ,l)*IP(nTlHOr(2,l)*IP(2)  +  lROT(3,l)*Ip(3) 
IVP0INT=IR0T(1 , 2  )  *IP ( 1 ) -UROT (  2 , 2 )  *1  PC  2 ) +IROT C  3 , 2 )  ♦  Ip(  3 ) 
InPOINTsIrOtII ,3)AIPd)*IROT(2, 3)AlP(2)4lR0T(3,3)Alp(3) 

C  COMPUTE  SCREEN  COORDINATES  FOR  THE  FIRST  POINT 
IXS  =  1.*IC0NST*IUP0INT/IVP0IST 
IYS  e-1 .♦lCQNST*IrfPOINT/IVPOINT 
ISCRN(n  =  (2*(IXS-JCONSTX)+NX+2)/2 
ISCRN(2)s(2A(IYS+JC3NSTY)+NY+2)/2 

C  COMPUTE  ERROR  OF  FIRST  POINT 

call  mult(iconst,  iupoint.iwpoint,  ivpoint,ixs,iys,  jerr<j, 

*  JERRW) 

C  NEXT  PIXEL  TEST  FOR  FIRST  POINT 

100  IF  ( (2*JERRU.GE. IVPOINT). OR. (2AJERRU.LT. -IVPOINI) )  THEN 

lNCX*ISlGNd,  JERRU) 

IXSrlXS+INCX 

ISCRN(n=ISCRN(l)+INCX 

JERRUsJERRU-IVPOINTAINCX 

ENDIF 

IF  ((2AJERRW. GE.IVPOINT). OR. C2AJERRN.LT. -IVPOINI))  T«EN 
iNCYalSivGNd,  JERRM) 

IYS=IYS+INCY 

ISCRN(2)=ISCRN(2)+INCY 

JERR'VsJEHRH-IVPOINT^InCY 

ENDIF 

C  CHECK  FOR  CRASH 

IF(ICRASH  .GE.  IVPOINT)  THEN 

WRITE  (h,A)  *  "ERROR"' 

WRITE  (6, A)  '  POINT  IS  BETWEEN  EYE  AND  SCREEN  ' 
RETURN2 


END  IF 
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C  TEST  SCREEN  COORDINATE  BY  USING  A  DIVIDE 
CALL  TESTOR 

C  OUTPUT  SCREEN  BUFFER  CO-ORDINATES  FOR  VISIBLE  POINT 
IF(NPtX.EQ.O)  THEN 

lF(ClSCRN(l).LE.O).OR.(ISCRN(2).LE.O))  RETURN! 

ELSE 

IF(  ISCRN( IAXIS) .Gb.NPIX)  RETURN  1 

ENDIF 

RETURN 


ENTRY  INCREMENT!*) 

C  ROTATE  INCREMENTAL  DISTANCE  FOR  NEXT  POINT 

I  UP  I NC  s  IRnT(l,l)*IXPINC*IRnr(2,imyPINC  +  IROT(3,l) 

*  *  I Z  P I M  c 

I  V  P I N  C  a  lROT( 1 ,2)*IXPINC*IROr(2,2)*IYPINC*lROT(3,2) 

*  *IZPINC 

I  VP INC  a  IRQT(l,3)*IXPINC*IROT(2,3)*IYPINC+IROT{3,3) 

*  *IZPINC 

C  UPDATE  V  CO-ORDINATE 

IVP'JINTsIVPOlNT+IVPINC 

COMPUTE  ERROR  FOR  NEXT  POINT 

MULT  IS  A  MULTIPLY  ROUTINE  WHICH  NEGLECTS  OVERFLOW 
MULT  MUST  BE  COMPILE!  AS  FOR/CHECK=NO'JVERFLOW  BPMULT 

CALL  MULT(lCONST,IUPINC,I*PINC,IVPINCrIXS,IYS,IRESULTlJ 

*  IRESULTW) 

D  IF(ABS( IRESULTU)  .GT.  IVPOINT/2)  THEN 

D  TYPE*, 'ERROR  NCR  TO  LARGE  U  =  ' , NCR, ' AT' , I SCrN 

o  type* , 'ipp=' , ipp 

D  ENDIF 

D  JF(ABSCtRESULTW)  .GT.  IVPOINT/2)  THEN 

D  TYPE*, 'ERROR  NCR  10  LAR«E  W  s ' , NCR , ' A T ' , I SCRN 

D  TYPE*, 'AT  lPPs',IPP 

0  E'lDIF 

JERRU  =  JERRU+ IRESULTU 

JERRW  s  JERRW+IRESULTW 

GOTO  100 


END 
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APPENDIX  FK 
PZSCAN.FOR 


PZSCAN  ,  FOR 

THIS  ROUTINE  DETERMINES  THE  SCA«LiNE  SE3UENCE  OF  POINTS  AnD 
CALLS  THE  DATA  BASE  TO  DETERMINE  HEIGHT,  AND  PERFORMS  THE 
VISIBILITY  TEST. 

INPUT  V AR IBLES  ( IPP(2) .LOwN( 3) ,EEEE, JXY2, IXY2) 

IPP  IS  THE  DATA  POINT  IN  WORLD  COORDINATES 

LOWN  IS  THE  LAST  VISIBLE  POINT  SCALED  TO  APPROXIMATLY  12  BITS 
EEEE  IS  THE  BRESENHAM  ERROR  TERM 

I XY2  T3  THE  LENGTH  OF  THE  FAST  AXIS  SCALED  TO  12  BITS 
JXY2  IS  THE  LENGTH  OF  THE  SLOW  AXIS  SCALED  TO  12  BITS 
OUTPUT  VARIABLES  ( I P ( 3 1 , I HEIGHT ) 

IP  IS  THE  MEW  data  POINT  in  EYE  CENTRIC  WORLD 
COORDINATES  SCALED  TO  12  ©ITS 

IHEIGHT  IS  THE  EVE  CENTRIC  hTEGHT  OF  THE  ENVIkOFENT  Ar 
IP(1),IP(2) 

SUBROUTINE  SCAN(*) 

include  #pzcomoat.for# 

common /PROUSC an/ JERRU ,JERKW, IV , ICR ASH 
COMMON/SCAN/IMC,INCIO,INC4,INC4IO, TUCK, INCH 10, 

*  IWH0RIZ(2),IEEE,NCRL 

COMMON/ V I S/LOWN(  i) , IHIEGHi 

COM:iON/SLsTAR/NCRLIM,XLN?»lNGr,iXY2,JXY2,IOXY,DELrA 
»0  CONTINUE 

IPP(ICASE)  =  IPP( ICMSE) H OCR 

TF(lPP(ICA3E)*INC.GE.lAiiOKlZ(lCASE)»lNC)  RETURN  1 
IPCICASE)  *  I P  (  IC  ASE  )  ♦  I  '«C4 
IEEE  =  TEKE+JXY2 
1F( IEEE. GT.O) THEN 

IPP(IOTHR)  =  IPP(  J.nTHR)  +  lNCRlO 
IP( IOTHR )  s  TP(I01HR)flNC4lJ 
IEEE  *  IEEE-IXY2 

Elll’IF 

IF  IP(ICASF)  EXCEEDS  THE  VALUE  UF  4*NCKL1M  THEN  I  T  IS  T  T^E  i*() 
3J  TO  THE  NEXT  HIERARCHY  OF  DATA.  THIS  MEANS  ME  l NCRL A SF  TrE 
FAKE  EXPONENT  " TCL"  BY  l  AND  ALL  NORMALIZED  VALUES  CHANGE  By 
A  FACTOR  Of  2. 
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IF(4*nCRL.LF.TP(ICASE)*INC)  THEN 

NCRL=1.*NCRL/DELTA  i THERORE TI C ALY  DELTA  a  1 . 4 J  4 

('ICR  =  NCR*2 

I CL  =  ICL+1 

I  NCR  s  I  NCR  *  2 

InCRIO  =  INCRI0*2 

JERRIJ  a  JERRU/2 

JERPH  s  JEHRW/2 

IV  =  IV/2 

ICR  ASH  a  ICRASH/2 

00  200  I  a  1,3 

I  PC  I >  =  lP(I)/2 
LQWN(I)  s  L0WN(I)/2 

Continue 

IEEE  S  -£DXY+(IP(ICASE)*JXY2*INC-IP(IOTHR)*1XY2*INCtO)/4 
IF£ IEEE.GE.O)  THEN 

TYPE*, 'IEEE  >0  SCAN,  IPPa' , IPP, 'Ipa' , IP, 

*  'IEE£=',IEEE 

IEEE  a  IEEE-IXY2 

IPP( IOTHR J  =  IPPCIDTHRJ+INCRIO 

IP(IOTHR)  =  IPCI0THRUINC4I0 

E  M  D I F 

IE(IEEE.LT.-IXY2)  THEN 

TYPE*, 'I£E£<-IXY2  SCAN,  IPPa',IPP,'lPa',Ip, 

♦  '  lEEEa' , IEEE 

IEEE  s  I £££+ 1 X Y2 

IPPCIOTHRJ  a  IPP(IOTHR)-INCKIL) 

IP(IOTHR)  =  IP(I0TH«)-INC4IU 

EMOIF 

ENOIF 

OTHER  =  1.*IHORIZ(IOTHR)*IP(ICASE)/IHORIZ(ICASE) 

TEST  a  AHS(A8R(TPCI0THR))-AdS(0rHER)) 

IFCTEST.GT. (4.*NCR) )  THEN 

TYPF  *,'SCAN  ERROR  IP  SHOULD  BE ' , I P ( IC ASE) , oTrER 
TYPE*, 'BUT  IS  ', IP, 'AND  NCR=',NCR 

ENDIF 

G1T0  (lv)Oi  ,100S)  ,IDATBAS 
1  CALL  ZROATA(IOIO) 

5  CALL  COL UROAfA(lOlO) 

0  COVri'ltlE 

ZRUAT*  RETURNS  IP(3),  THE  LOCAl,  HEIGHT  OF  THE  wORLD  POINT. 
SINCE  n  E  ARE  FORKING  T  N  NORMALIZED  COORDINATES,  IPO) 

MUST  BE  CONVERTED  TO  IP(3),  HHlCH  IS  IN  EYE  CENTRIC 
COORD'S  A, ID  IN  ••NCR'’  UNITS. 

LASTJPalHlEGHT 
HIEGHT  a  TP(3)-IK(3) 

IhIEShT  a  CTHIEGHT*1SIGN( NCR/2, IHIEGHT))*4/nCK 
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KK  s  L0WM(3)*IP(ICASE) 

JJ  s  LCH'M(lCASE)*IHI£GHr 
IF(TNC.GT.0)THEN 

TF(JJ.LT.KK)G0T0  100 

ELSE 

IF(  ,1J.GT.KK)G0T3  100 


F4D1F 


i  MOT  VISIBLE 

i mo r  visible 


IF(tHIFGrlT.LE.LASTIP)  THEM 
lP(  3 ) slHIEGHT 

ELSE 

R IP  s  l.*KK/LOtfNClCASE) 

IP( 3)  =  (RIP  ♦  SIGM(.S,RIP)) 

E1DIF 

RETURN 

END 
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APPENDIX  FL 
PZSCENF.FUR 


pzscene.for 

PROGRAMED  BY  PHILIP  GATT  0<>e>-47*l 

LATEST  REVISOIN  DATE  : JUNE  10  1981  BY  P.  GATT 

THIS  ROUTINE  INITIALIZES  MOST  SCENE  PARAMATERS  AND  HANDLES  ALL 
INPUT  AND  OUTPUT  DATA. 

THIS  PROGRAM  SETS  UP  THE  FOLLOWING  SCENE  CONSTANTS: 

1.  THE  ROTATION  matrix.  ROT 

2.  THE  LOCATION  OF  THE  SCREEN  CORNERS  IN  EYE  CENTRIC 

WORLD  CUDRDINTAES.  COR(4,3) 

3.  THE  DISTANCE  FROM  THE  NADIR  TO  THE  DROPPED  CORNERS. 

CMAGI4) 

4.  THE  CROSS  PRODUCT  OF  THE  FOUR  CORNERS.  CROSS! 4) 

5.  THE  ANGLE  OF  EACH  CORNER  RELATIVE  TO  CORNER  4 

CANGC3) 

6.  THE  ANGLE  BETWEEN  SCAN  LINES,  SUCH  THAT  AT  LEAST  TWO 

SCAN  LINES  CUT  THROUGH  EACH  PIXEL.  ANG 

9 .  THE  LINES  BETWEEN  THE  FOUR  CORNERS  ON  THE  GROUND  AA(4,2) 

10.  CONSTANTS  FOR  THE  FOLOWING  ROUTINES  :  PGPROJ,  PGRL, 

PGLOGLOAD 


SUBROUTINE  OETSCENE 

HCLUDE  #  PZCOv  D A  T  .  FOR  ' 

INCLUDE  'pZnOISE.FOR' 

C  OMMO'4/0  ATAB  ASE/N 1 024  ,  IOFFt  (  3,2)  ,  IOFF2C  3,2)  , SCALE (3,2)  , 

*  IHRFLOI3) ,SR0V4,C0VMAG,IDUV2,KSI,KSI4,KSI5,KSI7,KSI8» 

*  IDFNSITY(3,2) ,SB40VA,SB70VA,DN01 (3,2) ,W1 ,W,IPIL,LSCAL. 

*  IwAVSCAL, maxheight 

C 1MM0N/REAL/ANG,S0RA, AA(4,3) ,CANG(4) ,CMAG(4) , CORUSE (4, 3) 
C  }MMOH/SL/NADTR,KSL, IFIRSl,NFXTCOR 

C )MMON/PROJ/JCONSTX, JCONSTY, ICONSr,IROT(3,3) ,ROI (3,3) 
COMMO </PROJl/NPlX,IAXIS 
COMMON/LOAU/IXSO, I YSO 

C JHM0N/SLSTAR/NCRLIM,XLN2,lHGr, IXY2, JXY2, IDXY, DELTA 

rOMMOU/SU j/a,b,c,smarg,skyscl,davsky 
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C  l*nr>N/  1 A  { .' J /  t  S T A R  T  ,  IEND 

niM£NSin\l  CP0SS(4)  ,C0R(4, 3) 

DATA  Nl024/l024/,IFILDI4/5l2/ 

DATA  161 TSCaLE/4096/ 

DATA  MCRMM/1414/ 

OATA  IDXY/32000/ 

DATA  SCALE/. 03,. 5, 8.,. 12, 2. b, 31/ 

DATA  «U/2.849O03E-6/,W/8.950406E-6/  ! Wl=l/1 17000 

DATA  10ESSITY/1 ,7,733, 3,31 ,2483/ 

DATA  LSCAL/2/  ,  IrfAVSCAL/47/ 

TYPE*,  *  INPUT  I8ITSCALE  /  NCR  LI  M  ,  DELTA' 

ACCEPT*, I RITSCALE,NCRLIM, DELTA 

TXY2=2*tOXY 
X  LN  2s 1 . /A LOG ( 2 • ) 

JtIJ=99917 
DO  1666  1=1,3 
DJ  1668  J=l,2 
XsRAN(JtlJ) 

IDFF1  (I , 

X=RAN( JIIJ) 

1DFF2 (I , J 
CONTINUE 

type*, 'Type  the  oolar  sun  angle  from  the  Z  axis 
(DEGREES)' 

ACCEPT*, TZDEG 

TZRADsTZOEG/57.3 

SINZ=SIN(tZRAD) 

type*, 'Type  the  cylindrical  sun  angle  from  the  X  axis  to 
ward  th-  y  axis  ( DEGREES) * 

ACCEPT*,  TXDEG 


TXRADsTXDEG/57.3 

CaCaS(TZRAD) 

A=STNZ*COS(TXRAD) 

BsSIMZ*SlN(TXRAD) 

W 1  =  A 1  *  3 
w  s*  *  3 

S4ARG=S0RT(A*A+R*8) 

SAOVAaR/A 
C )VMARG=C/SMARG 
IDDV2=IOSlS]TY(2,2)/2 
KSI=SCALE(2, 2)*IDENSITY(2,2) 
KSI4s3*IDENSITY(2,2) 
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KSI5=4*lOENSlTY(2,2> 

KSI7s5*lOENSlTY(2,2) 

KSI8=6*IDENSITY(2,2) 

IBRFLDf 1 )s20000000 

TSRFLD(2)s60*SCAL£(2,2)  l  THIS  SETS  BEACH  3QUNDR Y  AT 
C  ABOUT  90*2.5=210  UNITS  OR  21  FEET. 

IBRFI.DC  J)  =  IBRFLD(2)-150 
DO  311  1=1,3 
DO  311  J=1 , 2 
XsIOEMSITYCl #  J  ) 

311  DN01(I,J)=l./X 

SB40VA=S8nVA*3 
SB70VA=SR0VA*5 

300  TYPE*, 'INPUT  DATABASE  CHOICE  t*BUILOING(BW)  2=C0L0RD*T 

ACCEPT*, IDAT0AS 

IFC(IOAT8AS.LT.l).0R.(IDATBAS.Gf.2))  GOTO  300 
TYPE*, 'INPUT  STARTING  SCANLINE  , ENDING  ' 

TYPE*, 'INPUT  SCALE  FACTOR  FUR  ANGLE  BETWEEN  SCAN  LlNEs' 

ACCEPT*, ISTART,IEND,ANGF ACTOR 

TYPE*, 'INPUT  THE  EYE  LOCATION  XE,YE,ZE' 

TYPE*, 'INPUT  THE  SCREEN  CENTER  IUS,IVS,IWS' 

TYPE*, 'INPUT  THE  SCREEN  DIMENSIONS  (PIXELS)  NX, NY' 
TYPE*, 'INPUT  THE  SCREEN  LENGTH  ALONG  THE  X  AXIS  NOTE' 
TYPE* , ' Y  LENGTH  IS  COMPUTED  SINCE  WE  WANT  SQUARE  PIXELS 
ACCEPT*, IE,IUS,IVS,IWS,NX,NY,RLX 
TYPE*, 'INPUT  PITCH, BANK, HEADING  IN  DEGREES' 

ACCEPT*, PITCH, BANK, HEADING 
DO  400  K  =  1,3 

TYPE*, 'DO  YOU  WANT  TO  READ  IN  TEXTURE  NOISE  IDAT',K,'? 

*  YESsl' 

ACCEPT*. IYFS 

IF( I YES.EQ. 1 )  THEN 

TYPE*,'  WHICH  FILE  DO  YJU  WANT  TO  READ  NOISE 

*  FROM  (40S49)  ' 

ACCEPT*, IFILE 

TYPE*,'  READING  ID A  I ' , K , ' FROM  FILE  ', IFILE 
READ (IFILE, 500)  ( ( I  DA  I ( l , J , K) , 1  =  1 , 512 ) , J=1 , 5l 2) 

ENDIF 

400  CONTINUE 

500  FORMATt 1 32A1  ) 

IPP(2)*IE(2) 

IPP(1)  =  I5(U 
NCR  =  1 

IF( IDATBAS  .EQ.  1)  CALL  ZRDATA 
IF( IDATBAs  .EQ.  2)  CALL  COLURDATA 
IF  THE  VIEWER  IS  WITHIN  THE  LEVEL  SURFACE  NO  VISIBLE  POINTS 
WILL  BE  TRANSMITTED  BY  SCAN.  I.E.  IF  A  PLANE  FLEW  INTO  THE 
SlOE  OF  A  MOUNTAIN  OR  INTO  THE  OCEAN,  ETC.  SEE  STATEMENT  Or 
WORK  D03E  BY  TERRY  TANZFY. 

TYPE*, 'ELEVATION  UNDER  THE  EYE  IS',IP(3) 

WRITEOO,  *)  'ELEVATION  UNDER  THE  EYE  IS',IP(3) 
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f 


r 

3 


1F(IE(3).L,T.  ipmiTHEN 

type*, 'eye  is  inside  the  data  base' 

TYPE*, 'AT  THE  WORLD  POI NT' , IPP , IP( 3 ) 

STOP 

EMOIF 

C  MAXHEIG3T  SOULD  BE  RETURNED  FRO*  DATABASE  ON  THE  FIRST  CALL 
IHGTs*AXHFIGHT-IE( 3) 

TYPE*, ' <ZXHFIGHT,IE(1) , IHGT= ' , MAXHEIGHT , IEC 3 ) ,IHGT 

HlRlZONLl*sl2^0*IE( 3) **.5 

TYPE*  ,  'BPSCENF-  HO«IZONLIm  =  ',H3RIZONLIH 

NPLsNX/RLX 

RLYsNY*RLX/MX 

C  COMPUTE  SINES  AND  COSINES 

PITCHI=PITCH*3.141592654/180 
HEADING  1  SHEADING* 3, 141592654/180 
BANK1sBANK*3. 141592654/180 

SH=SINf HEADING1) 

SP=SIN(PITCH1) 

SB  =  SIN(BANKl ) 

CH*COS(HEADING1 ) 

CPsCOSCPlTCHl) 

CB  =  C0S(BAMK1  ) 

C  COMPUTE  THE  ROTATION  MATRIX 

RJT(1 ,1 )=CB*CH-SH*SB*SP 

ROTC1 ,2)=-SH*CB-S8*SP*CH 

R0T(1 ,3)*-S6*CP 

ROT ( 2 , 1 )3CP*SH 

ROT(2,2)*CP*CH 

ROT  C  2 , 3 ) =  -SP 

ROT (3, 1 )*SR*CH+CB*SP*SH 

ROT(3,2)=-SH*SB+CB*SP*CH 

ROT ( 3 , 3  ) *CB*CP 

C  CALCULATE  THE  SCREEN  CORNERS  IN  EYE  CENTRIC 

C  WORLD  COORDINATES  COR(4,3) 

DO  600  1*1,3 
Al*IUS*ROT(l  ,  I ) 

A2*IWS*R0T(3,I) 

A  3*IVS*ROT(2,I) 

A4=RLX*R0T(l,I)/2 

AS*RLY*ROT(3,I)/2 

XsAl A2tA3 

Y1*A4+AS 

Y2*A4-AS 

COR ( 1 , 1 ) *  X ♦ Y 1 

C  lR(?,n*X-Y2 

CJR(3,I)*X-Y1 
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C3R(4,I)*X+Y2 
600  CONTINUE 

C  COMPUTE  THE  CROSS  PRODUCTS  OF  THE  SCREEN  CORNERS  CROSS C 4) 
CROSS<n=COR(4,l)*CORCl,2)-COR(4,2)*COR(l,l) 
no  900  Is2#  4 
Ksl-l 

CRnsS(I)aC0H(K,l )*COR(I,2)-COR(«,2)*COR(I,1) 

900  CONTINUE 

C  COMPUTE  WHERE  IS  THE  NADIR  AND  RENUMBER  THE  CORNERS. 


FIGURE  1  NADIR  LOCATION  WITH  RESPECT  TO  THE  FOUR 

DROPPED  SCREEN  CORNERS.  THERE  ARE  9  CASES. 
EACH  CASE  IS  LABELED  WITH  A  LETTER  (A-I). 


KFL  AG=9 

NADIR  a  1 

KSL  a  1 

NPIX  a  NX 

I  CASE  I 

IAXSIS  a  1 

If (CROSSCl ) 

.LT. 

0)  THEN 

iCASE  B 

00  1 

I  a 

1.4 

no  i 

J  8 

1.3 

1  CORUSF ( I #  J )  a  C0Rl(JMJD(I,4)  ♦  1),J) 

KSL  a  2 
NplX  a  0 
I  AXIS  a  2 
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NADIR  s  0 

tF((CwnsS(2)  ,E3.0).0R.(CROSS(4).E3.0))  GO  TO  25 
IF ( CROSS ( 4 )  .LT.O)  THwN  ICASE  E 

KFLAG=5 
NADIR  s  -1 
GO  TO  25 

END  IF 

KFLAGs? 

F  ID  IF 

IFCCRQSSC?)  .LT.  0)  THEN  iCASE  C 

On  2  I  =  1/4 
00  2  J  =  1  ,  3 

CnRUSECI,J)  =  C0RCCJMQD(CI+1),4)  ♦  1),J) 

KSL  =  3 
NPIX  =  0 
IAXIS  =  1 
NADIR  s  0 

IF((CR0SS(1)  ,E3.0).0R. (CROSS (3).£Q.O))  GO  TO  25 
IF(CR0SS(1)  .LT.O)  THEN  ICASE  F 

KFLAG=6 
NADIR  s  -1 
GO  TO  25 

ENDIF 
KFL AG*  3 

E4DIF 

IF(CR0SS(3)  .LT.  f . )  THEN  ICASE  D 

DO  3  I  =  1,4 
DO  3  J  s  1,3 

CORUSECI.J)  s  C0R((JHDDC(I+2),4)  +  1),J) 

KSL  =  4 
Nplx  s  NY 
IAXIS  s  2 
NADIR  s  0 

if ( ( cross ( 2 )  .E3.0).ok.(cross(4).eo.0))  go  to  25 

lF(CRnSS(2)  .LT.O)  THEN  ICASE  G 

KFLAGr7 
NADIR  s  -1 
GO  TO  25 

ENDIF 

KFLAGs4 

ENDTF 

1FCCR0SSC4)  .LT.  0)  THEN  iCASE  A 

KSL  =  t 
00  4  I  s  1,4 
DO  4  J  s  1,3 
COR!l$E(T,J)  a  COPCI, J) 

NPIX  3  NX 
IAXIS  s  1 
NADIR  =  0 

I F ( ( CROSS ( 3 )  .E3.0).0K.CCR0SSC1).E3.0))  GO  TO  25 
rF(rR0SS(3)  .LT.O)  THEN  ICASE  H 
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KFLAGsS 
NADIR  a  -1 
GO  TO  25 

END  IP 
KFLAGsl 

ENDIF 

GO  TO  (11,12, 13, 14, 15, 16, 17, 18, 19), KFLAG 

11  TYPE*  ,  'CASE  =  A  ' 

W«ITE(10,4) , 'CASE  a  A' 

GOTO  20 

12  TYPE*, 'CASE  =  B' 

WRITFCIO,*) , 'CASE  *  B' 

GOTO  20 

13  TYPE*, 'CASE  =  C' 

WRITE(10,*) ,'CASE  a  C' 

GOTO  20 

14  TYPE*, 'CASE  =  D' 

WRITEdO,*)  , 'CASE  a  D' 

GOTO  20 

15  TYPE*, 'CASE  a  E' 

KRirE(10,*),'CASE  a  E' 

GOTO  20 

16  TYPE*, 'CASE  =  F' 

WRITE(10,*),'CASE  a  F' 

GOTO  20 

17  TYPE*, 'CASE  *  G' 

WRITEdO,*)  , 'CASE  a  G' 

GOTO  20 

18  TYPE*, 'CASE  =  H' 

WRITEdO,*)  ,  'CASE  a  H' 

GOTO  20 

19  TYPE*, 'CASE  =  I' 

WRITEdO,*), 'CASE  a  I' 

20  CONTINUE 

25  NEXTCOP  a  1 


C  COMPUTE  THE  DISTANCE  FORM  THE  NADIR  TO  THE  CORNERS  WHEN 
C  DROPPED  TO  THE  FUAT  EARTH  C*AG(4) 

DO  ROD  1=1,4 
CM AG ( I ) =0 
IV)  700  1=]  ,2 

xafoR'isECi :,,n 
CMAG( I)aCMAG(I)  +  X*X 
700  C  ) N T I N I i E 

CMAG(I)=SOWTCCMAGCI)) 

800  CONTINUE 


C  COMPUTE  THE  AJG[,E  TO  EACH  SCREEN  CORNER  FROM  THE  NADIR  CAnG(3) 
DO  1  000  1  =  1  ,4 

C  A  NG  ( I)  =  A  T  A  N  2  (  COR.JSE  (  1 , 2  )  ,  C  JRUSE  (  1 , 1  )  ) 

CONTI  HUE 


10  00 
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DO  1100  1=1,1 
CAMG(I)=CANG(  I)-C4NG(4) 

IFCCAMG(I).l.T.O)  CANG(I)aCANG(I)+2*3.14l592654 
IF(CANGCI) .LT.O)  TYPE  * , 'ERROR  IN  C ANG C I )  =  ' , C ANG (  I ) 

1100  CONTINUE 

IF(NADIR.EQ.O)  CAMG(4)  =  2*3.14159 
COMPUTE  ANGLE  BETWEEN  SUCCESSIVE  SCAN  LINES 

A JG  =  ANGFACTOK*(RLX*RLX  *  RLY *RL t ) / ( 3*CM AG ( t ) *CM AG ( 1 ) *  NX ) 
A'1G=((C0RUSE(1  ,1)-C0RUSE(2,  1))**2+ (CORUSE (1,2)- 

*  CORUSe(2,2))**2)/(2*2*NX*NX*CMA3(l )*CMAG(1)) 
ANG=SORT(ANG)*ANGFACTOR 

DJ  1300  1=1,3 

A  A ( 1 , 1 )  s  CORUSE C  4,I)-C0RUSEd,I) 

A  A ( 2 , 1 )  =  C0RUSE(l,I)-CaRUSE(2,I) 

A  A ( 3 , I )  =  CORMSE(2,I)-C0RUSE£3,I) 

A  A  (  4 , 1  )  =  CORUSE(3,I)-C0RUSE£4,I) 

1300  CONTINUE 

C  PRO J  CONSTANTS 

DO  1400  Isl , 3 
DO  1400  J=1 , 3 

IROTC  J,l)=R0T(I,J)*I8ITSCALE 
1400  CONTINUE 

ICRASHSIVS*I8ITSCALE 
IC0NST=IVS*NPL 
JCONSTXsIUS*NPL 
JC0NS1 YsTwS*NPL 

C  SL  CONSTANTS 

S0RA=ANG**2 
IFIRSTM 
IFINISHEOsO 
S  ij  M  A  N  G  s  0 

C  LOAD  CONSTANTS 
IXS0  =  0 
I YS0=0 

C  OUTPUT  DATA 

WRITE,  (10,*)  ,  '  T  E  (  3  )  a  #  ,  T  E 

wRITF(10,*),  'PITCH,BANK,Ht;AOING  =  '  ,  PITCH,  BANK,  HE  ADIN- 
NRtTE(l  •)»*),  'NADlRa', NADIR 
WRITFC10,*) , 'ANGLE  BETWEENE  SCANSa' , ANG 
WRITE(10,*) , 'SCREEN  CENTER  LOCATION  IN  EYE  COORDS', 

*  IUS, I  VS, IwS 

WRITEC10,*) , 'SCPEEN  DIMENSIONS  IN  PIXELS  (NX, NY)  a', 

*  NX, NY 

WRITE(10,*) , 'SCREEN  DIMENSIONS  IN  LENGTH  ( RLX , RLY)  a'. 
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PZSLI  *1  r.KOP 

PROGRAMED  MY  PHILIP  GA T  f  (*96-4741 

this  routine  initializes  all  scanline  paramaters 

HE  SCREEN  CORNERS  ARE  NUMBERED  COUNTERCLOCKWISE  1-4  STARTING 
AT  THE  JPPER  RI1NT  HAND  CORNER 

SUBROUTINE  SLINIT(*) 

INCLUDE  'PZ COMO AT. FOR' 

COMMON  /REAL/  ANG, SOR A , AA ( 4 , i ) , CANG ( 4 ) , CB AG ( 4 )  , 

*  COR  USE (4, 3) 

C)^R1N/.SL/  NADIR, KSL,IFIRST,NEXTCDR 

CO'JIMON/SLSTAR/ NCRLIM,XLN2, 1«GI,  IX  Y2,JXY2,1DX  Y,  DELTA 
C  0  v  H  D  •  J  /  S  C  A  N  / 1 N  C ,  I N  C  T  0  ,  I N  C  4  ,  I N  C  4 1 1)  ,  1 N  C  R  ,  I N  C  R 1 0  , 

*  I 4H1RIZ( 2) , IEEE, NCRL 

C  V1  *DN/VlS/LOwN(  3)  ,  IHTEGHI 
CriMDr>J/PROJl/NPIX,IAXIS 
D  l "  R  'J  S  T  0  V  HHRIZ(2)  ,RL(3) 

N  C  R  L  =  j  C  R  L  T  ^ 

IF  ( I  FI R ST  .KU.l)  THEM 
lUD  =  4 
IN  s  3 
IFIRST  s  0 
IFLAG  =  1 

IF  (NADIR. NE.  1  )  THEN 

NADIR  IS  OUTSIDE  THE  FOOTPRINT 
RLU)=CDR0SE(1ND,  1  ) 

RL(2)=C0RUSE(1NU,2) 

»LC3)=C3R‘JSECiND,3) 

RKl=AUG/( CORUSE  ( IND, 1 )  * A A ( T N D , 2 ) -COR USE ( I  NO # 2 1  * 
AA(IND, 1  )  ) 

END  IF 

SCALa'IOR  I  ZONLI  M/C  •>  AG  (  I N O ) 

HnRlZf 1 JsfORUSKCIwD, 1 )*SCAL 
RORlZ(2)*CORUSE(TNO,2)*aCAL 

E  LSR 

IF  (NADIR  ,Nfi.  1)  THEN 


1 

C 


* 
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C  r  IEM  THE  NADIR  IS  IOUISIDE 

CL=RK1*(RL(1  )**2+RL(2)**2)*(l+RKl*(AA(lND,l)*RLCl  )♦ 

*  AA(IND,2)*RL(?>)) 

RL(l>aRL(t)+AA(INO,l)*TL 

RL(2)=RL(2)+AA(IND,2)*TL 

IF(A8S(AA(IND,1)).GT..25)  THEN  'WHY  .25  ? 
RL(3)=CORUSE(IN,3)+(RL(l)-CORUSE(IN,l))* 

*  AA(INP,3I/AA(IND,1) 

ELSE 

RL(3)=CCiRUSE(IM,  3 )  •►  ( RL  C  2 ) -CORUSE ( IN ,  2 )  )* 

*  AA(IND, 3)/AA(lND,2) 

ENDIf 

END  IF 

S(IMANG»SUMANG+ANG 

C  COMPUTE  TnE  HORIZON  BY  A  ROTATION  MATRIX  APPROXIMATION 

XsHORlZ(t)«(l-S0RA/2)  -  HORIZ ( 2 ) * ANG 
YsHORlZCl )«ANG  *HOR IZ ( 2 ) * ( 1 -S3R A/2 ) 

HORlZ(l)aX 

HQRTZ(2)ay 

ENDIF 

IF(C NADIR  .EO.-n.AND.UFLAG  .E3.1))  THEN  ICORNEP  CASE 
IF(CANG(3)  ,LE.  SOMANG)  THEN 
IFLAG  a  0 

TYPE*, 'CROSSED  CORNER  3  AT  LINE*', LINE 
TYPE*, 'RESETING  LOWER  BOUND  LINE' 

IND  a  3 
IN  =  2 
GO  TO  1 

EflDIF 

ENDIF 

C  CORNER  CROSS  TEST 

IFCCANG(NEXTCOR)  .LE.  SUMANG)  then 

TYPF*, 'CROSSED  CORNER  ' , NEXTCOR, 'AT  LINE  ',LlNE 
TYPE*, 'WITH  LAST  POINT,  SCREEN  AND  WORLD  COORDSa', 

*  IXBS,IYBS,IPP 

IF  (NEXTCOR  .EO.  (3+NADiK) )  THEN 

TYPE*, 'LAST  LINE  IS  COMPLETED' 

RETURN  1 

ENDIF 

KSLaJMOr(KSL,4)M 
NEXTCHRaNEXTCORfl 
GOTO ( 100, 200, 300, 400 ),KSL 
100  I A  X I S  a  1 

NplX  a  NX 
Gn  TO  500 

200  I  A  X lSs2 

NPl X*0 
GnTn  500 


556 


IJ  IJ  O  (J  cj  u 


tAVTHMio'i  r  pcKf>  ao-o-nm  h-? 


300 

UXISsI 

npIX=0 

GOT)  SOO 

400 

I  A  X I Ss? 

op  IX  s  ',  Y 

500 

C'Vm  r  I  v.JE 

F  on  if 

nomzfDsHnxizcn 

lHTPl2(2)=MnPlZ(2) 
t  «H:)MZ(1  >  =  THn«IZ(l  )+IF(  l  ) 

I  KMf)RTZ(2)sI'iOKTZ(2)4-IE(2) 

ICASF  DEFINES  THE  AXIS  OF  FASTEST  CHANGE  ALONG  1HR  SCAN 
L I N  fe; ,  T  0  T  J  R  DEFINES  THF  AXIS  OF  SLOWEST  CHANGE  ALONG 
THE  SCANLINE 

IFC IAftSC I^O«IZ(2) ) .GT.IABSC IHUR1ZC 1) ) )THFn 
ICA3Fs2 
IUTHMsl 

ELSE 

ICASKsl 

IOTH«s2 

f  \idif 

JXY2=ABS( IXY2*HflRIZ( IQTHR)/rtORIZ( I CASE) ) 

I  \ICsTSIGU1  ,IH9RIZ(ICASE>) 

X  NC(OsISlGN( I , IPO»IZ(IOTRR) ) 

WE  ATTEMPT  TO  APPROXIMATE  THE  STAR  1 1 NG  POINT  ON  THE  GROUND. 

IN  A  MOTION  PICTURE  SEQUENCE,  I HGT  WOULD  BE  AVAILABLE  FRO* 

THE  FIRST  CALL  TO  T«K  DATA  BASE  WHICH  IS  PERFORMED  IN  PZSCEnE 
IF( (IHGT.LT. 0)  .AND. (NADIR. wE.l ) ) THEN 
IKCRLC 3) .GE.OJTHEN 

IP(l)slHr)RIZ(l) 

IP(2)=IHOkJZ(2) 

6LSE 

»  lP(lCASE)=AHS(IHGr*RL(ICAsE)/RL(3))*IvC 

1P(  (JTHR)=ASS( IPC ICASE) )*JXX2/IXY2*TNCIO 

S.IDIF 

else 

IP( ICASF) sO 
iPCIOTHHJsO 

EJDIE 

Xst  ,*(TP(  ICASF  )**2  + 1  HGT*  *2) /NCR  LI  -1**2 
IF(X.LT. 4)T«EM 
I  CLsO 
NCH=1 

else 

ICI.=  AL0G(X)*XI, *12/2  -1 
NCRs2*»TCL 

ENDIF 

i  ppc  n  =  i?(  n^TEc  t) 

IPP(2)=IR(?)+IE(2) 
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C  CALL  r HE  OAT  A  IASp  TO  INITIALIZE  LASTIP  IN  SCAN 
GOTO  (10*H,10U5)  .IOATBAS 
1001  CALL  ZR  D ATA ( 1010) 

1005  CALL  COLIHDATA(IOIO) 

ioio  continue 

IP(3)*IP(3)-IF(3) 

C  SET  THE  NORMALIZED  COORDINATES  IN  NCR  UNITS  WITH  ORIGIN  AT 
C  THE  EYE.  BUT  SUCH  THAT  IP(*)  HAS  ABOUT  12  BITS. 

DO  600  1=1,3 

600  IP(I)=(TP( I)  ♦  NCR/2 ) ♦4/NCR 

IHIEGHT  =  I P ( 3 ) 

IwCR=nCR*INC 

INCRI0SNCR4INCI0 

InC4=4*INC 

INC4I0=44INCI0 

I£EE*-IOXY+(IPCICASE)*JXY2*INC-IP(IOTHR)*IXY2*INClO)/4 
IECIEEE.GT.IXY2)  THEN 

IPP ( IOTHR )=IPP(IOTHR)+INCRlO 
IP ( IOTHR )*IP( IOTHR )+INC4I0 
IEEE=IEEE-IXY2 

TYPE*, 'IEEE. GT.  IXY2  AT  VIS  7600  DUE  TO  NCR/2 

*  ROUNDOFF* 

ENOIF 

IFCIEF.E.LT.-IXY2)  THEN 

TYPE*, 'IEEE. LT.-IXY2  AT  VIS  LINE  8100  DUE  TO 

*  NCR/2  ROUNDOFF' 

IEEE* JEEE+IX Y2 

IPP(I0THR)*IPPCI0THR)-INCRIU 
IPC IOTHR ) *IP ( 10IHR)»INC41J 

ENOIF 

IF(NADIR.NE.I)  THEN 

L0WN(ICASE)=IXY2*INC 

LOWNC IOTHR) *JXY2*INCI0 

L0Wn(3)=RL( 3)*L0NN(ICASE)/RLCICASE) 


else 


ENDIF 


LOWNCIJsINCR 

L0wV(2)*INCRI0 

LOWM(3)*IP(3) 


ALPHAV  IS  USED  TO  ATTENUATE  ROOF  DATA  IN  ZRDATA1 
ALPHAV*-4.5/lHOPIZCICASE) 


RETURN 

E<0 


1 
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AoDeniices  gp  tnrouqh  GC  contain  tne  routines  that  can  be 
usei  for  lata  compression  uslnq  toe  Over hauser-Coons  Hicuolc 
Paten  Algorithm. 
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Lcntfpos.fop 

overhauier-coons  ucuric  patch  routine 

PROGRAMME"*  BY:  GERALD  dECKER  AND  LINDA  CDU^TrR 
DATE?  6  FEB  19R1 

this  ts  the  overhauser-Coons  bicubic  patch 

ROUTINE.  TT  IlSEO  12  DATA  POINTS  FROM  A  DATA  ARRAY 
(SAXPT)  TO  CALCULATE  THE  VALUE  OF  THE  HEIGHT  FOR  THE 
'REALSCAN'  TEST  DATA  BASE.  REFERENCES  FOR  THIS  POUtInE 
ARE: 

1.  'VISUAL  INTERACTION  *ITH  OVERHAUSER  CURVES  ANq 
SURFACES'  ,  J . A .  BREWER  AND  O.C.  ANDERSON , PUrDuE 
university,  rfferenced  from  computer  graphics, 
VnL.  11,  2,  summer  '77. 

7.  CilrtMilHICATIOMS  BETWEEN  DR.  R.w.  PATZ  AND  3.1. 
BECKER  (JN  31  JUL  8  0. 

THIS  VFPSIO'.  OF  THE  0-C  ROUTINE  ACCEPTS  THE  VALUE  FOR 
PlC*ir.  THE  ROUTINE  CAN  HF,  TESTFD  IN  ONE  OF  TWO  WA*S  BY 
PLACING  A  0  AS  THE  FIRST  CHARACTER  OF  A  LINE  FOR  T Hp 
TEST  aHTCU  IS  HOT  DESIRED. 

TFST  is 

TRF  INTERPOLATION  OF  THE  SURFACE  IS  COMPLETED  40 
TIMES  VARYING  THE  SAMPLE  SPACING  AND  I  HE  DATA 
POINT  DENSITY  EACm  TIME.  SAMPSPAC  VARIES  FROvi 
APPROX  In  A  f ELY  57  TO  600.  ISAMPSP/5I2  VARIES 
FRO*:  ,0957  TO  1,096b, 

TEST  71 

THE  INTERPOLATION  OF  THE  SURFACE  IS  COMPLETED  30 
times  VARYUG  THE  sample  SPACING  AND  I  he  data 
POINT  DENSITY  EACH  IIME.  SAMPSPAC  VARIES  F»Ov| 
APPROXIMATELY  10  10  600 .  ISA*PSP/512  VARIES 
F  p  0  *’  .0195  TO  1.021b. 

DPTDEx  IS  DETERMINED  St)  THAT  THE 

NUMBER  ()F  POINTS  INTERPOLATED  PER  PICTURE  WILL 

HE  CONSTANT. 
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THF  FIM.IjJaI  ir,  b'JGilHR  SHOrfS  THE  ARRANGEMENT  OF  THE  #p 
VALUES*  As  THEY  ARE  USED  IN  THIS  ROUTINE. 


(IX-1 'IY+1)A< 


(ix-Mna- 


(ix, iy >2 ) « 

i 

i 

i 

( IX, IY+1  )  i 

IZI 

C(l*l)  I 
C(  2 )  I 
I 

(IX, TY) IZI 

4--. 

I 

I 

I 

I 

(IX,IY-1)J» 


C(2,2) 

C(J) 


?(  IX  +  l , IY*2) 


I (IX+1 ,TY+1) 
a - - - ACIX  +  2,  lY*l ) 


IC(1 ,2) 
I  C(4) 


221  (1X4-1, IY) 

■ - - - - *(IX  +  2,  rY) 

C  ( 2 , 1 )  I 

C  c  1 )  I 

I 
I 

9(IX*l,lY-I) 


THE  FOLLOWING  FIGURE  IDENTIFIES  THE  VARIABLES  USED 
TO  DESCRIBE  THE  SURFACE: 


-PICHIT- 


*333333 333 33 AsSsSS 3333X80 888833 8888 *$888833X33338 


I  :  0)1  :  I  :  (5)1  :  I 

8*3333333333833333 *3X383888383*3338 80 888888333830 


:  (t ) 


(4) ; 


I  :  (2) l  :  I  :  I  :  I 

A 333838 S3 333 8 33333*38833088833 *3X3880 8888888 8888 8 


As  S3  3  3333333  A  33833*  3  333  39388  83*88888 R  888838X8X88(1 


@33  33  S3  SSSSsAsSS 3S S3 SSSSAXSSSSSSXSX 80 83X8 88833830  --->  K 


non noon oonoo  on  oooooooooonoonoorjononoo 


navtraeouipcen  no-n-oui  4-2 


\ 


-->l  1 < - - s a  * p  ; y a c 

ipp  iup 

•  •  •  •  «  —  —  —  * 

1  l  i 

3DATA  ARRAY.  SAMPT(IX,IY) 
♦INTERPOLATED  VALUES,  FRiM n 


-->1  1  r  a 

- : - : - >~>  f*L  t  a 

IE;'.D 


THE  PROGRAM  FLOW  STARTS  AI  (1)  WHERE  THE  BOUNDARY  LlNgS 
ARE  CALCULATED  FOR  THE  PA1CH,  THEN  FOLLOWS  AN  INCREMENT 
ON  Y  UNTIL  REACHING  (2)  THUS  COMPLETING  ONE  'SEGMENT.' 
THE  BOUNDARY  LINES  FOR  THE  PATCH  ARE  RECALCULATED  ArD 

the  y-i mcremeut  continues  until  C3),  completing  one 

'LINE.'  THE  x  VALUE  IS  THEN  INCREMENTED  TO  C4)  SO 
BOUNDARY  LINES  ARE  RECALCULATED.  Y-  AND  X-INCREMENTS 
CONTINUE  UNTIL  (5)  COMPLETING  THE  INTERPOLATION  REGION 
OR  OLE  'PICTURE.' 


PlUBLE  PRECISION  IS  USED  On  ALL  VALUES  USED  FUR 
STATISTICS. 

DOUBLE  PRECISION  SGS*DF ,  SGSMDE2  ,  SGSM A  ,  SM LNt> ,  S.MLND2  . 

-  S<LnA,SMOIF,SMO'iF2.SMABS.  TO  r  A  VG,  RMS,  DA  VG.LN  A  VG.LMRMS, 

-  L>IDABS,SGAVG,SGPHS,SGAHS,DIE,UIF2,DABS,DIFMXPS,DIEMXNG 
EQUIVALENCE  IS  USED  FOR  EASE  OF  COMPUTATION  IN  SEVERAL 
DO- LOOPS. 

EQUIVALENCE  CB(1) ,BOY) , (B12) ,BOX) , (BC3) ,B1 Y) ,(B(4) ,Blr) , 

-  (T(1),TX),(T(2),TY),(T(3),TXX),(T(4)#TYY) 

DIMENSION  T  ( 4 ) ,B€4),C(4) 

COMMON  ANSC4)  ,IX,IY,SAMPT(2!>0,2S0)  ,  VC 4, 4)  , Z1 , Z2 , Z3 , Z* . 

-  IPCN 

NOTE:  FOR  sample  ARRAY,  SAMPT(A,B),  THE  DIMENSIONS  A 

And  B  MUST  BE  GREATER  THAN  THE  PICTURE  alOTR 
DIVIDED  BY  THE  SAMPLE  SPACING  OR 

A , B  >  PTCRIT/ISAMPSP. 

IF  SA*PT(A,B)  IS  CHANGED,  REMEMBER  TO  CHANGE  TT 
IN  THE  SUBROUTINES, 

«*♦♦♦♦♦♦♦♦*♦♦♦♦♦*♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦*♦♦♦♦*♦♦♦♦♦♦♦♦**♦«♦ 

FUNCTION  USED  IN  COMPARISON 

FTCA,B)sl27*(S  IN  (<S.2B3185*(A)/1024))*(SIN(6. 2*31*5* 

-  (B)/l<)24)) 

£****+*$***1*1**********+******************+******************* 

C 

TYPE*, 'ENTER  THF  PICTURE  *I<>TH' 

ACCEPT*, °ICWIT 


t 
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200 


500 


520 


600 

C 

c 

c 

0 


T<Pr*,'«:nE«  THE  DESIRED  DUMBER  'JF  POINTS  TU  BE 
INTERPOLATED* 

ACCEPT*, POINTS 


WRITE(74,*)  'INTERPOLATION  BY  OVERHAUSER-CuONS  FUNCTlOy* 
«RITE(7  4,*) 

NRI rK(74,*)#PICNlT=',PICWlT 

WRITE(74, *) 'APPROXIMATE  NUMBER  OF  POINTS  INTERPOLATED®*# 
POINTS 

*RirE(74,*)#  NOTE:  MAX,  VALUE  OF  TEST  FUNCTION®^* 
RRITE(7 4,*) ************************** 

WRITE (74,*)*  * 

WRITE (74, 200) 

FORMAT ( ?X, 'ISAMPSP*, 3X, *DPTDEN*, 

4X, *PIFMXPS',4X, *0IFMXNa*,6X, 'RMS/127*, 

7X, 'DAVG') 

WRITE (74,*)*  ' 

WRITE(75,*) 'INTERPOLATION  BY  OVERHAUSER-COONS  FUCNTIOn' 
WRITE (75,*) 

WRITE(75,*) *PICWIT=',PICW1T 

WRITE(75,*) 'APPROXIMATE  NUMBER  OF  POINTS  INTERPOLATED®*, 
POINTS 

WRITE(75, *)*************************' 

WRITE ( 75  ,  *  )  '  * 

WRTTE(75,500) 

FORMAT! 5X, 'S AMPSPAC *,  ■ IX, ' ISAMPSP ' , 7X , 'DPTUEN ' , 8 X  , 
'COUNT*, 7X, 'SAMPLE') 

WRITE (75, 520) 

F0RMAT(57X, 'ARRAY') 

WRITE (75,*)'  ' 


WRITE! 
WRITE( 
WRITE( 
WRITE( 
P  )INTS 
WR I TE ( 
WRITE! 
FJNCTI 
WRITE! 
WRITE! 
WRITE! 
FORMAT 
WRITE! 


75,*) 'INTERPOLATION  BY  OVERHAUSER-COONS  FUNCTION' 

75, *) 

76, *) 'PICWI r=',PICWlT 

76,*) 'APPROXIMATE  NUMBER  OF  POINTS  INTERPOLATED®' 

76,*)'  NOTE:  MAX,  VALUE  OF  TEST  FlJNC TI0N=1 27 ' 
76,*)'  ONE  HALF  THE  PERIOD  OF  TEST 

0N®5 1 2 ' 

76,*) '************************' 

76,*)'  ' 

76,600) 

( 3X, 'ISAMPSP/512',6X, 'RMS/127') 

76,*)'  ' 


9 


the;  distance  between  the  sample  data  points  is  ihe 

SAMPLE  SPACING. 

SAMPSPAC*50/1. 064692  !1EST  U  1 . 0640929* 1 2** 1 /*0 
SAMPSPAC*! 0/1, 1462298  l TEST  2:  1 , 1 462298=60** 1 / 3 0 
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nnofjfjn  n  o  n  n  ©  < 1  o  o  n  o  o  ri  o '■i  o  o 


-  '■)  -  ">  -  i)  U  1  <i  -  7. 


. \/  r  x  «  •> ;  >  I  p  C  K  *: 


n  )  21  )  <  =  i ,  v*  •  iKsr  i 

01  ?1.)  <  =  l,vi  !  i  5  S  T  2 

Type* , 'K:'  , < 


SA -’PSWA^SA '<PSPAC*1 .0F40R2R  !  TEST  1 

SA  iPSPACs.SA.*PS*»ACM  .  1  4 ft 2 7 ^ R  I  TEST  2 

ISA  «PSPrSAMPSPAC 

!  m  UsT  IF  INTEGER  f0  MAINTAIN  A  GRID  PATTERN 
Dp A  C“ 1  .  /  ISA ‘IPSO 


t>»rof.M  rs  the  number  or  divisions  made  by  the  test 
PUNTS  PER  SAMPLING  INTERVAL. 

S  3RPTSSS  1 R  T (POINTS)  1LALCULATI0N  OF  DPTOEN  ENSURES  A 

TPICSiP  =  PIC'j«IT*DPAC  JCOWSIANT  A' UMBER  OF  INTERPOLATED 

IF( IPITSHP.LE. 2)  GOTO  400  iREOUIRED  DATA  BASE  NOT 

AVAILABLE 

DEM JMslPlCS^P-2  i  POINTS  FOP  EACH  STEP 

DP  TOE  Ms. S  JRPTS/DE  'JOM 

IF( DPTOFM.LT. lOTHEN 

TYPE*.  'ROUTINE  IS  INVALID  FOR  DPTDEN<1' 
GO  TO  210 

ENOIF 

XSAvPSPsFLOA  f( ISAMPSP) 

ROUTINE  To  CREATE  THE  SAMPLED  DATA  ARRAY 
I E  m  0  s  C  P I C . )  I T  *  D  P  A  C  )  ♦  1 

ICNTSHPslEN0*IEND-4  JRE3J[RED  SIZE  OF  SAMPLE  DATA  R  A5E 


DU  10 


XMlSs(I-l)*ISAMPSP 
00  1  )  Jsl.IEJO 

SAHPT( I ,U)=FTCXMIS, ( J-l )*XSAMPSP) 

10  CmiMUE 


*  R  T  T  F  (74,100)  C(SAMPT(I,J),J  =  l,IENn),Isl,IcMD) 
100  FJW'AC  ('  #,1SFP.T) 


nVFRHAU3£P-cnn.\S  FUNCTIONS  BEGIn 


DEL TAsT SAvPsP/DPTnEM 
IPP  AMP  1 1 J P  APE  IN  UNIT  OF  DELTA. 

IPP  AMD  T  HP  A-'E  ME  LIMITS  OF  THE  X-  AMD  Y  - 1  NCR  EMgN  rS 
SUCH  THAT  ( JPP+I ) *DELTA  AND  (IUP+1)*DELTA  ARE  THE  FIRST 
A  ,10  LAST  ..O^LD  COORDINATES  INTERPOLATED,  RESPECTIVELY. 

I  I P  s  (  l  F  1 0  -  ?  )  *  0  P  T  0  E  M  - 1 
IPPsOPTOEm-1 

n 

w. 


ShS 


no  on  noon  noon  on  noon  noon  on 
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C  CHECK  FOR  CROSSING  BOUNDARY  DUE  T3  ROUNO-jFF  tRROR  IN 

C  DELTA 

IF( ISAMPSP.GT. ( ( IPP  +  1 )*DELTA) ) lPPsIPP+1 
IF(PIC»*IT-ISAmPSP.LE.  (  IUP+1  )  ♦DELTA)  IUP=IUP-1 

(  X  #  Y  )  :  a  W  0  R  L  0  COORDINATES 
XXsipp*DELTA 

XsXX  UNITIALIZE  X  VARIABLE  FOR  X-INCREMfNt 

( IRLX,IRLY) :=THE  LONER  LEFT  BOUNDARY  IN  WORLD 
COORDINATES  COOPESPONDI VG  TO  THE  FIRST  POINT  INSIDE 
THE  PATCH. 

IRLX*ISAHPSP 

CIRUX,IRUY)s=THF  UPPER  RIGHT  BOUNDARY  IN  WORLD 
COORDINATES  CORRESPONDING  TO  THE  POTENTIAL  LAST  POlNt 
in  this  patch  or  the  first  poini  in  a  neighboring  patch. 

IRUX=IRLX+ISAMPSP 

( IX , IY) JsTHE  INDEX  OF  the  SAMPLED  DATA  ARRAY 
IXa2  ! INITIALIZE  X  INDEX 

************************************************************* 
INITIALIZE  VARIABLES  FOR  PICTURE  STATISTICS 

ICNTaO  iCOUNTERJ  POINTS  PER  PICTURE 

SMOIFsO  l  SUM  OF  DlFF  FOR  PICTURE 

SMDIF2=0  1  SUM  OF  DlFF  SQUARED  FOR  PICTURE 

SMABSaO  ISUM  qf  ABS  VALUE  OF  DlFF  FOR  PICTURE 

DIFMXPSsO  'MAXIMUM  POSITIVE  ERROR 

DIFMXNGsO  1MAXIMUM  NEGATIVE  ERROR 

************************************************************* 

DO  90  I  =  lPPrIUP  I  START  OF  X-INCP.EMENT,  ONE  LINE 

PER  LOOP 

YsXX  UNITIALIZE  Y  VARABLE  FOR 

Y-INCREMENT 

TY  =  2  UNITIALIZE  Y  INDEX 

IRL/sISAMPSP 
lRUY*lRLYfISAMpSP 
XaX+DELTA 

CHECK  FOR  CROSSING  BOUNDARY 

IF  (X.GT.IRUXJ  THEN  iNEXT  LINE 

IXaIX+1  ! INDEX  FOR  NEXT  LlNg 

IRLXalRUX 
iRUXalRUXtISAMPSP 

ENDIF 

TXSaTHE  INCREMENTAL  DISTANCE,  X,  WITHIN  THE  PATCH. 
TX“(X“IRLX)*OPAC 
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fXXsTX  110  ALLO*  T(3)  EQU  I V  ALENCE 

TX2=TX*TX 

BlX=C3.0-2.0*TX)*rx2 
B0X=1 .0-B1 X 
CALL  PTCHNG 

C\LC"LATlO'M  OF  X-DEPENOEMI  BOUNDARY  LINES:  C(l),  C  (  3 ) 
NOTE!  TX3sTX**3 

V(4,4)  -  COEFFICIENTS  OF  "C"  EQUATIONS  FOR  THE 
BOUNDARY  LI^ES 

C(l)=VCl ,l)«TX3+tf(l,2)*IX2*V(l,3)*TX*V(l,4) 
C(3)aV(3# l)*TX3+V(3,2)*rX2+V( 3 , 3 ) *TX+ V ( 3 , 4 ) 

Ou  150  I0XS1,3,2 

CCX=V(I3X,1) 

DO  140  IEXs2,4 

CCX=CCX*T( I3X)+V(IDX,IEX) 

140  CONTINUE 

C(I0X)=CCX 

150  continue 

SUMMATION  OF  X-DEPENDENT  C  VALUES  AND  PARTIAL  Z  TrRwS 
CZlrCCl )-Zl *B0X-Z2»»1X 
C7.2aC(3)-Z3*8UX-?.4*6tX 

INITIALIZE  VARAI8LES  FOR  LINE  A'<D  SEGMENT  STATISTICS 

ICNTIsO  JCOUWTER:  POINTS  PEK  SEGMENT 

ICNTArO  IC3UNTER:  POINTS  PER  LINE 

SMLMDsO.O  ISUM  OF  LINE  DIFFERENCES 

SMLMD2S0.0  ISUM  OF  LINE  DIFFERENCES  SDUARED 

SMLNAsO.O  ISUM  JF  ABSOLUTE  VALUE  OF  LINE  DjFF 
SGSMDFsO.O  ISUM  OF  SEGMENT  DIFFERENCES 

SGSmqf2sO.O  1  SUM  OF  SEGMENT  DIFFERENCES  SQUARED 
SGSmAsO.O  JSUM  OF  ABSOLUTE  VALUE  OF  SEG  DlFF 


DO  R 0  J=IPP,IUP  1 ^-INCREMENT ,  ONE  SEGMENT 

PER  LOOP 

Y=Y+ DELTA 

CHECK  FOR  CROSSING  BOUNDARY 

IF  (Y.GT.iRUY)  THEN  INEXT  SEGMENT 

IX=IY+1  1INDEX  FOR  NEXT  SEGMENT 
IHLY=1RUY 
IRUYsIRUY+ISAMPSP 
CALL  PTCHNG 

on  151  I  )X  =  1 ,3,2  iCCl)  and  C ( 3 )  FOR  NEXT  SEGMENT 

ccxsvcnx ,  i ) 

DO  141  IEX=2,4 

CCX=CCX*T(I0X)+V(I0X,IEX) 


5h7 


onnnnn  ooooci  nnn  o  oooo  n  f  >  o  n 


:j  AVTKA  EQU  IPCFM  »n.|).0UM-2 


141 

151 


CONTINUE 


C(I3X)sCCA 

CONTINUE 

czi=cci  )-zi  *80x-zid*ai< 

C7.2=C(3)-Z3«=B0X-Z4*81X 


STATISTICS  ABE  DETERMINED  PER  LINE  SEGMENT  OF  LENGTH 
SAMPSPAC. 

ICN  TAsICNTA  +  ICNTt 
SMLNPsSMLnD+SGSMDF 
SMLND2=SMLND2+SGSMDF2 
SMLNA=SMLNA+SGSmA 

S(J4VG  =  SGSMDF/lCNTl  'AVERAGE  DIFF.  IN  SEGMENT 

SGR«SsS3RTCSGSMPF2/ICNT1-SGAVG*SGAVG)  l SEGMENT  RMS 
SGABSsSGSMA/ICNTl  ! AVERAGE  ABSOLUTE  DIFF  OF  SEGMENT 


ICNT1=0 
SGSM0F=0 . 0 
SGSMDF2s0.0 
SGSMAsO.O 


UNITIALIZE  FOR  NEXT  SEGMENT 
! CLEAR  THE  SUM  OF  SEGMENT  DIFFERENCE 
1  CLEAR  THE  SUM  OF  SEGMENT  DIFF  SQ'JArEd 
1  CLEAR  THE  SUM  OF  SEGMENT  ABS  DIFFEnCeS 


ENDIF 


TZssTHE  INCREMENTAL  DISTANCE,  Y,  WITHIN  TriE  PATCH 

TY=( Y-JRLY) *DPAC 

TYYsTY  1  TO  ALLOd  FOR  T(4)  EQUIVALENCE 
TY2=TY*TY 

BlY=(3,0-2,0*rY)*TY2 
B0Y  =  1 ,0-BlY 

SUMMATION  of  X-DEPENDENT  C  VALUES  AND  COMPLETE  Z  TErMs 
CZ=C(1 )*BO¥-Z1*BOX*80Y-Z2*B1X*BOY 
♦C(3)*B1Y-Z3*30X*B1¥-Z4*B1X*B1 Y 

CZ=CZl*B0I+CZ2*Bl Y 
CSTUFsO 

CALCULATION  OF  Y-OEPENDENC  BOUNDARY  LINES:  CC2),  C(4) 
note:  TYJ=TY**3 

C(2)=V(2,1)*TY3+V(2,2)*TY2tV(2,3)4TYtV(2, 4) 
C(4)=VC4, 1 ) *TY3+V(4,2)*rY2+V(4,3)*TY+V(4,4) 

DO  70  IEY=2,4,2 

CCY=V(IEY,1) 

DO  50  T0Ya2,4 

CCY*CCY*TC I£¥)tVClEY,I3Y) 

60  CONTINUE 

CSTUF=CSTUFtCCY*B(IEY)  1 CSTUFF=C C 2 ) *B()X 


wr 
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C  +C(4)B1X 

C 

70  CONTINUE 

^* *****************************************************  ******** 

FgNDsCST JF+CZ  I  INTERPOLATED  OVERHAUSER-COQNS  VAl^E 


C  FFND=ZCX, Y)=C(1)*B0Z-Z1*P0X*B0Y 

C  ♦C(2)*B0X-Z2*B1X*B0Y 

C  +C(3)*B1Y-Z3*B0X*B1Y 

C  ♦C(4)*B1X-Z4*B1X*B1Y 

C 

^* ************************************************************* 

C  THE  CORRESPONDING  EXACT  VALUE  IS: 

EXACT=FT(X, Y) 

e* 

w. 

C’M*************************1*********************************** 

C  DATA  OETERMJNFO  IN  PREPARATION  FOR  SEGMENT  AND  LINE 

C  STATISTICS. 

DIFsEXACT-PEND 

DIF2  =  DIF*L)IF  1SUUARE  DlFF. 
DABSsABSIDin  iABSOLUTE  VALUE  OF  DlpE. 
IF(OIF.GE.O)  THEN 

DIFMXPS=DMAX1 (DIFMXPS,DIF) 

ELSE 


DIFmXNG  =  DNAXUDIFmXNG,DABS) 

ENOIF 

^* ************************************************* ********^*^* 


C 

c 

c 

c 

c 


SUMMATION  of  SEGMENT  Data  FOR  THE  CALCULATION  Of  ^SMeNT 


STATISTICS. 

SGSMDF=SGSMDF+OTF 

S  GS  M  0  F  2  s  S  GS  m  OF2 ♦ D I F  2 

SGSMAsSGSMA+DABS 

ICNTlsICNTl+1 


J  COMP JTE  THE  SUM  OF  SEGMENT 
DIFFERENCES 

iCOMPUTe.  THE  SUM  OF  SEG  DIFp. 
SQUARED 

1COMPUTE  THE  SUM  OF  SEG  DlFF 
ABSOLUTF  VALUE 
JINCREMENT  SEGMENT  COUNTER 


IF  ((J.EQ.UIP).A'J().(Y.LE.IRUY))IHEN 

i SEGMENT  STATS  FOR  LAST  SEGMENT 
S'lLNDsS  -iLuD+SGSMOF 
SMr.Nn?  =  SMLND2  +  SGSMDF2 
S  NLNAsS  MLNA  +  SGSMA 

D  SGAVGsSGSMDF/lCN T1  J AVERAGE  DlFF  IN  SEGMENT 

D  SGRMSsSQAT(SGSMUF2/ICNTl-SGAVG*SGAVG)  JSEGMENT  RM5 

D  SGAflSsSGSMA/ICNTl  JAVERAGE  ABSOLUTE  VALUE  OF  DlFF 

C  IN  SEGMENT 

TCN’TAsICNTA+ICNTl 
ENDIF 

80  CONTINUE 

c 

Q*  *********************************************************■.*** 


SB  R 
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C  SJM-lATlOM  DF  LInE  DATA  FOR  THE  CALCULATION  OF  PICTURE 

C  STATISTICS. 

SAUlFsSOlF  +  Sf'L'JU 
S  3DIF2=SMCIF2+SmLND2 
SmABSsS  4ABS+SMLNA 
ICMT=lCNr+lrNTA 

£*******************«**************************************«*** 

C  LINE  STATISTICS 

0  L  N A  VGsSMLND/ 1CNT  A  1C0MPJTE  AVERAGE  LIME  DIFFERENCE 

D  L 'iRMSsSDBT(SMLMD2/ICMTA-L‘VAV5*LMA  VG)  JCOMPUTE  LIME  RmS 

r>  LMDABSSSMLNA/ICHTA  J  COMPUTE  AVERAGE  ABSOLUTE  DIFF/LINE 

£************************f*******************************«***t* 

90  continue  i end  x-incremeni  LOOP 

Cl************************************************************* 

C  PICTURE  STATISTIC 

r « 

TOTAVGSSNDIF/ICNT  ‘COMPUTE  AVERAGE  ERROR  FOR  PICTURE 
R4SsSjRT(SMDlF2/ICNT-TOTAVG*T3TAV3)  ICOMPUTE  RMS  PICTURE 
DAVG=SMAB$/ICNT  'COMPUTE  AVERAGE  ABSOLU1E  ERROR 

C  FOR  PICTURE 

XSMP512*I SAMPS P/512. 

RMS127SRMS/127 

WRITE (74,220) I SAMPSP,DPTOEN, 

-  niFMXPS,01FMXNG,RMS127,DAVG 

220  FORM AT ( I  a, Fl l. 4, 2 < FI  1.4) ,  Ft  3 . 7 , FI  1 . 4) 

IF( (DIFMXPS.LT.1E-4) .OR. CDIFMXN3.LT. IE-4) ) THEN 

WRITE(74,*)#  DlFMXPSr',DlFMXPS, 

-  #0IFMXNG=',D1FMXNG 
E  JDIF 

WRITE (7 5, 51 0)5AMPSPAC, I S A MPSP , DPI DEN  , ICNT.ICNTSMP 
510  F)RMAT(Fl3.4,JlO,F13.4,2(il3)) 

WRITE (76, 630)XSMP512,RMSt  27 
630  F)RmAT(F14.4,F13.7) 

210  CONTINUE 

£***«********************************************************«* 

400  STOP 

END 

SUBROUTINE  P  T  C  H  N  G 
C 
c 

C  THIS  SUBROUTINE  CALLS  FOR  THE  GENERATION  OF  THE 

C  COEFFICIENTS  OF  THE  BOUNDARY  LINES  (C  EQUATIONS). 

f* 

COMMON  ANS(4) ,IX, IY,SAMPT(250,250) , V(4,4) ,Z1,22,Z3,Z4. 
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ixi=iy+i 

IY1=IY+1 

Zl=SAMPT(IX,IY)  ILOwER  LEFT  CORNER  OF  PATCH 
Z2=SAMPT(IXt,IY)  ! LOWER  RIGHT  CORNER  OF  PATCH 
Z3=SAMPT(IX,IY1)  1UPPER  LEFT  CORNER  OF  PATCH 
Z4=SA^PT( 1X1 , IY1 )  ! UPPER  RIGHT  CORNER  OF  PATCH 

call  c(?„n  jlqwer  horizontal  line,  -d) 

00  20  J2  =  l,4 

V( 1 ,J2)-ANS(J2) 

CONTINUF 

CALL  C(l,l)  i LEFT  VERTICAL  LINE,  C(2) 

On  30  J2=l,4 

V(2, J2)=ANSCJ2) 

Conti nuf 

CALL  C  (  2 , 2  )  IIIPPER  HORIZONTAL  LINE,  C(3) 

00  ao  J2  =  l »  4 

V(3, J2)=ANSCJ2) 

Continue 

CALL  C ( t , 2 )  iRIGHT  VERTICAL  LINE,  C(4) 

On  SO  J2*l,4 

V(4,J?)*A'*S(J2) 

CONTINUE 

RETURN 
E  JO 

S  JrtRDiJTI  ME  C(IC,JC) 

THIS  S'JQRDUnT  I  ME  PERFORMS  THE  MATRIX  MULTIPLICATION 
REQUIRED  TO  GENERATE  THE  COEFFICIENTS  OF  THE  C  EQUATIONS 
C  BOUNDARY  LINES). 

CJVMON  4NS(4),IX,IY,SAMPr(25O,250),V(4,4),Zl,Z2,Z3,Z4. 

I  PC  N 

REAL  HAT(4,4) 

GIVEN  A  PATCH  WITH  LOWER  LEFT  INDICES  (IX, IY), 
CALCULATION  OF  THE  COEFFICIENTS  OF  THE  C  EQUATIONS 
INVOLVES  MULTIPLICATION  OF  f HE  DATA  MATRIX  HY  THE 
4-SY-l  MATRIX, 

-FOR  C(l),  SAMPTC iX-1  , 1  i  )  ,  SAMPT ( I X , I Y ) , 
SANprCiXtlvin,  SAMPT  (  I X  +  2 , 1 Y  ) 

-FOP  CC2),  SAMPT(1X,IY-1),  SAMPT ( I X , I Y > , 

SAMPT(  IX  ,  I  Y  +  l  )  ,  SAMPT  (IX,  I Y  4-  2  ) 

-FOR  0(3),  SAMPT(IX-1 ,1*41  )  ,  SAMPT (IX, 1*41) , 
SAMPTC IX4I *1X4!  ),  SAMPT(IX  +  2,IY  +  1 ) 
-FOR  C ( 4  )  ,  SAMPTCIX41 , 1 Y - 1 )  ,  SAMPT ( I X+ 1 , 1 Y ) , 
SAMpT(lX4l,I*4l)  ,  SAMPTC 1X41,1*42) 


M  A  VTRAKOUTPCEN  fiO-D-OOl  4-2 


DATA  ■4ArCl,l),N!ATC?,4),'UT(j,l)/3«‘-0.5/,MAT(l,2)/J  .?/. 

*AT(1 ,3)/-1.5/,MAT(l,4) ,*AT(3,3)/2*0.5/, MAT(2,l)  , 

*ATC4,2)/2*1.0/,MAT(2,2)/-2.5/, 4AT(2,3)/2.0/,rtAI(3,2) . 

M4r(3,4),HAT(4,n,MATf4,3),MAT(4,4>/5*0-0/ 

IB,CIC.E').1>THEM  1Y-0EPEN0ENT  BOUNDARY  LINES,  C(2),  C(4) 
IP=IX+ JC-1 
K=2 - I Y 
Of)  10  1  =  1,4 

AN  S ( I ) =  0 

01  10  J=IY-1,IY*2 

ANS(I)*ANSCI)<MAT(I,  J  +  K)*SAMPT(Ip,  J) 

CONTINUE 

else  jx-dependent  boundary  lines,  C(l),  c(3) 

IP=IY+JC-1 
K=2-IX 
00  20  1=1,4 

AnS( I ) =0 

00  20  J*IX-l,IX+2 

ANS(I)=ANSCI)+MAT(I ,  J  +  K)*SAMPK  J,IP) 

CONTINUE 

ENOIF 

RETURN 
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APPENDIX  GC 
LCSTRAIf.FOR 


LCSTR  A I T . FOR 

ROUTINE  FOR  STRAIGHT-LINE  APPROXI RATION  OF  A  PATCH 
PROGRAMMED  BY:  LINDA  C3ULTER 
OATF:  14  MAX  1981 

THIS  ROUTINE  FOR  STRAIGHT  LINE  APPROXIMATION  QF 
A  PATCH  USES  4  DATA  POINTS  FROM  A  DATA  ARRAY  (SAMPT)  TO 
CALCULATE  THE  VALUE  OF  THE  HEIGHT  FOR  THE  'REALSCAN' 

TEST  DATA  BASE. 

THIS  VERSION  OF  THE  STRAIGHT-LINE  APPROXIMATION  ROUTINE 
ACCEPTS  THE  VALUE  FOR  PIC^IT. 

THE  ROUTINE  CAN  BE  TESTED  IN  ONE  OF  TWO  WAYS  BY 
PLACING  A  D  AS  THE  FIRST  CHARACTER  OF  A  LINE  F°R 
THE  TEST  WHICH  IS  NOT  DESIRED. 

TEST  IS 

TriE  INTERPOLATION  OF  THE  SURFACE  IS  COMPLETED 
40  TIMES  VARYING  THE  SAMPLE  SPACING  AND  THE 
DATA  POTNT  DENSITY  EACH  TIME.  SAMPSPAC  VARIES 
FROM  APPROXIMATELY  50  TO  600.  ISAMPSP/512 
VARIES  FROM  .0957  TO  1.0966. 

TEST  ?i 

THE  VALUE  FOR  PIC^IT.  THE  INTERPOLATION  OF  TrE 
SURFACE  IS  COMPLETED  30  TIMES  VARYING  THE  SAMpLE 
SPACING  AND  THE  DATA  POINT  DENSITY  EACH  TlMg. 
SAMPSPAC  VARIFS  FROM  APPROXIMATELY  10  TO  600. 
ISAMPSP/512  VARIES  FROM  .0195  TO  1.0215. 

DPTDEN  IS  DETERMINED  SO  THAT  THE  NUMBER  OF 
POINTS  INTERPOLATED  PER  PICTURE  WILL  BE 

Constant. 


THE  FOLLOWING  FIGURE  ILLUSTRATES  THE  ARRANGEMENT  OF  TrE 
VALUES  USED  IN  THIS  ROUTINE. 


I 

I 
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I 
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®  I)  A  T  A  ARRAY,  SAMPr(IX,IY) 


% 


574 


nnnnnrifinnn 


4  AVTRAEOU  IPCKf-  B0-D-OU14-2 


*  IN TKRPOLATEO  VALUES,  K E N !) 

T)?  PROGRAM  FLOw  STARTS  Af  (1)  WHERE  THE  HOJNDAKY  LlNpS 
ARE  CALCJLATEO  FIR  THE  PATCH,  THEN  FOLLOWS  AN  TNCREmEvT 
Oj  Y  (IN nr,  PEACHING  (2)  TnUS  COMPLETING  ONE  'SEGMENT.' 
THE  BOUNDARY  MwES  FOP  f HE  PATCH  ARE  RECALCULATED  Agl) 
THE  Y-InCRE*ENT  CONTINUES  UNTIL  (3),  COMPLETING  ONE 
'LINE.'  THE  X  VALUE  IS  THEN  INCREMENTED  TO  (4)  S3 
HlUNOARf  LINES  ARE  RECALCULATED.  Y-  AND  X-INCREMENfS 
C  1 N  T  T  M  (i  E  UNTIL  (5)  CJMPLETIiIG  THE  INTERPOLATION  REGiOn 
OH  OLE  'PICTURE.' 


C  DOUBLE  PRECISION  IS  USED  UN  ALL  VALUES  USED  EUR 

C  STATISTICS. 

DOUBLE  PRECISION  SGSMOF , SGSMDF2 » S5SM A , SMLND , SMLND2 # 

-  S  MLNA ,SHOTF,SMOIF2, SHARS, TOTAVG,RMS,DAVG, LN4 VL, LNRMS» 

-  L  JDABS,SGAVG, SGRHS,SGABS, DIF, DIF2, DAPS, OIF  UPS, DIFMXMG 
COMMON  IX,1Y,SAMPT(2S0,25U) , Z 1 , Z2 , Z3 , 24 , C l , C2 , C3 

N1TE:  FOP  SAMPLE  ARRAY,  SAMPT(A,B),  THE  DIMENSIONS  A 

AND  R  MUST  BE  GREATER  THAN  THE  PICTURE  »IDTh 
DIVIDED  BY  THE  SAMPLE  SPACING  OR 

A ,  B  >  PIC«*IT/ISAMPSP. 

IF  SAmPT ( A , B )  IS  CHANGED,  REMEMBER  TO  CHANGE  IT 
IN  THE  SUBROUTINES. 

C*********************«********************«**************«************i 

C  FUNCTION  USED  IN  COMPARISON 

FT( A,B)=127*(SIU(B.2831R5*(A)/1024) ) * ( SIN ( 6 . 28 3 1 fl 5* ( B > / 

-  1024)) 

(2*  *******************************************************  *************** 

C 

TYPE*, 'ENTER  THE  PICTURE  *Il-Tn' 

ACCEPT*, PICWIT 

m 

V. 

TYPE*, 'ENTER  THE  DESIREO  ml*BER  OF  POINTS  TO  BE 

-  interpolated' 

ACCEPT*, POINTS 


WRITE(74,*) 'INTFROOLATION  BY  STRAIGHT  LINE  APPROX.' 
WRITFC74,*) 

WRITE ( 74, *) 'PI Cv ITs' , PICWIT 

*«RITE(7  »,*)  'APPROXIMATE  NUMrtEK  JF  POINTS  INTERPOLATED::'  , 
P  JINTS 

WRTTF(7»,*)'  NOTES  MAX,  VALUE  OF  TEST  FUNCTIONS  27' 
WRITE (7  l,*)'************************' 

WRITFC74,*)'  ' 

WRITE(74,200) 


5  7  S 
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K  4  A  T  f  JX.'ISAMPSP', )X,'OPTU£N', 

4X, 'DIFNXPS',4X, *DIF*XN3',6X, 'RM5/127', 

7X, #DAVG#) 

WRITE(74,*)'  ' 

WRITE (75#*)  'INTERPOLATION  BY  STRAIGHT  LINE  APPROX.' 

WRI IE ( 75 , * ) 

WRITE(75,*)'PlCWlT=',PICWiT 

WRIT£(75,*) 'APPROXIMATE  NUMBER  OF  POINTS  I N  TERPOL  ATeDs  '  , 
POINTS 

WRITE(75, * ) *************************' 

WR I TF (  75 ,  *  )  '  ' 

WRTTE(75,500) 

FORMAT(5X,'SAMPSPAC',3X,'lSAMPSP',7X,'DPTDEN',8X, 
'COUNT', 7x, 'SAMPLE') 

WRITE (75, 520) 

F  )RMAT(57X, 'ARRAY') 

WRITE (75 , ♦) '  ' 

WRITE(76,*) 'INTERPOLATION  BY  STRAIGHT  LINE  APPROX.' 

WRITE (76,*) 

WRITE(76,*)'PICwIT=',PICWIT 

WRITE(76,*) 'APPROXIMATE  NUMBER  OF  POINTS  INTERPOLATED*', 
POINTS 

WRITE (76,*)'  NOTE  t  MAX  VALUE  OF  TEST  FUNCTIDNsl 27  * 

WRITE (76,*)'  ONE  HALF  THE  PEROID  OF  TEST 

FJNCTI0N3512' 

WRITE (76, *)'************************' 

WRITE (76#*)  '  ' 

WRITE (76, 600) 

FORM AT ( IX, 'ISAMPSP/5I2' ,6X, 'RMS/127') 

WRITE (76,*)'  ' 


THE  DISTANCE  BETWEEN  THE  SAMPLE  DATA  POINTS  IS  THE 
SAMPLE  SPACING. 

SAMPSPAC*50/1 .064692  ITEST  It  1.0640929=12**1/40 

SAMpSPAC*lO/l . 1462298  ITEST  2:  1.14622*8=60**1/30 


0)  210  K=1 ,40  'TEST  1 
DO  210  <=1,30  ITEST  ? 
TYPE* ,'<=', K 


SAMPSPAC*SAMPSPAC*1 .0640929  ITEST  1 

SAMPSPAC=SAMPSPAC*1 . 1462298  ITEST  2 

ISAMPSPaSAMPSPAC 

! MUST  BF  AN  INTEGER  TO  MAINTAIN  A  GRID  PATTERN 
1SAMP2*ISAMPSP*ISAMPSP 
DPAC=1 ,/ISAmPSP 
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•JAVTNAKU'JIPO'N  30-D-001  4-2 


DPTDEN  IS  THE  NUMBER  OP  DIVISIONS  MADE  H  Y  THE  TEST 
POINTS  PER  SAMPLING  INTERNAL. 

S  JRPTS=S0RT(POINTS)  i CALC UL AT  ION  OF  DpTDEN  ENSURES  A 

IPICSMPsPlCWlT*OPAC  [CONSTANT  NUMBER  OF  INTERPOLATED 

IF(IPICSMP.LT.I)  GOTO  400  [REQUIRED  DATA  BASE  NOT 

available 

DEN0M=IPlCSMP-2  !  POINTS  FOR  EACH  STEP 

D»TDEN  =  S0RPTS/DF.N3M 

IF(DPT0FM.LT.1)THEN 

TYPE*,  'ROUTINE  IS  INVALID  FOR  DPTDeN<1' 
GOTO  210 

ENDIF 

XSAMPSPsFLOATI ISAMPSP) 

ROUTINE  TO  CREATE  THE  SAMPLED  DATA  ARRAY 

lENO=(PlCwlT*OPAC)+1 

ICNTSMPslEND*IEND-4 

00  10  Jst,lEND 

XMIS=(I-1)*ISAMPSP 
00  10  Js 1 , I END 

SAMPT(I, J)=FT(XMIS, (J-1)*XSAMPSP) 

10  CONTINUE 

*RITF  (74,100)  C(SAMPT(I,J),J*l,ieNO),Isl,lEND) 

100  FORMAT  ('  '  , 1 5FR  «  3 ) 

************************************************************** 

OVERHAUSEP-COONS  FUNCTIONS  BEGI N 


DELTAsISANPSP/DPTDEN 

IPP  AND  KIP  ARE  IN  UNIT  OF  DELTA. 

IPP  AND  IijP  ARE  THE  LIMITS  OF  THE  X-  AND  Y*INCREM£NtS 
SUCH  THAT  (IPP-M  ) *0ELTA  AND  (IUP*1)*DELTA  ARE  THE  FIRST 
AND  LAST  *<ORLD  COORDINATES  INTERPOLATED,  RESPECTIVELY. 

IUPs( IEND-2) *DPTDEN-1 
IPPrDPTDEN-1 

check  for  crossing  boundary  due  to  hound-off  error  jn 

DELTA 

IF ( ISAMPSP. GT. ( ( IPP+1 )♦ DELTA ) ) IPPsIPP*l 
IF (PIC* t T-ISAMPSP.LE. ( IUP  +  1 )*0ELTA)IUP=IUP-1 

(X,Y)5=wORLO  COORDINATES 
XX=IPP*OELTA 

XsXX  ! INITIALIZE  X  VARIABLE  FOR  X-INCREMeNt 

( IRLX.IRLY) t=THF  LONER  LEFT  BOUNDARY  IN  WORLD 
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C  C  )  0  R  D I N  \  T  t*  S  COOrESPONDING  TO  THE  FIRST  POINT  INSIDE 

C  THE  SAMPLE  SQUARE. 

IRLX=lSAMpSP 

n 

C  (  IRIJX  ,  IRtjy )  :=THE  UPPER  RIGHT  BOUNDARY  IN  WORLD 

C  COORDINATES  CORRESPONDING  TO  IHE  POTENTIAL  LAST  point 

C  IN  THIS  SAMPLE  SOU ARE  OR  THE  FIRST  POINT  IN  A 

C  NEIGHBORING  SAMPLE  SQUARE. 

IRUX=IRLX+ISAMPSP 

n 

W 

C  ( IX , I Y) J *TH£  INDEX  OF  THE  SAMPLED  DATA  ARRAY 

IX  =  2  ! INITIALISE  X  INDEX 

r* 

L 

Q* ******************************************************* ****$* 

C  INITIALIZE  VARIABLES  FOR  PICTURE  STATISTICS 

C 

ICNT=0  ICOUNTER!  POINTS  PER  PICTURE 

SNDIFsD  1SJM  QF  DIFF  FOR  PICTURE 

S4DIF2=H  !SU«  of  DIFF  SQUARED  FOR  PICTURE 

SNABSsP  I  SUM  OF  ABSOLUTE  VALUE  OF  DIFF  FOR  PICTURE 

DIFMAXSO  i INITIALIZE  VARIABLE  USED  TO  COMPUTE 
MAXIMUM  ERROR 

Q******* *************************************************** **$* 

C 

DO  90  IslPP.IUP  I START  OF  X-IWCREMENT,  ONE  LINE  PER  LOOP 
YsXX  ! INITIALIZE  Y  VARIABLE  FOR  Y-IMCREMENT 
t Y*2  I  INITIALIZE  Y  INDEX 
IRLY«ISAMPSP 
iRUYsIRLYflSAMPSP 
X=X+DFLTA 

IF  (X.GT.IRUX)  THEN  INEXT  LINE 

IX*IX«-1  1INDEX  FOR  NEXT  LINg 

IRLXsIRUX 

IRUXsIRUXtISAMPSP 

ENDIF 


INEXT  LINE 

I  INDEX  FOR  NEXT  LINg 


CALL  PITCH 

TXSsD  [STAr4CF,  X,  II  THIN  THE  PATCH 
Tx=X-TRLX 

HITIALIZF  VARIABLES  FOR  LINE  AND  SEGMENT  SfAIISTlCs 


TCNTIsO  ‘COUNTER:  POINTS  PER  SEGMENT 

ICNTAs)  ‘COUNTER:  POINTS  PER  LINE 

SmLnOsi)  .  0  ‘SUM  OF  LINE  DIFFERENCES 
S m L M D 2 s 0 . 0  ‘SUM  OF  LINE  DIFFERENCES  SQUARED 
SmLNAsO.O  ‘SUM  OF  ABSOLUTE  VALUE  OF  LINE  DlFr 
SGSMDFaO.O  ‘SU«  Ot  SEGMENT  DIFFERENCES 
SGSmDF2  =  0.0!SUM  Of  SEGMENT  DIFFERENCES  SQ'JArEd 
SGSmAsO.D  iSUM  OF  ABSOLUTE  VALUE  OF  SE3  DlfF 


l»tJ  U  O  tJ  O  OUUOU  U  !•>  U  ti  U  (XJI)U(jU  tJ  tj  Ci  tMJU 
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I 


On  HO  ,J=IPP,IUP  ! Y-INCREMEMT,  ONE  SEGMENT 

PER  LOOP 

Y=Y+DFLTA 

IF  (Y.GT.1RUY)  THEN  1  NEXT  SEGMENT 

IYsIYtl  !  INDEX  FOR  NEXT  SEjMfN  T 

IRLY*IRUY 

TKUYsIRUYf ISAMPSP 

CALL  PITCH 


STATISTICS  ARE  DETERMINED  PER  LINE  SEGMENT  OF  LENGTH 
SAMPSPAC. 

ICNTAsICNTA+ICNTl 
SMLNPsS  MLnD  +  SGS«DF 
SMLN02sSMLND2+SGSmOF2 
SMLNAsSMLNA+SGSMA 

SGAvGsSGSwpF/lCvri  ! AVER AGE  DIFF.  IN  SEGMENT 

SGRMSsS)RT(SGSMDF2/ICNT1-SGAVG*SGAVG)  ISEGMENT  RMS 
SGABSsSGSma/ ICNT1  ! AVERAGE  ABSOLUTE  DIFF  OF  SEGmEmT 

IC'lTlaO  1  INITIALISE  FOR  NEXT  SEGMENT 

SGSMPFaO.n  ‘CLEAR  THt.  SUM  OF  SEGMENT  DIFFERENCE 

SGSMDF2sO.O  ‘CLEAR  THE  SUM  OF  SEGMENT  DIFF  SQJArEo 

SGSMAsO.O  ! CLEAR  THE  SUM  OF  SEGMENT  ABS  DIFFEnCpS 

END  IF 


TY jsPISTAnCF,  Y,  WITHIN  ThE  PATCH 
TYsy-IRLY 


STRAIGHT-LINE  APPROX  I M A TI ON 


FEND  =  7.1  +  rx*Cl/ISAMPSP  +  T  Y*C2/ISAMPSP  +  TX*1Y*C3/ 
ISAMP2 


************************************************************** 

THE  CORRESPONDING  EXACT  VALUE  ISj 

EX AC  T  =  F  T( X , Y ) 


^  AT  A  DETERMINED  IN  PREPARATION  FOR  SEGMENT  AND  LINE 
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C  STATISTICS. 

OIFsEXACT-FEND 

DIF2=OIF*DIF  ISQUARE  DIFF. 

OABS  =  ABS(OIF)  1  ABSOLUTE  VALUE  OF  OIfF. 
IF(DIF.GE.O)  THEN 

0IFMXPSSDMAX1 (OIFBXPS, OIF) 

ELSE 

DlFMXNG*DMAXl (DIFMXNG/DABS) 

ENDIF 

^********************************^*** ********************  ****** 

C  SUMMATION  of  SEGMENT  data  for  the  calculation  of 

c  segment  statistics. 


SISmDFsSGSMDF+OIF 
S3S"»DF2sSGSMOF2  +  OIF2 


S3S«A  =  SGS«lA  +  DA.BS 


ICNTlsICNTl+l 


1  COMPUTE  THE  SUM  OF  SEGMENT 
DIFFERENCES 

•COMPUTE  THE  SUM  OF  SEG  DIFf 
SQUARED 

•COMPUTE  THE  SUM  OF  SEG  DIFf 
ABSOLUTE  VALUE 
1INCREMENT  SEGMENT  COUNTER 


IF  ( (J.EQ.IUP) .AND. (Y.LE. I RU  Y  ) ) THEN  ! SEGMENT  STATS  FOr 

LAST  SEGMENT 

SMLNOsSMLND+SGSMOF 
SMLMD2=SMLNn2+SGSMDF2 
S  4LNA=SmLNA+SGSMA 

SGAVGaSGSMDF/ICNTl  JAVERAGE  DIFF  IN  SEGMENT 

SGRMS=SQRT(SGSMDF2/ICNT1-SGAVG*SGAVG)  'SEGMENT  R*S 

SGABSaSGSMA/ICNTl  1  AVERAGE  ABSOLUTER  VALUE  OF  DiFF 

IN  SEGMENT 

ICNTAalCVTA+ICNTl 

E40IF 

CONTINUE 


Z**************  **********  ************************************** 

C  SUMMATION  OF  LINE  DATA  FOR  THE  CALCULATION  OF  PICTURE 

C  STATISTICS. 

SNOlFsSMDlF+SMLNO 

SMDIF2=SMDIF2+SMLN02 

SMABS&SMABS+SMLNA 

ICNTalCNT+lCNTA 

C*** *****************************************************  ****** 

C  UNF  STATISTICS  ARE  CALCULATED 

D  L N A V G s S M L N D / 1 C N T A  ICOMPUTE  AVERAGE  LINE  DIFFERENCE 

D  LNRMSsSQRT(SMLND2/ICNTA-LNAVG*LNAVG)  ICOMPUTE  LINE  RmS 

D  LNDABSsSMLNA/ICNTA  {COMPUTE  AVERAGE  ABSOLUTE  DlfF/LlNE 

Q*** *****************************************************  ****** 

90  CONTINUE  1  END  X-INCREMENI  LOqP 

q* ***********************************  *********  ***************** 

C  PICTURE  STATISTICS  ARE  CALCULATED 

C 

T0TAVG=SMDIF/ICNT  ICOMPUTE  AVERAGE  ERROR  FOR  PICTURE 
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RHS  =  Sr}P  r(SMnlF2/ rCNr-TOTAvG*TOTAVG)  1C0MPUTE  RMS  PIcT'JHE 
DAVS=SMA*s/IC?!T  1C3MPUTE  AVERAGE  ABSOLUTE  ERROR  FOR 

C  PICTURE 

X.5MP512=ISAmPSP/512. 

R  <S127sR  * S / 1  2 7 

«RITF(7  4»2?0)TSA  4pSP,OPr0tN, 

-  DIE*4XPS,^IEwX!JG,R.4S127,OAVG 

220  F)RMAT(l8,Flt.4,2(F11.4),FlJ.7,FU.4) 

IF( (PIFMXPS.LT. IE-4) .OR. (DIFMXNG.LT. IE-4) )THEN 

wRITE(74,*)'  DlFMXPS=',DIFMXPS,#DlFMXN3=', 

-  DIFMXVG 
ENDIF 

wRI  TF(  7  5,  Si  0)  SAW  PSP  AC  ,  I S  AMPSP  ,  DPT  DEN  ,ICNT,ICNTS!»P 
510  F  )R MAT(F13. 4, T10,F 1). 4,2(113)) 

wRITF(76,630)XSMPS12,RMSt27 
630  FDPM4T(F14.4,F13.7) 

210  OWTI  MI'S 

£**«***********************************************«*********** 

400  STOP 

E  «ll) 

SUBROUTINE  PITCH 


THIS  SUBROUTINE  SJMS  Z  VALUES  TJ  3E  USED  IN  O.xE  PATCH. 
COMMON  IX,IY,SAMPT(250,250) ,Z1 , Z2,Z3,Z4,C1 ,C2,C3 


WRITE(74,*)#XX, rY',tx,t/ 

I X 1 =ix  +  l 

lYlrIY+1 
ZtssAMPT(IX.IY) 

Z2*SAMPT(TX1 , JY) 

Z3  =  SAHPT(IX,IY1  ) 

Z4  =  SAMPT(IX1 ,  IY1  ) 
rt«TTF(74,  *)'Z1=',Z1,  #Z2=',Z2, 'Zi=',Z3, 'Z4=',Z4 
W«ITE(74,»)'IXl,IYls',IXl,IYl 


il.OwER  LEFT  CORNER  OF  PATCH 
ildwer  right  corner  of  patch 

IUPPER  LEFT  CORNER  OF  PATCH 
1UPPER  RIGHT  CORNER  OF  PATCH 


C  1  =  Z  2  -  ?  1 
C2SZ3-Z1 
C 1  =  Z4-Z  3-Z2+Z1 


WRITE (74, *)'C1,C2,C3*',C1»C2,C3 
*RITE(74,*)'  9 

RETURN 

end 


5R1/5R2 
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APPENDIX  HA 
NOISE  AMO  TEXTURE 

Aooendices  HR  and  hc  contain  the  routines  that  are  used  to 
qenerate  noise  am  texture  for  the  REALSCAN  scenes. 


*1' 


S  *  *  /  ■>  A  4 
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APPENDIX  Htt 
RLPCAL.FOR 


C  HPPCAL.FOk 

C 

C  THIS  ROUTINE  COMPUTES  SUM  VECTOR  REFLECTANCE  FOR  A  RTtE 

C  DATA  RASE. 

w 

I  m:OER*2  JO A 1(512, 255) ,ITEM8UF1512,512) 
fHTE  IDAT(5J  2,51  2) 

E  )UI  VALENCE (  ID  AT,  .70  AT) 

C)*MCN  ITEMBIIF 

TyPE*,'ENTEP  THE  FILE  to  READ  IDAT(BYTE)  FROM' 

ACCEPT*, IFILF 

READ!  IFILE,1000)  (  (  JD  AT  C  I  ,  J  )  ,  Is  l ,  5 1  2  }  ,  J  =  1 , 2  56  ) 

1000  F)RmAT(*6A2) 

f* 

W 

C  CREATE  AM  ALTITUDE  PICTURE 

** 

V. 

TYPE*,'  On  yon  WISH  TO  CREATE  an  ALTITUDE  PICTURE  ? 

♦  cisyrs)' 

READ*, IAN 

IF( IAN, NE.H GOTO  12  * 

D  )  120  1  =  1,512 

DO  120  J= 1 , 5 1 2 

ITEM«UF(J,  I)*IDAT(  J,I)+128 
120  C  )N  f  I NU E 

CALL  SDICDW (0,0,0) 

n 

*- 

C  THE  INTENT  OF  THE  SLOPE  FACTOR  IS  TO  SCALE  THE  MAXIMUM 

C  SLOPE  IN  THE  DATA  RASE  TO  A  PREDETERMINED  MAXIMUM  AnGlE 

n 

12)  Type*, 'ENTER  THE  FILTER  SIZE  OF  THE  NOISE  FILE  10  J  ARE 

*  USING' 

READ*,FLTSIZE 

20  T/PE*, 'ENTER  THE  SLOPE  FACTOR' 

Type*,'  .000)  TFPRAlN' 

T/PE*,'  .,)<)?  TREES' 

T  y  P  F  * , '  .005  DETA1U' 

READ* , SLPFAC 


585 
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j 


SLi)PE=S[,PFAC*FLTSIZE 


40 

17  34 


373 


INPUT  SCENE  PARAMETERS 


T(PE*,'Tyoe  the  Dolar  sun  angle  from  the  Z  axis 
(DEGREES)  ' 

ACCEPT*, TZOEG 
TZRAD  =  TZDEC./57. 3 
SINZsSlN(TZRAD) 

TYPE* , 'Type  the  cylindrical  sun  angle  from  the  X  axis 
toward  theY  axis  (DEGREES)' 

ACCEPT*,  TXDEG 
TXRAD=TX0EG/57, 3 
CsCDS(TZRAD) 

A=SINZ*CDS(TXRAD) 

B=SINZ*SIN(TXRAD) 

DO  40  J=1,512 
DO  40  1=1,512 

KsInATd,  J) 

IPCI.NE.512)  THEN 

PDX=IDAT(I+1 , J)-K 

else 

PDX=IDAr(5ll,J)-K 

EnDIF 

IF(J.NE.512)  THEN 

PDY=IDAT(l, J+l)-K 

else 

PDy=iPArci,5in-K 

EnDIF 

PDX=PDX*SLOPE 

POY=PDY*SLOPE 

REMAG=SQRT(UPDX*PDX  +  PDY*PDY) 

IR=255*(-A*PDX  -B*PDY  +CJ/REMAG 
IF(IR.LT.O)  IR=0 
IF(TR.GT.255)  IR=^55 
ITEWBHFU,  J)=IR 

CONTINUE 

type*,  'shall  we  make  a  picture?  (yes=1)' 

ACCEPT  *,  I  YES 
IF  (IYES.NE.l)  GO  TO  373 
T  f  PE*  ,  '  ' 

TYPE*,  'DATA  WILL  BE  OUTPUT  TO  1HE  DICOMED' 

CALL  SDICPW (0,0,0) 

T(PE*,'D0  YOU  WANT  TO  DO  ANOTHER  PI CTURE ? ( YES= l )  ' 

ACCEPT*,  IAN 

IF  (1AN.E0.1)  GO  TO  20 

STOP 

END 


5Pfi 
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APPENDIX  HtC 
THYTEX.FOR 


HJTTKX.FlR,  BP  TEX. FOR,  RLrEX.FOR 

UTS  PROGRAM  GENERATES  A  SQUARE  ARRAY  OF  FILTERED  NdIsE 
HAT  CAO  t*E  REDISTRIBUTED  TO  4  POSSIBLE  AMPLITUDE 
orsrPiH  it  to  -  s. 

PROGRAM  BY:  G.  BECKER,  S.  RICHIE,  P.  GATT ,  R.  LEBlAnC. 
AND  OR.  PATZ 

LATEST  REVISION  DATE:  2*  JULY  91  PL 


APPROPRIATE  ARRAYS  ARF  DIMENSIONED  AND  OAlA  TYPES 
SPECIFIED 


BYTE  JBOFf 5B0,5b0) 

DIMFNSTON  FLTARA(hbO,29) , ELI  EBP ( 560 , 29 ) 

DIMENSION  E*(  1001),  960(1001) , BUCK ( 30 0 1 ) , FR AC ( 1 0 ) , W ( 3 1 , 3 1 ) 
I<TEGEP*2  IRO* (2°) , IBUF(S60,SbO) , K BUF ( 2 8 0 , 560 ) 

T  JTEGEP  0SI7.E,  IFLrSlZEOO  j  .IDISTtlO)  ,FINSIZ,G(300l) 
CRARACTERAlft  DSTH3(  4)  ,Fl.TYPE 
F.  XIIVALE'JCE  (BEQC2)  ,H(  J  )  )  ,  (JBUF  ,KBUF) 

C  )-4Wf>M/  £ BOF/TBIJF 
C  )'  100/0UF/OdF(5b.),S60) 

DATA  ( DS  Tr  B ( I) , Isl ,4)/' UNIFORM', 'TRIANGULAR', 

*  'PARABOLIC' , 'CUSP'/ 

I/O  T)  THE  TERMINAL  FOR  EACH  RUN 


TYPE  A, 'l  '•PUT  COMMAND?  ' 

TYPE*,'  (1)  CREATE  AND  FILTER  NJISE' 

T  YPf* , '  (2)  READ  1A2  NOISE  FOR  REDISTRIBUTION  * 

TYPE*,'  (J)  READ  HYTE  MJISE  FDR  RED ISTR 1 P JT ION ' 

READ*  ,  IC  )  JA*  <> 

Goto ( 30  ), ion, i no) , icoband 


SR  7 


JA  V  rKAECJUIPCEN  HO-D-OOlM-2 


100  If  P<C* ,  'it  JtER  THF  FILE  FROM  WHICH  TO  READ  THE  OA1A.' 

REAO*,IFIf,K 

TYPE*, 'DUES  THIS  FILE  HAVE  HEADINGS  ?  (l  =  fES)# 

READ* ,  A.'JS 
I F  C ANS.EO. 1 JTHBN 

HF AD (I  FILE, 200) ,FLTYPE 
R  F  A  D  (  I F 1 1,  E  ,  2  0  <> )  ,  D  S  T  R  B  !  1  ) 

READ! I  FI LF,*) ,FRACT, I  Si ZE , HP AS , FI N SI Z 
TYPE*,'  FILTER  Tf PE  =  ' , FLT YPF 

TYPE*,'  DISTRIBUTION  =  ',DSTRB!1) 

TYPE*,'  DISTRIBUTION  PEAK  =  ' , FR ACT 
TYPE*,'  FILTER  SIZE  =  ',ISIZE 

TYPE* , *  NUMBER  OF  PASSES  =  ',NPAS 
TYPE*,'  FILE  SIZE  *  ',FINSIZ 

ELSE 

TYPE*, 'ENTER  THE  SIDE  DIMENSION  OF  THE  FILE' 

RF.AD*,FINSIZ 

ENDIF 

200  FORMAT! AIR) 

FILTMAXaO 

FILTMINs99P9 

IFC IC0MAN0.FQ.2) THEN 

READ! IFILE,230) ,( (IBUFCI, J),I=1,FINSIZ) , Jsl,FlNSlZ) 

DO  260  1st , FINSIZ 
DO  26n  jsl, FINSIZ 

VAI.sIBUF!  J,  I)  * 

BUF! J,I)sVAL 

IF(VAL.GT,FILT^AX)FILTMAXsVAL 
IF(VAL.LT.FILTMIN)FILTMIN=VAL 
260  CONTINUE 

else 

READ! IF1LE,230) , ! !KBUF!I, J) ,Is1,FINSIZ/2) ,Jsl,FlNSlZ) 

DO  250  Isl, FINSIZ 

DO  250  jsl, FINSIZ 

VAL=JBUF! J,I)tl 28 
HlJF!J,I)sVAL 

IF(VAL.GT.FILTMAX)FILTNAXsVAL 
IF(VAL,LT.FILTMIN)FILTMINsVAL 
250  CONTINUE 

FNDIF 

230  FORM AT! 66  A2 ) 

TYPE*, 'ENTER  THE  NEW  DISTRIBUTION' 

TYPE*,'  Cl)  UNIFORM' 

TYPE*,'  ! 2 )  TRIANGULAR' 

TYPE*,'  ! 3 )  PARABOLIC' 

TYPE*,'  ! 4)  CUSP' 

REAO*,IOIST! 1) 

IF  !IDIST(1).NE(1) THEN 

TYPE*, 'ENTER  A  NUMBER  BETWEEN  0  AND  1  THAT  WILL' 

TYPE*, 'IDENTIFY  THE  PEAK  OF  THE  DISTRIBUTION' 

RFAD*,FRAC! 1) 


588 


O  tJ  l i 
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300 


500 


F  -iDIF 

TYPE*, 'ENTER  THE  U PPER  HOUND  FOR  THE  FI«AL  VALUES' 

TYPE*, 'THE  [,0-ER  BOUND  JS  ASSJMEO  TO  BE  0' 

TYPE* ,  'NORMAL  IS  255  FOP  uICOmFD  PICTURES' 

READ*  ,  I R A  JGE 

IRANG€=IRANC;E+1 

UPASsl 

ICfif=t 

I F  F  S  A  s  K  i  M  S I  7 
G)TO  MSO 

I/n  Ei)R  NOISE  CREATION 

TYPE*, 'ENTER  TIE  SIDE  DIMENSION  OF  THE  FINAL  ARRAY' 

TYPE* , ' NORMAL  IS  512  FOR  OTCOMFD  PICTURES' 

HEAD* ,  F I  N  S 1 7 
IFFSAsFI'JSIZ 

TYPE* , 'ENTER  THE  MUMPER  OF  PASSES  TO  BE  MADE  THROUGH  THE 
Fir, TER' 

TYP£*,'NJ  MORE  THAN  10' 

HEAD* , N P  A S 
0  1  50 0  1  =  1  ,  «PA5 

TYPE* ,  'ENTER  THE  FILTER  SUE  FOR  PASS',  I 
TYPE*, 'THIS  MUST  BE  ODD  AND  GREATER  THAN  ONE' 
READ*,in,TStZE(I) 

TF  (  CtlFLTStZEC  I)/2)*2).eO.IFLTSUE(I)  )THEN 
TYPE*, 'MUST  BE  ODD  !i' 

Grin  400 
ENDIF 

IFFSAsiFPSA-HFLTSIZEd  )-l 

EYPE*,'EmTFR  THE  FINAL  DISTRIBUTION  FOR  PASS', I 
TYPE*,'  (1)  UNIFORM' 

TYPE*,'  (2)  TRIANGULAR' 

TYPE*,'  (3)  PARABOLIC' 

TYPE*,'  (4)  CUSP' 

READ*, I0T3T( I ) 

IF  ( I0TST( I ) . NE. 1 )THEN 

TYPE*, 'ENTER  A  NUMBER  BETWEEN  0  AND  1  THAT  WILL' 
TYPE*, 'IDENTIFY  THE  PEAK  JF  THE  DISTRIBUTION' 
READ*,FRAC(I) 

ENDIF 

CONTINUE 

TYPE*, 'E  m*  THE  UPPER  BOuND  FOR  THE  FINAL  VALUES' 

TYPE*, 'THE  LONER  BOUND  IS  ASSUMED  TO  BE  0' 

TYPE*, 'NORMAL  IS  255  FOR  DTCJMED  PICTURES' 

READ* , I R A  j G E 
IRAMGE=IRA* GE+1 

TYPE*, 'E^  TER  A  SEED  FOR  Tr>E  RANDOw  ’iUmheF  GENERATOR' 

read*  ,  i  r 
Hits  II 
T3PREAD=1 


58? 
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F  l  L  T  E  H I  J j  I, OOP 

O'J  3700  IC-4T=1,NPAS 
IFSlZE=lF|,TSlZE(ICNT) 
FRACTsFRAC( ICNT) 


SETUP  THE  WRIGHT  FOR  FILTER  ARRAY 


F4C=3. 141 59265/ ( IFSIZfc+1 ) 
ICENTsIFSIZE/2+1 
I0IAM=IFSIZE+1 
WCICE.4T,  IC6MT)  =  1  . 

DO  700  JsiCFNT+1 , IFSIZE 
KsJ-TCEN  T 
S0R=K*K 
KYsIDlAP-J 
DO  700  IsICENT.J 
Kal-ICENT 
XK=SORT(K*K*SQR) 
KX=IDIAM-I 
IF(XK.GE. ICENT)THEN 
VAL=0.0 
ELSE 

VAL=COS(XK*FAC) 

ENOIF 

W(I,J)=VAL 
W(J,I)=VAL 
W(I,KY)=VAL 
W(KY,I)=VAL 
W(J,KX)*VAL 
H(KX, JJsVAL 
w ( KX  »  KY) =VAL 
W(KY,KX)sVAL 
CONTINUE 


WITH  THE  FILTER  SIZE  CORRECT,  W E  GENERATE  An  ARRAY  THAT 
IS  (511 ^FILTER  STZE*  OF  PASSES)  X  (FILTER  SIZE)  AND 
FILLS  IT  WITH  RANDOM  NUMBERS 


LIMsIFFSA 

IFFSAsIFFSA-IFSIZFM 

TYPE*, 'FILTERING  THE  ARRAY  FOR  PASS  #,ICNT 
DO  900  JS1 , TFSIZE 
DO  POO  1=1, LIM 

I F ( I C N  T  .GE.  2)  THEN 

FLTARA( I,J)=IBUF(I,J) 

ELSE 

FLTAMA(I, J)aRAN(lI) 


Jj 
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E  40  IF 

000  CONTINUE 

lRO*(J)=J 
900  CON  TINUE 


c  he  average  is  mow  created  for  a  square  array  of  the 

C  DIMENSION  of  the  filter  size,  this  is  a  WEIGHTED  AVERAGE 

c 

m 

Sm 

F ILTM  IN  s9R9»? 

FILTMAXsD 
D)  1400  J=  1 , IFFSA 
DO  1100  1  =  1 , IFFSA 
AVGsO.O 

DO  1000  J2=1,IFSIZE 
J3sIROW( J2) 

DO  1000  12=1 , IFS1ZE 
13=1+12-1 

AVG=AVG+W(I2, J3)*FLfARA(I3, J2) 

1000  CONTINUE 

HUF(If J)=AVG 

IFCAVG  .GT.  FILTMAX)  FILTHAXsAVG 
I F ( A VG  .LT.  FILTMIN)  FILTMIN=AVG 
1100  CONTINUE 

C 

C  CREATE  NEW  LINE  AND  CHANGE  LINE  POINTERS 

DO  1400  J2=l , IFSIZE 

TF(IR0W( J2) .LT.IFSIZEJTHEN 
IRHW( J2)=IR0W( 121  +  1 
ELSE 

IKOWC J2)=l 

IF(  ICNT.GE.  2)THE.» 

JINCR=J+1 
DO  1200  12=1 ,LIM 

FLTARAU2,J2)=IBUF(I2,JINCR) 

1200  CONTINUE 

ELSE 

DO  UUO  12=1,  LIM 

FLTARAII2, J2)sRAN(  II ) 

1300  CONTINUE 

END  IE 
EDDIE 

1400  CJNflHUE 

f* 

W 

C 

C  SET  up  FOR  REDISTRIBUTION 

C 

1450  IF  (ICfJT.EQ.NPAS)TMEN 


'UVTKAFOUTPCEN  H  0-D-00  1  4-2 


USIZEsIPANGE 

ELSE 

3S[ZE=l000 
E  JOIF 

IFHACsFRArT*OSIZE 
1500  IF(0SlZE.GT.256)THEN 
LIMTs3*QSIZE 
ELSE 

LI MTs 1 0*0 SIZE 
E  JD  IF 

EPSHONs(FILTMAX-FILTMIN)/LIMI 
OEPsl ./EPSILOM 

c 

c 

C  CREATE  THF  DISTRIBUTION  ARRAY 

C 

C 

D.)  1650  lsl,LIMT*l 
G(I)=0 

1650  CONTINUE 

DO  1700  Isl , IFFSA 
00  1700  J=l, IFFSA 

Ks(BUF(J,I)-FILTMIN)»OEP  t  1 
G(K)=G(K)  ♦  1 
1700  CONTINUE 

G(LIMT)sG(LIMT)+G(LHT-H) 

r* 

C 

c 

GOT J( 1800,2000, 2200,2400)  IDISTCICNT) 

C 

c 

C  UNIFORM 

V. 

18  00  TEMPI s(  l.*TFFr>A*IFFSA)/)SiZ£ 

D)  1 Q00  Isl , QSIZE 
OUCKf I)=TEMP1 
1900  CONTINUE 
GOTO  2600 
C  . 

C  TRIANGLE 

c 

20  0  0  TEMPI sf  t .* IFFSA* IFFSA) /OS IZE**2 

TEMP2s2*0SIZE+1 
OJ  2100  Isl, QSIZE 

IF  (I  .LE.IFPAOTHEN 

P1CK(I)s(2*I«1)*TEhP1/FKACT 

E1.SE 

PICK(I)s(TEMP2-2*I)4TEMP1/C 1-FRACT) 
ENDIF 

2100  CONTINUE 

GOTO  2600 
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parabola 

0  TEMPI =( 3.*IFFSA*IFFSA)/(2*Q:>IZE**2) 

DJ  2300  1=1 , QSIZE 

IF(I.LF.IFRAC)THEN 

BUCK  (l)  =  CTFMPl/FRACn*(  2*1-1 -(  (H-3.*I*CI-1  )  )/ 

*  (3.*FRACT*3SIZE) )  ) 

ELSE 

TEMp2=OSI7»I*l 

B'JCK(  I)  =  (TE  MPl/(  1-FRACT)  )*(2*TEMP2-1-C  (  H-3*TFmP2* 

*  (TEMP  2-1 ))/( 3.*(1-FRACT)*0S1ZE) ) ) 

ENDIF 

0  C1MTIMUE 

GOTO  2600 


C'JSP 


0  TEMPI  =  (  1  .  *lFFSA*IFFSA)/0SlZE/2SlZE/CiSlZE 

DJ  2500  1=1, QSIZE 

IFCI.LF.IFRAOTHE* 

H.jCK(I)  =  (l  +  3.*I*(I-l))*rEMPl/(FRACT*FHACT) 

ELSE 

TEMP2=0SIZE-I*1 

»UCK( I )=(t+3*re«P?*(TEMP2-l) )*TE«Pl/( (1-FRACT)* 
*  (1-FRACT)) 

END1F 
0  CONTINUE 


TEST  BUCKET  SIZES 

0  T0T=O 
SUMsO 

DO  123  1=1,QSIZF 
SUMSSJM  +  B-JCKC  i  ) 

C JNTI UUE 
m  124  I*1,LIMT 
rnTsrOT+G(i) 

C  )N  riNl'E 

TTPE*,'S'J^  of  array  buckets  =  '  »  TOT 
TYPE*, 'SI'’  nF  DISTRIBUTION  BUCKETS  =  #,SUm 
TYPE*#' '<1**2  =  *,  IFFSA*  IFFSA 


COMPUTE  TmF.  BREAKPOINTS 


K  =') 

A  =  0 

00  2900  1=1, QSIZE 
0  IF(A.LT.BUCK(I) )THEN 
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K  a  <  ♦  1 

IF(K.GT.LTMT)SOTO  2«00 
AsA+G ( K ) 

GOTO  2750 
ENDTP 

A* A-rtUCK ( I ) 

B(I)s(k-A/G(K) )*EPSILON+FILTMIN 
2800  CONTINUE 

B(OSIZE)sfIlTMAX 

c 

c 

C  CONVERT  BUF ,  THE  FILTERED  NOISE  ARRAY,  FROM  A  GAUSIAN 
C  DISTRIBUTION  TO  ANOTHER  DISTRIBUTION  STILL  POSSESSING  THE 
C  SPACIAL  FILTERED  PROPERTIES,  IBUF  HAS  DATA  POSSESSING  SOME 
C  DISTRIBUTION  AND  A  SPACIAL  PERIOD  UP  TO  ABOUT  ( 2/PI ) *IFFS A . 

C  1/2  INTERVAL  SEARCH 
C 

MAXsO 
M 14*99999 

NTIMSL0G(FL0AT(QSIZE))/L0G(2,0) 

IFC0SIZ£.GT.2**NTIM)  NTIM=NIIM+1 
BEOCDsFILTmIN 

c 

DO  3100  Isl,IFFSA 

DO  3 1  Do  jsl,lFFSA 
LOWsO 
IUPsOSlZE 
KVslUP/2 
VAL*BUF(J,I) 

DO  3000  Kal'NTIM 

IF( VAL.LT.B(KV) )IHEN 
IUPsKV 
ELSE 

LONsKV 

ENDIF 

KVs(IUP*L0W)/2 
3000  CONTINUE 

Ii)UFC.!,I)sLOW 
IFCMAX.LT. LOW)  MAXtLOw 
IF(MIN.GT.LOW)  MINsLOw 
3100  CJNTINUE 

A* 

c 

3200  CONTINUE 

C 

c 

C  WRITE  OR  SCALE  FINAL  FILE 

C 

3300  TYPE*, 'INPUT  COMMANO  (1)  =  WRITE  ARRAY  IN  BYTE  FORw' 
TYPE*,'  (2)  *  WRITE  ARRAY  IN  INTE3ER*2 

*  FORM' 

TYPE*,'  (3)  =  SCALE  ARRAY' 
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type*  , '  (4)  s  slop' 

R.-JAO*  ,  iCn^AMl) 

GOTO! 3600, 3600, 3400,4200) , ICON A. iD 
C 

m 

Z  SCALP  ARRAY 

r* 

w 

3400  TYPE*, 'INPUT  A  MINIMUM  AND  A  MAXIMUM  FOR  A  SCALE' 

T YPE* , 'THESE  MOST  HE  INTEGER' 

READ* , JMlN,  JMAX 

SCALE* ( JMAX-JM1N) /(*AX-MIN) 

03  3600  Tsl  ,  F I N  S  I  Z 

00  36  0 0  J *  1 »  F I N  S I Z 

IBUF( J,I)=SCALE*(I&UF( J,I)-MIN)  ♦  J  M  I  *J 
3500  CONTINUE 

GJ  TO  3300 
C 


c 

n 

WRITE  DATA  ABOUT  THE  ARRAY 

L 

3600 

TYPE*,' 

FILTER  TYPE 

S 

POLAR' 

TYPE*,  ' 

DISTRIBUTION 

s 

',DSTRB(IDIST(NPAS) ) 

TYPE*,  ' 

DISTRIBUTION  PEAK 

s 

',FRAC(NPAS) 

TYPE*  ,  ' 

FILTER  SIZE 

s 

',IFLTSJZECNPAS) 

TYPE*,  ' 

number  of  passes 

s 

' ,  NPAS 

TYPE*,  ' 
TYPE*,  ' 

FILE  SIZE 

9 

= 

',FINSIZ 

TYPE*,'t4rn  WHICH  FILE  00  YOU  WISH  TO  WRITE  THE  ArRaY  ?' 
R£AQ*,IFlLE 

TYPE*, 'HO  YTJ  WISH  TO  RECURD  THE  APOVE  DATA  AHOuT  TrE 
*  FILE' 

TYPE*, 'AT  THE  f)F  GINNING  OF  IT  ?  ClsYFJS)' 

READ* , ANS 

I F ( ANS . 4E. 1 ) GOTO  3700 
WRITFdFlLE,*)  ,  'POLAR' 

write (i file,*)  ,nsrRB( misri  «PASJ  ) 

#  R  T  TE  (  I F 1 1<E  ,  *  )  ,FRAC(NPAS) 

"RITF.(  I  FILE,*)  ,IFI,TSI7E(NPAS) 

WRITECIFILE,*) , N  P  A  S 
WRITFITFILE,*) ,finsiz 
37  00  G )T3( 40  0  0, 3R00) , ICON A  NO 

c 

f* 

<* 

C  #  R  I T  F  ARRAY  AS  H  TFGER*2 

f 

w 

C 

3800  CONTINUE 

TYPE*,'  WRITING  I  3UF  TO  FILE  ',IF1LE 

WRITE! I  FILE, 2  30)  ( ( I HUF ( J , I ) , Jsl , FI  NS  I Z ) , I* 1 , F I NSlZ ) 

GOTO  3300 
C 
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W 

c 

4000  TYPE*  ,  'CONVERTING  TO  BYTE' 

00  4100  Irl.FTNSIZ 

00  4100  jsi  ,  F I N  S I Z 

JB<JF(J,I)  =  lftUF(J,I>-128 
4100  CONTINUE 

TYPE*,'  WRITING  KBUF  INTO  FILE  ',IFILE 
WRITE(IFILE,230)  ( ( KBUF ( I , J ) , I =1 , FI MSI Z/2 ) , J 
GOTO  3300 


C  SflP  !!!! 

C 

4200  STOP 

e  -in 


1 ,FlNSlZl 


•SOB 


U  U  U  'J  U  tv  U  ()  t)  u 
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'  • 


l' 

3 

r 

5  appendix  ta 

TSTPw.FOK 


TSTBw.FOP 

THIS  PROGRAM  IS  DICOMED  ROUTINE  FDR  PAINTING  THE 
BLACK  And  WHITE  DATA  RASE  FUR  INITIAL  TESTING. 

subroutine  framri 

INCLUDE  'OR  AOj  (UTILITY . DICOMED)  COM  MON.  FOR' 

REAL  RX,RY,PI,TEST1,TEST2 
INTEGER  IDATBAS,IRTHO,IWRT,iDICD,K 
INTEGER*?  ITEM 1(1024) 

TYPE*, 'INPUT  DATABASE  CHOICE:  1=R4DIAL  LINES' 

TYPE*,'  2=C0NCENTRIC  CIRCLES' 

ACCEPT*, IDATBAS 

TYPE*, 'INPUT  IR  DEVIATION  FROM  GRAY  AT  THETA=0 
♦  (RANGE  IS' 

TYPE*,'  0  TO  127  WHERE  127  IS  FULL  SCALE  DEVIATION)' 
ACCEPT* ,  I&THO 

TYPE* , 'WRITE  ARRAY  TO  DISK  FILE  ?  (0=N0  WRITE)' 
ACCEPT*, IWRT 

TYPE*, 'ENTER  RESOL:  H=1,M=2,L=3  (N0R*AL=3)' 

ACCEPT* , MODE 
M DOE=  3 

1 YPE*, 'ENTER  MAGZ  CONTROL:  0  DR  1  (NORMALsO)' 
ACCEPT*,  ‘-1  A  G  Z 
MAGZ  =  0 

TYPE  *, 'ENTER  NKLE  (512  OR  1024)' 

ACCEPT  *,NELE 

TYPE  *,  'ENTER  N  [.IN  (512  OR  1024)' 

ACCEPT  * , N  L I N 
C 

TYPE*, '00  YOU  REALLY  WANT  A  256  RESOLUTION?' 

TYPE*,'  YESsl , NOsO ' 

ACCEPT* , IRW256 
CALL  VIDSET 
N  C  0  L  (  1  )  s  0 
NCOL(2)sO 
CALL  FILTER 
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Pl=3. 14159 
Ii)3sNIjI  N 

IF(  lR.V25b.Fj.  1  )  I0ns25fi 


DO  444  1*1, ion 
CALL  V 0  I M I T 
DO  555  1=1, TOO 

GqT'1  (10,29)  IDATBAS 

TY PE*, 'ERRORsIDATBAS*', IDATBAS 


r* 

STOP 

w 

1  0 

TESTlsPr/25#> 

TEST2  =  Ar4:J2(I-.  99999,  J-. 
K=TEST2/  IEvSTI 

94999) 

300 

I F ( (K/?)*2«nE.K)  GOTO 
GOTO  200 

1  00 

C 

20 

TEST2=J 

TKST1=I 

TESTl  =  (TSsTl**2  +  T£Sl’2**2)**.5 
K  =  TESTl/(  (  (  )*T£ST1 )/(  1.41  4*NL1N)  )  4-1  ) 

TEST2  =  A  TAN2r I-.99999, J-. 99999 ) 

GOTO  jm 

r* 

<0 

200  BJFl ( J)  =  ( ( -2  -  *  I W THO)/PI) *IEST2-12R  +  lRrW0 

GOTO  554 

100  BlJFl  C  J1  =  C  f  2.*T«TH0/PI)  )*TEST2tl  27-IRTHO 

554  G0T0(555)  I-'fRT  +  i 
I  IE-11  (J)=HUFU  J) 

1 F  (  A  U  F 1 (J).LT.O)  ITEM1 ( J)=3uFl ( J)+256 

555  CONTINUE 

IF( IRa255.E0. 1 )  rues 

00  333  KKs256,l,“l 
-3 1 1 F 1  (2*KK)=BUF1  (KK) 

Al'Fl (2*KK-1 )=BUF1 CKK) 

333  ContIMOF 

CALL  VI DOJI 
Cali,  vdjnit 

F  4  n  I F 

CALL  V  I  0  JiJ  T 

iF(i«Rr. jf.o)  *  r  i  r  f  ( i w r r , y )  citemi c k > , k=i 
TYPE*,  'LINE',  I 
444  CONTINUE 

CALL  OPCHK 
TYPE*, 'THE  END' 

C  )0E*-1 

9  FORAATfbbA?) 

EJO 


i  BLACK 
i  .vHITE 


,NulN) 


S9« 
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APPENDIX  IB 
SPCAVEPA.FOR 


SRCA«EPA.FOP 
PROGRAM  SPCAMERA 

I  JCLDOE  'DR  AO;  t  jriljITY.DICOMEDJCOVMDiv.FJR' 

integer**  syss assign 

REAL  THE  1  ,  TIRE?  ,  SECNDS  ,  FDELTA  ,  l'DELTA  ,  FDELTA M 
REAL  FPELTAS,TD£LTAH,T*P,  I'DELTAM,  TDELTAS 
INCLUDE  #DRaO: ID riLirY.OlCOMED] 10.FDR' 

INCLUDE  'HPaO;  [UTILITY. DICOMED)  DFF.FDR' 

ASSIGN  r R F  DRUB  TO  A  CHANNEL 

I STAT=SXSsASSTGn( 'UZAO: ' , IChAn,  ,  ) 

IF  WF  CANNOT  00  THE  ASSIGN  WE  CAN *01  CONTINUE 
1F(.M0T.  1ST AT) GO  D  800 

5 FT  UP  AST  FOR  RECEIPT  OF  UNSOLICITED  INPUT 

C  )DR  =  0 
vi)DE=  I 

SiJFRFEs  '77577  '  0 

HiJFRKOsO 

CALI,  XIDSET 

M00E=0 

C  1DE=  1  !  SET  DP  CALL  FiOR  F  R  A  M  E 1 


TIME?sSECnI)SCO.O) 
EXTFLG  =  0 


Giro  ( 1 00,200, 300, 400, 5 00, 600) CODE* 2 

K  <  T  f  r .  0  =  1 
GOTO  IP  00 

WRITE  (  6  »  *  )  'Cf'DF  EQUATED  U  -  THIS  IS  AN  ERROR 
*  CONDITION' 

kxtflg=i 

GOTO  10)0 


599 


NAVTRAEQUIPCEN  80-D-0014-2 


300  CALL  FKAMEJ 

GOTO  1000 
C 

400  CALL  FRA3F2 

GOTO  1000 

r* 

v* 

500  CALL  PR  I  PRO 

GOTO  1000 

n 

600  CALL  FRAME) 

C 

c  get  the  time 

FOELTAsSECNDSCTIMEI ) 

Ti)ELTAsSSCNpS(TIME2) 

C  CALCULATE  THE  ELAPSED  TIME 

C 

FOE LT AMs IHTCFDELT A/60. ) 

EJELTAS  =  F.0ELTA-(F0ELTAM»60) 

c 

C  CALCULATE  THE  ELAPSED  TIME  FOR  THE  TOTAL  SEQUENCE 

r* 

TDELTAHsInT(TPELTA/1600.  ) 

T  4PsTDELTA-f TDELT AH* 3600 ) 

TuELTAMslNTCTMP/60. ) 

T0ELTASsrMP-(TDELTAM*60) 

C 

IF  (IS* 12  .go.  1)  THEN 

WRITE  (6,700)  FDELTAM,FDELTAS,TDELTAH, TDELTAM, TDeLtAS 
END  IF 
C 

c  check  if  printout  is  desired  dm  printer 

c 

IF  (is»ll  .ED.  1)  then 

WRITE  (5, 700)  FDFLTAM.FQELTAS,  TDELT  AH  ,  TdELTAM  ,  TdE(,T  AS 
END  IF 

c 

700  FORMAT  (///T15, 'ELAPSED  TIME  FOk  FR A  ME ' /T50 , FI  0 . 2 , T65 , 

1  '  4INUTF. S', T75,F15. 10, TlOO, 'SECONDS' //T15,' ELAPSED  Tq^AL 

2  TIME',/ T 3b, F6. 2, T45, 'HOURS ',T50, FI  0.2, T65, 'MINUTES ',T75, 

)  F15. 10,T100, 'SECONDS') 

C 

c 

oro  1000 

w 

1009  CLOSE  (OUTsl) 

CLOSE  (UNlTs2) 

CLOSE  ( UN l Ts  3 ) 

CLOSE  ( U  N I T  s  4 ) 

C 

IF  (FXTFLG  ,EU.  1)  THEN 

WRITE  (6,*)  'ERROR  CONDITION' 


600 


'UVTRARO'JrPCt-'w  H 0 "O-OOI  4-2 


(1  )Tr)  qqq-» 

a  j  r>  t  r' 

GOTO  to 
P  H I M T  HOI 

F.DPMATC  '0***  C  A  *J  'I  0  r  ASSIGN  0  R  1  1  K  ***') 

f<tfi,g=1 

GOTa  1  *  J  •)  0 

cal.l  extr 


s  rnp 

KMO 


b  0 1  /  n «)  2 
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APPENDIX  JA 

ANALYSIS  OF  APPENDIX  J  SOLUTIONS 


This  Appendix  compares  the  three  solutions  of  Appen¬ 
dix  J  (the  lower  hound  problem),  and  a  two  other  solutions 
whlcn  are  presented  in  this  Appendix.  Tne  five  solutions 
are  labeled  A  through  o  and  D#.  Tne  equations  for  tne  five 
solutions  are  given  In  equations  JA-1  tnrouqh  JA-5. 

Solution  0  is  simlliar  to  solution  C.  Solution  c 
uses  the  tne  last  computed  point  along  the  lower  bound  line 
(X,Y)  to  compute  the  new  point  (X',Y#).  Solution  D  uses 
some  intermediate  ooint  (X+dX,Y+dY)  to  compute  (X',Y#). 
Tnls  intermediate  point  is  choosen,  such  that  solution  D  is 
more  accurate  than  Solution  C.  The  intermediate  Point  is 
between  tne  old  ooint  (X,Y)  and  tne  new  point  ( X# , Y' ) . 

The  Intermediate  Point  is  computed  by  addin?  a  Por¬ 
tion  of  tne  last  distance  between  data  points  to  the  latest 
data  point.  This  portion  is  computed  by  multlplylno  the 
last  distance  by  a  scale  factor  SCALE.  Thus  SCALE  is  less 
than  1  and  qreater  than  o. 

Solution  0  can  be  modified,  such  that  SCALE  is  a  con¬ 
stant  and  a  power  of  2.  Tne  case  where  SCALE  is  a  constant 
and  equal  to  .5  Is  solution  D'. 
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Solution  4:  JA-1 

?  2 

T  s  (X  +  Y  )(1  ♦  K  )  f  M  *  X  +  K2*n 

X'  =  x  +  <i*r 

Y  '  s  Y  ♦  K  2  ♦  T 

SOLUTION  d:  JA-2 

T  =  1  +  K  *  (  K  1  *  X  4-  K  2  *  Y  ) 

x'  =  cx  -  amg* y ) * r 

Y '  s  (ANG*X  ♦  Y)*T 

solution  cs  Ja-3 

2  2 

r  =  x  +  y 

X'  s  X  +  ki*t 

Y'  =  Y  ♦  <2*t 

SOLUTION  JA-4 

2  2 
T  s  (X  ♦  rlX  ^  .CALS)  ♦  ( Y  +  dY*SCALE) 

d<  =  K 1 »  r 

df  s  K2*f 
X'  a  X  +  IX 

Y'  r  Y  ♦  dY 

SOLUTION  O':  JA-5 

2  2 
T  s  (X  +  dX/2 )  +  ( Y  ♦  iY/2) 

dX  =  K  1  *  r 
dY  s  K2*T 
X'  =  X  ♦  dX 
1'  :  y  MY 

Aooendlx  Jn  lists  the  FORTRAN  code  which  implement 

these  live  solutions.  Tne  mat hemat leal  complexity  ot  these 

five  solutions  is  alven  in  Table  JA-1. 
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* 

a 


v 


h 


TABLE  JA-1.  ”ATH  OPERATIONS  FQK  EACH  SOLUTION 


soLurivj 

MULTIPLIES 

ADDS 

SHIFTS 

A 

R 

4 

0 

B 

7 

4 

0 

C 

4 

3 

0 

D 

S 

5 

0 

D  # 

4 

5 

2 

Taole  JA-2  tabulates  the  root  mean  square  error  (KmS) 
and  the  naximun  error  c  4 a X >  for  solutions  A, 8,  and  C  versus 
11  different  lines.  The  RMS  error  is  calculated  by  the 
square  root  of  averaqe  of  the  sum  of  the  errors  squared 
alonq  both  axes.  .4 ax  is  the  distance  from  the  exact  point 
to  the  computed  oolnt. 

Tne  11  lines  are  oarallel  to  the  x  axis,  and  tnev 
nave  a  distance  from  the  orlqln  CDIST)  which  ranges  from  o 
to  1024.  Raen  line  nas  a  lenatn  of  1024  units.  The  case 
where  oist  equals  1024  is  the  case  when  the  REAL  SCAN  eve 
orientation  is  alonu  tne  horizontal.  me  case  wnen  DISt 
equals  1,  Is  the  worst  case,  and  is  when  the  REAL  scan  nadir 
falls  as  close  as  oosslble  (with  integers)  to  tne  lower 
bound  line. 

TABLE  JA-2.  WMS  ERROR  FOR  SOLUTIONS  A, 3,  AND  C  VERSUS  DIST 

A’JGLINE  =  0  DEGREES 


DIST 

H  MSA 

amax 

RMSR 

BMAX 

RiMSC 

C  H  A  X 

1 

0.86 JE-01 

O.207E+03 

0. 202E*00 

0.435Ef03 

0.104E+00 

0. 183E  +  03 

2 

0.297F-01 

7.655E+02 

0. 19REr00 

0. 366E+03 

0.439E-01 

0.387Ef02 

4 

0.965E-02 

0. 175E  +  02 

0. 1  79E>00 

O.270E+03 

0.269E-01 

0. 152E4-02 

R 

0. 317E-02 

0. 438E+0 1 

0.1 40E+00 

0. 168E  +  03 

0. 179E-01 

0.683EfOl 

16 

0. 104E-07 

0. 106E+01 

0.941E-01 

0. 660Et02 

0.123E-01 

0.322E*01 

32 

0.329R-0J 

O.  24OE  +  00 

0.553E-01 

0.373Et02 

0.859E-02 

0. 155E+.01 

64 

0.107E-03 

O.S45E-01 

0.286E-01 

0.136E+02 

0.btlE-02 

o.  745E4.00 

128 

0. 228E-04 

0.81 7E-02 

0. I27E-01 

0.428E+01 

0.436E-02 

0.35sEfO0 

256 

0. 101R-04 

0 . 2  0  4  E  -  0  2 

0. 455F  -02 

0. 103E  +  01 

U.283E-02 

0. 174E4.00 

512 

0.524F-05 

0.667E-03 

0. 112R-02 

0. 171E4-00 

0. 141E-02 

0. 930E-01 

1024 

0.51 1R-05 

O.S83E-03 

0. 331E-03 

0. 259E-01 

0.491E-03 

0. 353E-01 

*05 
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raole  JA-2  indicates  that  solution  A  is  the  most  ac¬ 
curate  and  solution  B  is  the  least  accurate,  of  these  three 
solutions . . 

Taole  j A- 1  tabulates  the  RdS  error  and  tne  dAX  error 
for  solutions  A,  a,  and  C  versus  10  lines,  wnicn  nave  dif¬ 
ferent  angles  from  the  X  axis  (AN&).  Each  line  has  a  length 
of  1024  units  and  a  distance  from  the  origin  (DIST)  equal  to 
1,  The  anale  from  the  X  axis  ranges  from  o  to  4b  degrees, 
which  is  sufficient  to  cover  a  line  at  any  aroitrary  angle. 

TABLE  JA-i.  RMS  ERROR  FOR  SOLUTIONS  A , B ,  AND  C 

VERSUS  ANG 
DIST  =  1 


AN  j 

RMSA 

AM  AX 

RMSR 

AX 

RMSC 

CMAX 

0 

0.86  3E-01 

0.207 E +03 

0. 202E+00 

0.435E+03 

0. 104E+00 

0. 1B3E+03 

5 

0.R57E-01 

0.205E+03 

0. 201E  +  00 

0.433E+O3 

0. 105E+00 

0. 185E+03 

10 

0.M44E-01 

O.202E+0J 

0.201E+00 

0.433E+03 

0.105E+00 

0.186 E +03 

15 

0.872E-01 

•)  •  2  o  0  fi + 0  3 

0 . 2  0 1  E  ♦  0  0 

0, 433E+03 

0. 102E+0U 

0.176E+03 

20 

0. 850E-OI 

1.206E+03 

0.201E+00 

0.433E+03 

0, 10SE  +  00 

0. 184E+.03 

25 

0.834E-01 

0. 20OE+03 

0.201F+00 

0.433K +03 

O.IUE  +  OO 

0.2O4E+03 

30 

0.856E-01 

0.205E+03 

0.201E+00 

0.433E+03 

0. 103E  +  00 

0.l78Ef03 

35 

0 , 8  8  7  E  -  0  1 

0.21 3E+03 

0.201E+0U 

0.433E+03 

0. 103E+00 

0.  l7gEf03 

40 

0.866E-01 

0 . 20RE+0  3 

0.201E+00 

0.433E+03 

0.113E+00 

0.208E+03 

45 

0.865E-01 

0.207E+03 

0.201E+00 

0.43JE+03 

0. 107E  +  00 

0 • 1 9 i E  +  0  3 

Taole  ja-1  Indicates  that  the  hms  and  max  error  are 
not  strongly  deoendent  upon  the  lower  bound  angle  (AN;). 
The  worst  case  for  solution  A  is  apDroxlmat ly  15  degrees, 
and  for  solution  C  is  aroroximat ly  40  degrees. 

Another  Important  feature  of  tnese  solutions  is  the 
error  oernenol cu lar  to  the  lower  bound  line.  The  lower 
bound  line  defines  visibility  for  REAL  SCAN,  thus  the  oer- 
oendlcular  error  will  effect  the  visible  scene.  Table  JA-4 
taouiates  tne  averaoe  oeroendi cu  lar  error  (PER)  and  tne  max¬ 
imum  oeroendlcular  error  (Pmax)  tor  solutions  A,  ft,  and  c 
versus  hisr. 
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TABLE  JA-4.  PERPENDT  CULAR  £R  R  DR  6jR  SOLUTIONS  A,H,  AND  C 

VERSUS  D1ST 
A M <J L  l  '••  E  =  45  DEGREES 


oisr 

A  PER 

AP'-' AX 

dPER 

BPMAX 

CPER 

CPmAx 

i 

0, 344E-04 

-  •  ♦  5  8  £  -  0  4 

0. 2276-01 

-.8436+00 

0.2286-04 

-.  3O5E-O4 

2 

0. 10  7E-04 

0. 305E-04 

0.  370E-01 

-. 143E+01 

0. J40E-05 

0.61 OE. 04 

4 

0. 345E-04 

0.5346-04 

0.602E-01 

-.2116+01 

0.285E-05 

0.610E-04 

3 

0.6766-05 

-• 45 RE- 04 

0.935E-01 

-.262E+01 

0. 340E-05 

0.381E-O4 

16 

) .  54  7E-04 

-.9446-04 

0  .  i  3  6  E  +  0  0 

-.2696+01 

0.400E-04 

-.107E-03 

32 

0.9796-04 

0. 126E-03 

0. 1R0E  +  00 

- . 233E+0 1 

0.1246-03 

0.19RE-03 

64 

0. 122F-0 J 

-.1836-03 

0.2106+00 

-. 172E+01 

0.715E-04 

-. 206E-03 

123 

0.  1 816-0 3 

0. 2906-03 

0.2016+00 

-. 104E+01 

0. 391E-04 

0. 19RE-03 

256 

0. 1646-0  3 

0.366E-03 

0. 135E  +  00 

-.4626+00 

0.324E-03 

0 ■ 64 1 E-0  3 

512 

0.20 3 E - 0  3 

0.4276-03 

0. S24E-01 

-. 132E+00 

0. 148E-03 

-.305E-03 

1024 

0  .  30  7 E-0 3 

0.4886-03 

0.1126-01 

-.256E-01 

0. 145E-03 

0.854E.03 

From  Table  JA-4  solutions  A 

and  C  nave 

Similar 

per- 

pendlcular  errors,  and  solution  B  has  the  worst  error.  Note 
that  the  oeroenlicuiar  error  increases  as  the  distance  fron 
tne  origin  increases.  This  indicates  tnat  the  angular  error 
is  close  to  a  constant.  Thus  fron  taoie  ja-4  tne  visibility 
error  Is  nearly  constant. 

Taoie  JA-5  lists  the  Deroeniicular  error  for  solu¬ 
tions  A,  d,  and  C  for  versus  ang,  wltn  QIST  egual  to  1. 

TABLE  JA-5.  PFR°6NDICLU Art  ERROR  FOR  SOLUTIONS  A,B,  AND  C 

VERSUS  ANG 

msT  =  l 


a  vc; 

AR6R 

A  P  M  A  X 

BPER 

BPMAX 

CPER 

C  P  V  A  x 

0 

O.OOOE+OO 

0. 0006  +  00 

0.2276-01 

-.8496+00 

0 . OOOE+OO 

O.OOoEfOO 

5 

0. 306E-05 

-.  381E-05 

0.2276-01 

-.848E+00 

0. 119E-05 

0. 381E-05 

1 0 

0.1446-04 

0. 1546-04 

0.2276-01 

-.8496+00 

0.292E-05 

-.  763E-05 

16 

0. 355E-05 

-.954E-05 

0.2266-01 

-.849E+00 

0.644E-06 

-.763E-05 

20 

0. 17  96-06 

0.7636-05 

0. 2276-01 

848E+00 

0. 100E-05 

0. 153E-04 

25 

0.814E-05 

0. 114E-04 

0.2276-01 

-.  848F  +  00 

0.580E-05 

0. 305E-04 

30 

0.3826-05 

0.1536-04 

0. 2276-01 

-.8486+00 

0.507E-05 

-.  3O5E-O4 

38 

0.2546-04 

-.3056-04 

0.2276-01 

848E  +  0O 

0.497E-05 

-.  153E-04 

40 

0.1046-04 

0.2296-04 

0. 226E-01 

-.8486+00 

0.4036-04 

0.610E-04 

45 

0.3446-04 

-.4586-04 

0.2276-01 

-.  848E  +  00 

0.2286-04 

-.305E-04 
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Taole  ja-5  Indicates  that  the  perpendicular  error  Is 
a  function  of  the  lower  oound  anqle.  Tne  qeneral  trend  Is 
that  the  perpendicular  error  Increases  wltn  lncreaslnq  an- 
qles  uo  to  45  deorees. 

The  final  conclusion  of  these  three  solutions  is  tnat 
solution  A  is  tne  m0st  comoiex ,  and  accurate.  Solution  C  Is 
tne  least  complex  and  more  accurate  tnan  solution  B .  Tnus 
solution  C  is  the  optimum  solution  of  the  three  solutions 
compared  aoove. 

Solution  3  and  0'  are  ootentlalv  more  accurate  tnan 
solution  C.  Tne  rest  of  this  appendix  will  compare  the  ac¬ 
curacy  of  solutions  0,  C.  and  0' 

raole  JA-6  tabulates  the  results  of  a  search  for 
SCALE  (witnin  t/tOnO),  which  yields  a  minimum  RMS  error  for 
solution  i)  versus  ill  ST. 

TABLE  JA-6.  OPTIMUM  VALUE  OF  SCALE  VERSUS  LIST 
AMGLIME  *  0  DEGREES 


Disr 

SCALE 

RMSD 

UMAX 

i 

0.174 

0.307E-01 

0.543E+02 

2 

0.234 

0. 170E-01 

0. 329E+02 

4 

o.32« 

0.852E-02 

U.161E+02 

8 

0.403 

0. 361E-02 

0.562E+01 

16 

0.456 

0. 134E-02 

0. 161F+01 

32 

0.485 

0.455E-U3 

0. 397E+00 

6  4 

0.489 

0. 143E-U3 

0.352E-01 

l?d 

0.497 

0.304E-04 

0. 136E-01 

256 

0.449 

0.77RE-05 

0. 222E-02 

512 

0.501 

0. 305E-05 

-. 423E-03 

102  1 

0.604 

0. 368E-05 

-.549E-03 

From  table  Ja-6  SCALE  ranqes  from  .174  to  .504  (ap¬ 
proximate  .5).  Tables  JA-6  and  JA-2  indicate  that  solution 
D  Is  the  ^ost  accurate  solution! 

Taole  JA-7  tanuiates  the  »ms  error  for  solution  D  a$ 
a  function  of  scale  aooroximatlons.  Scale  is  approximated 
by  tne  closet  binary  eTuivaient,  witn  a  olven  numper  of 
olts.  Tn  tabLe  .JA-7  the  numoer  of  Pits  vary  from  l  to  6. 
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. J A  —  7  .  R‘<S  ERROR  KOP  SOuUTlON 
/EPS'JS  SCALE  APPROXIMATIONS 
AN(JM  JE  =  0  DEGREES 


! 


1 


> 

> 

> 

► 


Disr 

1 

NiHPEP 

7 

OF  6IT5  FOR  SCALE 

3  4 

1 

).  104E+00 

0. 3986-01 

0. 355E-01 

0.312E-01 

2 

0. 439F-01 

7.1726-01 

0. 172E-01 

0. 172E-01 

4 

9. 154F-01 

0. 1O2E-01 

0. 928E-02 

0.859E-02 

a 

0.5316-02 

0. 5316-02 

0. 386E-02 

0.3866-02 

16 

0. 180F-02 

0.1 80E-02 

0. 180E-02 

0.144E-02 

32 

0. 579E-0 3 

0.57  36-03 

0. 579E-03 

0.579E-03 

b4 

9. 17  36-03 

0.173E-03 

0. 173E-03 

0. 1736-03 

128 

0. 372E-04 

7.3726-04 

0. 3726-04 

0.372E-04 

256 

0. 1 17E-04 

0.117E-04 

0.117E-04 

0.117E-04 

512 

0. 551E-05 

0. 5516-05 

0.551 E- 05 

0. 551E-05 

1024 

0.5526-05 

0.557E-05 

0.552E-05 

0.S52E-05 

TMas  from  Tanle  JA-7  a  safe  number  of 
lmate  scale  is  Mo.  Table  JA-R  compares  the 
tne  a  A  X  error  of  solutions  D,  C,  and  l>'. 

TARLF  JA-R,  RMS  ERROR  FOR  SOLUTIONS  D,C 

VERSUS  OIST 

ANGMNE  =  0  DEGREES 


DIST 

RMSD 

PMfiX 

HMSC 

CM  A  X 

1 

0.  307E-01 

0.543E+02 

0. 1046  +  00 

0. 163E  +  03 

2 

0. 1706-01 

0. 3296+02 

0.439E-01 

0. 3876  +  02 

4 

0.8526-02 

0.1616+02 

0.268E-01 

0, 152E  +  02 

9 

0. 361E-02 

0.5626+01 

0.1796-01 

U.683E+01 

1  0 

0.1  3  46-02 

0.1616+01 

0.1236-01 

0. 322E  +  01 

32 

0.4556-0  3 

0. 3976+00 

0.8596-02 

0, 155E  +  01 

64 

O.143E-03 

0.8576-01 

0.6116-02 

0.7456+00 

128 

0.  3046-04 

0.1366-01 

0.4366-02 

0. 356E  +  00 

256 

0. 7786-05 

0.2276-0? 

0.2836-02 

0. 174E  +  00 

512 

0. 3056-05 

0.4236-03 

0, 1 41E-02 

0.93uE-0l 

1024 

0. 3636-05 

0.5496-03 

0.4916-03 

0. 3536-01 

n 


5  6 


0.3126-01  0.30RE.01 
0.172E-01  0.171E-01 
0.859E-02  0.854E-02 
0.36JE-02  0.363E-02 
0.139E-02  0.135E-02 
0.579E-03  0.462E.03 
0.173E-03  0.167E.03 
0.372E-04  0.372E-04 
0.117E-04  0.117E.04 
0.551E-0S  0.551E.05 
0.552E-05  0.5526.05 


olts  to  aDprox- 
rms  error  am 


,  AND  D' 


WMSD.5  D.SMftX 


0.8716-01  0.2l7E  +  <>3 
0.40bE-0l  0.900E4-02 
0.1546-01  0. 279 E >02 
0.5316-02  0.739E4.01 
0.180E-02  O.I83E+OI 
0.5796-03  0.422E+00 
0.173E-03  O.887E-OI 
0.3726-04  0.133E.01 
0.U7E-04  0.259F-02 
0 . 55 1 £-05  0.699E-03 
0.5526-05  0.613E-03 
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Taole  JA-8  Indicates  that  solution  o  yields  the  least 
rms  error,  and  solution  C  yields  the  most  R^S  error  of  these 
three  solutions.  Table  JA-9  taDulates  the  oeroendicuiar 
error  for  solutions  D,  C,  and  D'  versus  DIST,  whit  ANG  equal 
to  45  deqrees. 

TA5LE  JA-9.  PERPENDICULAR  ERROR  FOR  SOLUTIONS  D,C,  AND  D' 

VERSUS  0 1  ST 
AMGLINE  s  45  DEGREES 


DIST  DPER 


0  P  v  A  X 


CPFR 


CP^  A  X 


0.5PER  D.SPviAX 


16  0 
32  0 
64  0 
128  0 
25b  0 
512  0 
1024  0 


1  9  7 E* 
269E« 

2  3  8  E* 
605E- 

3  1  5E« 
856E- 
299E- 
21  3E- 
64SE* 
14  2E- 
235E* 


04  - 
04  - 
05  - 
04  0 
04  - 
04  - 
04  - 
0  3  0 
0  4  ) 
03  0 
0  3  ) 


. 305E-04 
.  610E-04 
.  381E-04 
.  916E-04 
.496E-04 
.  1  68E-03 
.  9 1 bE-04 
.427E-03 
.214E-03 
.  3  0  5  E  -  0  3 
.366E-03 


0. 226E 
1. J40E 
0.285E 
0. 340E 
0.400E 
0. 124E 
0.715E 
0. 391E 
0. 324E 
0. 14BE 
0. 145E 


-04  - 

-05  0 
-05  0 
-05  0 

-04  - 

-03  0 
-04  - 
-04  0 
-03  0 
-03  - 
-03  0 


.  305E- 
•  6 1  0E> 
.  b  1  OE* 
.  381E- 
. 107E- 
.198E- 
. 20bE< 
. 198E* 
. 64 1 E ■ 
. J05E- 
.654E- 


04  0. 
04  0. 
04  0. 
04  0. 
0  3  0. 
03  0. 
03  0. 
03  0. 
03  0. 
0  3  0. 
03  0. 


163E 
132E 
1  37E 
672E 
279E 
143E 
384E 
286E 
190E 
1  9 1  E 
327E 


-04  - 
-05  - 
-04  - 

-05  0 

-04  - 

-03  0 
-04  - 
-03  0 
-03  0 
-03  0 
-03  0 


•  2  2  9E-0  4 
. 153E-04 
. 38 l E-0  4 
. 107E-03 
. 687E-O4 
.183E-03 
.122E-03 
.412E-03 
.397E-03 
.427E.03 
.4R8E-03 


Table  JA-9  Indicates  that  solutions  D ,  C,  and  D» 
yield  slminar  oeroendicuiar  errors,  one  would  exoect  solu¬ 
tion  0  to  be  more  accurate  tnan  solution  z  or  O'.  The  rea¬ 
son  why  solution  0  is  not  more  accurate  in  Table  JA-9  Is 
tnat  SCALE  was  selected  for  to  mlnlmlie  tne  R«s  error  not 
the  oeroendicuiar  error. 

Taole  JA-lo  tabulates  the  perpendicular  error  for  so¬ 
lutions  0,  c.  and  D *  versus  ANG  with  DIST  equal  to  1024. 
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MAGE  JA-10.  PgKPK-lDJClILAR  ERRJR  FOR  S JLJTI  (IMS  0 ,  C ,  AN  0  0  ' 

\/  F.  R  S  U  S  ArtG 

01  ST  =  1  024  SCALE  =  .504 


AnG 

DPe’R 

O  P  M  A  X 

C  R  F  R 

CP  d  A  X 

0.5PER 

0. 5PRAX 

0 

0. 000F  +  00 

o.oooe+oo 

0. 1 47E-01 

-. 209E-01 

0 .  OOOE  +  OO 

O.OOoE+OO 

5 

0. 192C.03 

-.  153E-02 

0. 100E-01 

-.240E-01 

0. 351E-03 

-.1 1 0  E - 0  2 

1  0 

').  132E-02 

- .  2  8  )  E  -  0  2 

0. 1 17E-01 

-.249E-01 

0. 147E-02 

-.299E-02 

15 

0.11  4  f - 0  2 

n.  20HI:  -02 

0 . 1 0  4  E  -  0 1 

-.230E-01 

0.47BE-03 

0.110E-02 

20 

0.521E-03 

-.  1  10F-02 

0. 103E-01 

-  .  2  3 1 E  -  0 1 

0.389E-03 

-.732E-03 

25 

'■O 

o 

I 

vC 

fTS 

r* 

• 

-.  i  ioe-02 

0.113E-01 

-.237E-01 

0.564E-03 

-. 128E-02 

30 

0.  3  7  nE-0  3 

0.732E-03 

0.108E-01 

-. 240E-01 

0.21 3E-0J 

-.732E-03 

35 

0.568E-0 J 

-. 134E-02 

0.448E-02 

-.222E-01 

0.586E-03 

0. UoE-02 

40 

0 . 6  7  4  E  -  0  3 

0 . 1 46K-0  2 

n .  1 1 1 E-01 

-. 243E-01 

0.613E-03 

0. 122E-02 

4  5 

o 

1 

O 

m 

• 

O 

0.48RE-03 

0.112E-01 

-.256E-01 

0.145E-03 

0. 954E-03 

As  expected  Table  JA-10  Indicates  that  solution  D  is 
tne  most  accurate  and  solution  C  is  the  least  accurate. 

Thus  tne  final  conclusion  of  this  appendix  is  tnat 
solution  i)  is  tne  most  accurate  given  tne  appropriate  scale. 
And  that  solution  D'  is  more  accurate  than  solution  C. 
Taole  J  A  - 1  Indicates  tnat  solution  D  requires  2  more  multi¬ 
plies  and  adds  than  solution  C,  and  solution  D '  only  re¬ 
quires  2  more  soifts  and  adds  than  solution  C.  Tnus  the  op¬ 
timum  solutions  are  solutions  C  and  D',  C  because  it  is 
simoiiiest  and  n'  because  it  is  generally  more  accurate. 
However,  the  projection  accuracy,  from  SECTION  ill  of  tnls 
reoort,  is  three  fractional  bits.  Thus,  if  the  maximum  per¬ 
pendicular  error  is  less  than  .120  for  a  solution,  then  tnat 
solution  meets  the  accuracy  requirements.  Thus  the  final 
recomedation  of  this  appendix  is  that  solution  C  is  accurate 
enouih  and  therefore  C  is  tne  optimum  solution. 

The  value  of  scale  used  for  solution  0  in  Tables 
JA-R,  JA-R,  and  jA-lo  is  tne  appropriate  value  found  in 
Taole  JA-2.  The  fortran  code  which  created  the  data  for 
Taoles  JA-2  tnrounh  JA-10  are  listed  in  appendices  .Jc 
through  JH. 
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APPENDIX  JB 
LOWER. FOR 


C  THIS  R 0  J T I N E  COMPARES  TRE  SOLUTIONS  OP  APPENDIX  J 
C  FOR  ACCURACY.  SEE  APPENDIX  J  OF  THE  1982  REAL  SCAN 
C  REP1RT  FOR  A  MATH  DESCRIPTION  Of  THE  SOLUTIONS. 

SUBROUTINE  LOWER 
CaMMnri/L3NF:R/ANGLIN£,niST,SCALE 
CQMMON/R MS/RMS A, « MSB, RMSC#RMSD 
COMMON /PER /A  PER, BPER,CPER ,DPER 
Common/rmsmax/amax.bmax , CM AX, DM  AX 
CJMMON/PERmAX/APM ax,bp^ax,cpmax,upmax 
REAL* 8  EX,EY,TERME,XR,YR, TRET A, ANGLE 

C  COMPUTE  THE  START  AND  END  POINT  OF  THE  LINE 
AJGLE  s  3.14159*ANGLXNE/lbO. 

C  s  DCOS(ANGLE) 

S  =  DS IN (ANGLE) 

X)  =  -  5  *  0  I  ST 

Y)  s  C  *  0 1 S  T 
X  =  C  *  5 1  2 

Y  =  S  *  5  1  2 
XS  =  XO  +  X 
XE  =  XO  -  X 

Y  S  =  Y  0  f  Y 
YE  =  YO  -  Y 

C  COMPUTE  ANGLES  TO  START  AND  END  POINTS  ANGS  AND  ANGE 
ANGS  =  ATAN?(YS,XS) 

IF(  ANGS.LT.O)  A,NGS  =  ANGS*6.28  318 
A  vGE  =  A T A U ? ( Y E , X E ) 

IE( ANGE. LT.O)  ANGE=ANGEe6. 2b 31 8 
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C  COMPUTE  AMG  FIR  RiiUMBER  ITTFRATlONS 
PLUMPER  =  3000 
A^G  =  UNGE  -  AiiSS) 

IF(ABS(AMG).GT,3.14159)  A«G=ANG-& . 2 8 3 1 8 
A  «IG  =  ANG/R\iU«Bt:R 

C  COMPUTE  CONSTANTS  FOR  THE  SOLUTIONS 
RK1  s  XE  -  XS 
R<2  =  YE  -  YS 
RK  s  R  K  2  *  X  S  -  R K 1  * Y S 
A JGK  =  ANG/RK 
RKXs  RKt*ANGK 
R  X  Y  =  R  K  2  *  A  M  G  K 

C  INITIALIZE  ALL  POINTS  TO  XS,YS 
THETA  =  > 

AXOLO  =  XS 
A  YOLO  =  YS 
9  X  0  L  0  =  XS 
B  Y  0  L  0  =  YS 
CXOLP  =  XS 
C YOLO  =  YS 

TSRMD  =  (XS**2  +  YS**2) 

OOX  s  PKX*TFRMf) 

DO Y  s  RKY^TFRMO 
P<  =  XS 
DY  =  YS 
EXOLO  =  XS 
EYOLD  =  YS 
AYGA  =  ') 

a;gh  =  0 
A/GC  =  o 
A  J GO  =  ) 

C  =  r-COS(-A  JGLE) 

S  S  DSl J(-AnGLE) 

A PER  =  0 
BPER  =  0 
CPE  R  =  •) 

OPER  =  0 
A  '*  A  <  =  0 
B  1 A  X  =  0 
C-UX  =  0 
D  A  A  X  =  0 
A  PM  AX  =  0 


on  n  n  no 


i 


:c 


re 
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BP*AX  =  0 
CPMAX  a  0 
DPMAX  =  0 

COMPUTE  SOLUTIONS  (AX, AY),  { BX , b Y )  ,  (CX,CY),  (OX,OY)  , 
AMO  EXACT  ( FX , EY  ) 

NJMBFRl  a  rmuyhfk 
no  100  ICOU-IT  =  1,MU«BER1 

SOLUTION  A  (AX, AY) 

TER  M  A  =(AX0LD**2  t  AYQLD*  *2 ) * 

*  (1  ♦  AMCK*(RK1*AX0L04-RK2*AY0LD)  ) 

AX  a  AXOLD  ♦  RKX*TFKYA 
AY  a  A  Y  0  L  0  +  RKY*TERMA 

SOLUTION  B  ( 8X , BY  ) 

T5RMR  a  l  +  A  NGK  * ( R  K 1  *  BX  OLD  ♦  RK2*BYOLD) 

BX  a  (RXOLD  -  ANG*B YOLD) *TERMB 
BY  a  (ANG*RXOLO  ♦  BY0LD)*1’FRMB 

APPROXHATF  SOLUTION  (SOLUTION  C) 
ie. (DROP  ALL  ANG**2  TFRMS) 

TERMC  =  (CXOLD**2  ♦  CY0L0**2 ) 

CX  a  CXOLD  +  RKX*TERMC 
CY  a  CYOLO  +  RKY^TERMC 

C  SOLUTION  0  (DX,DY) 

TERJIDs(OX  +  0DX*SCALE)**2  +  (OY  +  DDY*SCALE) **2 
DDX  a  RKX*TFRMD 
DOY  =  RKY*TEKMD 
DX  a  OX  +  DDX ' 

DY  a  (>Y  ♦  OOY 

C  COMPUTE  THF  EXACT  SOLUTION  ( FX , EY ) 

THETA  a  THETA  t  A  Nf, 

X  R  a  OCOS(THETA)  *FXOL[>  -  OSIN (THETA ) *EYOLD 
Y  R  a  i)S  I N  (  THFT  A )  *EX OLD  +  uCOS  (  Trt  E  T  A  )  *  E  Y OLD 
TERM E  =  RK/(RK2*XR  -  R K 1  * Y R ) 

EX  a  X  R  *  T  E  R  Y  E 
EY  a  Y  R  *  T  E  R  Y  E 

C  UPDATE  )LD  POINTS  TO  MEN  POINTS 
AXOLD  =  AX 
AYOLD  a  Ay 


« 


61S 


o  n  n  n  n 
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BXOLD  =  BX 

byold  s  ay 

CXOLD  =  CX 
CyOLD  S  C Y 


FIND  SU 4  OF 

(  ERROR ) *  *  2 

AERR 

s 

(AX  - 

EX)**2 

♦ 

(AY  -  EY)**2 

A  VGA 

s 

A  VGA 

♦  AERR 

BERR 

s 

(BX  - 

EX  )  *  *  2 

♦ 

(BY  -  EY)**2 

AVGB 

5 

avgb 

♦  BERR 

CERR 

s 

(CX  - 

EX)**2 

♦ 

(CY  -  EY)**2 

AVGC 

s 

AVGC 

♦  CERR 

DERR 

s 

(OX  - 

FX) **2 

♦ 

OY  -  EY)**2 

AVGD 

s 

A  VGD 

+  DERR 

C  FIJO  MAX  ERROR  DISTANCE  FROM  THE  EXACT  POINT 
IFfAERR.  GT.  AMAX)  AMAX  =  AfcRR 
IF(BERR  .GT.  R  M  A  X  )  BMAX  s  BERR 
I F ( CERR  .GT.  CM A X )  CMAX  s  CfcRH 
I F ( DERR  .GT.  DMAX)  DMAX  s  DERR 

F I  'ID  THE  ERROR  IN  THE  DIRECTION  WHICH  IS  PERPENDICULAR 
TO  THE  LOWER  OlJNl)  LINE.  THIS  IS  ACCOMPLISHED  rtY 
ROTATING  THE  ME.  SOLUTIONS  FRRDR  bY  -AN3S.  THE 
PERPENDICULAR  ERROR  WILL  BE  THE  Y  COMPONENT  OF 
THE  NEW  POINT  ROTATED  BY  -ANG  MINUS  THE  Y  INTERCEPT. 


AA  =  S  *  A  X  ♦  C* AY  -  DIST 
HO  s  S*AX  ♦  C*BY  -  DIST 
CC  =  S*CX  ♦  C*CY  -  DIST 
l) i)  =  S*DX  ♦  C*DY  -  oisr 

C  ACCUMULATE  THE  bERPF nDICULAR  ERROR 
APER  =  ApER  ♦  AHS(AA) 

B  PE  R  =  H  PER  ♦  ABS(BH) 

CHER  =  CPER  ♦  AHS(CC) 

DPER  s  1PEK  ♦  AHS(UD) 

C  FIND  MAXIMUM  PERPENDICULAR  ERROR 

IF(ABS( AA) .GT. ABS( APHAX) )  APMAX  =  AA 
TF(ARS(BH).GT.APS(BPMAX))  BPMAX  =  BB 
IF( ABS(CC) .GT. AHS(CPPAX) )  CP*AX  =  CC 
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! 


n 


I  F  ( 

A  BS  ( 

DO) .GT. 1 

US(DP 

MAX) 

)  DP 

II 

X 

< 

y. 

100 

C  JN 

TINl! 

E 

C  FIND 

RMS 

OF  K 

RROR 

RMS  A  = 

S  3RTC 

A  V  G  A 

)/RN 

UMBER 

RMSR  = 

S  )RT( 

A  VGB 

)/RN 

UMBER 

RmSC  = 

S  0  R  T  ( 

AVGC 

)/RN 

UMBER 

RMSD  = 

SORT  ( 

AVGQ 

)/Rl4 

UMBER 

C  AVERAGE  THE  PERPENDICULAR  ERRORS 

APER  =  APER/RNUMBER 
BPER  =  BPER/RNUMBER 

CPER  s  c°er/rnu«ber 
OPER  =  oper/rnumber 

C  TAKE  THE  SQUARE  ROOT  OF  THE  ERRUR 


A  4AX 

s 

SQRTC AMAX ) 

B  4AX 

s 

SQRT(BMAX) 

C  M  A  X 

- 

SQRT(CMAX) 

UMAX 

• 

SQRT(l).MAX) 

RETURN 

END 
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i 
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L3WDIST.F0R 


C  LOWDIST.FOR  2/20/82 

C  THIS  ROUTINE  TABULATES  THE  DATA  FDR  SOLUTIONS  A ,  B ,  AND  C. 

C  THIS  DATA  IS  THE  AVERAGE  RMS  ERROR,  THE  MAXIMUM  RMS 
C  ERROR,  THE  AVERAGE  PERPENDICULAR  ERROR,  AND  THE  MAXIMUM 
C  PERPENDICULAR  ERROR  VERSUS  THE  LINE  INTERCEPT  DIST. 

COMMON/L0wER/ANGLINE,DIST,SCALE 

common/rms/rmsa,rmss,rmsc,rmsd 

C)MMON/PER/APER,BPER,CPER,DPER 

C0MM0N/RMSMAX/AmAX,3MAX,CMAX,DMAX 

COMMON/PERMAX/APMAX,BPMAX,CPMAX,DPMAX 

TlfPE*, 'INPUT  ANGLINS' 

ACCEPT*, ANGLINE 

WRITE (15,*)  'ANGLINE  s',  ANGLINE 
TYPE*, 'INPUT  TYPE:  RMS  (0)  PER  CD' 

ACCEPT*, ITYPE 

IF(  ITYPE  .  ED . 0 )  THEN 

WRITE(15,*) , 'DIST  RM S A  AMAX  RMSB  BM AX  RMSC  CMAX  ' 
ELSE 

WRITE(15,*),'DIST  APER  APMAX  BPER  3PM AX  CPER  CPMAX' 
ENDIF 


DO  500  J  =  1,11 
DIST  =  2**(v)-l) 

If  s  DIST 
CALL  LOWER 

IF( ITYPE  . E  Q • 0 )  THEN 

WRITFC15, 1000)  I Y, RMS A, A M AX , R MS B , BM AX , RMSC , CM AX 
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Et,SE 

MITKCIS,  1000)  JY,APER,AP"/'AX,BPtR,BPMAX,CPEH,CP^AX 

E  *  0 1 F 

CJMTI.'WE 


joo 

♦ 


F  )R  M  A  T  (  *  14, 1  X,E9.  3,  1  X  ,c.9.3, 1  X,S9.  3, 1X,E9.  3, 

1*,F9.3,1X,F9.  i) 

F4D 


b  20 


1 
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APPENDIX  JD 
LOwANG.FQR 


C  LOWANG.FQR  2/20/82 

C  THIS  ROUTINE  FINDS  THE  RMS/PERPENDICULAR  ERROR  FOR 
C  SOLUTIONSC  OF  APPENDIX  J.  VS.  ANY  LINE  ROTATED  10 
C  TIMES  AT  AN  ANGLE  OF  5  C  5  DEGREES  PER  ROTATION. 

C  THUS  THE  LINES  RANGE  FROM  FROM  0  TOC  45  DEGREES. 

CJMMON/LOWER/ANGLINE.DI ST, SCALE 
C0MM0N/RMS/RM.SA,RMS8,RMSCf  RMSD 
C3MM0N/PER/APER,BPER,CPER,DPER 
C3MM0N/RMsMAX/AMAX,BMAX,CMAX,DMAX 
COMMON/PERM AX/ APM AX ,BPM AX ,CPM AX ,DPM AX 

TYPE*, 'WHICH  TYPE  OF  ERROR  DO  YOU  WANT  RMS-O,  PER-1 ' 
ACCEPT*, ITYPE 

TYPE*,'  INPUT  THE  DISTANCE  TO  THE  LINE  ' 

ACCEPT*, OIST 

WRITEC15,*)  'DIST  a  ',DIST 
I F ( I  TYPE  . EQ . 0 )  THEN 

WRITE(15,*) , 'ANGLE  RMS A  AMAX  RMSB  BMAX  RMSC  CMAX  ' 
ELSE 

WRITEtlS,*) , 'ANGLE  APER  A P M A X  3PER  BPMAX  CPER  CPmAx' 
ENDIF 

TYPE*, 'INPUT  RANGE  OF  ANGLES  FOR  IANG' 

ACCEPT*, IRANGE 
INC  =  I  RAnGFJ/9 

D)  100  IANG  a  0, IRANGE, INC 
ANGLINE  a  I  ANG 
CALL  LOWER 

IF( I  TYPE  . EQ • 0 )  THEN 
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1 


R 


#*<I  rt(  15, 1  OOO)  IAMG,RMSA,A'U  >  ,r«sb,bmax,rmsc,cmax 
fuss 

"  R  T  Tf  Cl  5, 1000)  I  A*;G,APKR,  AP4AX,  -.iP£P,BP*<AX,CPKH,CPMAx 

F  JOIF 

loo  cjsri*4UK 

1000  F3R1ATC*  # 1 3 , 1 X , GR . 3 , 1 X , G9 . i , 1 X , EQ . 3 , 1 X , E9 . 3 , 1 X , 

*  P4.),1XVE9.3) 


KJD 


} 

I 

3 

i 


*  i 


i 


h 


-  1 


*>2? 


onnnn 
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APPENDIX  Jfc 
UOWDDISI.FOR 


U)WUTST.F)R  2/ 20/fl? 

r-II.S  ROUTINE  f AmULATES  the  data  for  SJLUTIONS  A,G,  and  c . 

THIS  DATA  IS  THE  AVERAGE  RMS  ERROR,  THE  MAXIMUM  RmS 
ERROR,  THE  AVERAGE  PERPEND  I  ClILAR  ERROR ,  AND  THE  MAXIMUM 
PERPENDICULAR  ERROR  VERSUS  THE  LINE  INTERCEPT  DIST. 

COM  mo  >1/ LOWER/ A  NGL I NE,  DIST,  SCALE 

C JM  On/RMS/PMSA,RMS'1,RMSC,RMSU 

COMMO  'i/PER  /  APER  ,  8  PER  ,CPER  ,  DPEK 
CO  MO  J/RMSMAX/AMAX,rtMAX,CSAX,DMAX 
CJMM0N/PERMAX/APUAX,8PMAX,CPMAX»0PMAX 
DIMENSION  VSCALE(lt) 

nATA  VSCA[,E/.  17  4  ,  .  2  34,.  3  2  b,  .403,  .456,  .48  5,  .489,  .457, 

*  . 499, .501 , .504/ 

TYPE*  ,'  INPUT  ANGUINE' 

ACCEPT*,  A’iGMnE 

WRI TF ( 1 5 , *  )  'ANGUINE  s',  A  N  G  L I N  E 
TYPE*, 'INPUT  TYPE:  R"S  CO)  PER  (1)' 

ACCEPT* , ITYPE 
IECITYPE  .EO.O)  THEn 

*RITF(15,*)  ,  'DIST  RMSD  D M A X  RMSC  CMAX  rMSD.5  D.5mAx  ' 
EUSE 

WRITEC15,*) , 'HIST  OPER  DPMAX  CPER  CPMAX  u.5Pc.R  D.5pM*X' 
ENOIF 


0  )  600  J  =  1,11 

DIST  s  2**  C  ,1-1  ) 
IY  =  DIST 
S  C  A  U  E  =  .5 


MAV  fKA  F!tj  ij  IPCEN  ftO-n-OL»14-2 


!  CALI,  Lrlv‘?-J 

nrims  =  r  •  s o 

t>  ft  K  =  Jv.AX 
POPE*  = 

DOP'IAX  =  OP*AX 

^  scale  =  tfSCALK(J) 

CALL  LCHEP 

IFC1TYPE  .  E  0 , 0  )  THE-'J 

"RTTKOS,  lOOO)  IY,RMSD,OmaX,R^SC,CMAX,OPRMS,DOMAX 
._  ELSE 

1  *PITE(  1  5,  1  POO)  IY,0PKR,DP  1 A X , CPER , C PM  A  X , OpPER , D DP M A  X 

E  i  r>  i  f 

500  CINTI^I'E 


1  000  F  3  R  M  A  T  ( 0  ',l4,lX,£9.3,lX,b9.3,lX,E9.3,lX,E9.3, 
♦  1 X,E9.  i. IX, E >.  i) 

END 


P 


h 


i 


i 


» 
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{ 
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APPENDIX  JE 
LOwDANG.FOR 


\ 

L0NOANG.F0R  2/2n/b2 

THIS  ROUTINE  FINOS  THE  RMS/PERPtNDICULAR  ERROR  FOR 
SOLUTIONC  f  AND  SOLUTION  0  AND  O',  OF  APPENDIX  J. 

VS.  ANY  LINE  ROTATED  10  TIMES  A I  AN  ANGLE  OF  b  A 
CONSTANT  NUMBER  OF  DEGREES  PER  ROTATION. 

CD'MON/LOaiER/ANGLINE,DI  ST,  SCALE 
C 3MMDN /RMS/p MSA, RMSR , RMSC , RMSD 
C J *M0N/P£r/aPFR,8P£R,CPER,DPFR 

C  immon/rmsmax/Amax,hmax,c*ax,Dmax 

CO^MON/PERMAX/APMAXfBPMAX.CPMAXfDPMAX 
J  ^  DIMENSION  VSCALEC11) 

data  VSCAlE/. 174, .234, .328, .403, .455, .485, .489, .497 
*  . 499, .5)1 , .504/ 

TYPE*. '  N  H I C  H  TYPE  OF  FRROK  00  YOU  WANT  RMS-O,  PER-1 
ACCEPT* , I  TYPE 

TYPE*,'  INPUT  THE  Y  INTERCEPT  (*ORST  CASE  =  1)' 
ACCEPT* ,DIST 

J  =  L0G(DtST)/L0G(2. )  ♦  1 
SCALE  =  VSCALECJI 

WRITFC1S,*)  'DIST  s  ',OIST, 'SCALE  =', SCALE 
IECITYPE  . F  0 . 0 )  THEN 

WRTTEC 1  b  ,*), 'ANGLE  RMSD  <HAX  RMSC  CMAX  kMSD.5  D. 

else 

WRITE  (15,*), 'ANGLE  DPER  DP'HA  CPER  CP4AX  D.5PER  D. 
E  J  D I  F 

TYPE*  ,  '  I  4 P II  T  RANGE  OF  ANGLES  FC’K  I ANG ' 

ACCEPT*, I  RANG F 
INC  s  IRA-.GF/9 
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SPmAX' 
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D)  100  [A-mG  =  0,IRANGL,INC 
AJGLINE  s  IA*G 

SCALE  =  .5 
CALL  LOWER 

R 4SDD  =  RMSn 
!)  )M  A  X  =  Dm  AX 
DOPER  =  DPEP 
ODP^AX  =  D  P  M  A  X 

SCALE  =  VSCALECJ) 

CALL  LDa/ER 

tPdTYPB  .EQ.O)  THEN 

WRITE  (15, 1000)  IAOG,««SD,DMAX,R''.SC,CMAX,MS0D,DDMAX 

else 

WRITE  (15, 1000)  I  AMG,DPER  ,  DP  MAX,  CPER,CP^AX,  OQPER,DdP*Ax 
E  W  D  I F 
C  )  V  T I  *J  U  E 

F-jRofA  TC  '  '13, 1X,E9. 3,  lX,E9.i,  1X,E9. 3,  lX,E9.i,  IX, 

EO. 3, IX, 09. 3) 


U  U  O  U  (J  u  u  u  u  u 
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APPENDIX  JS 
LORSCALE. FOR 


LOWSCALE.KQR  2/20/H2 

HIS  ROUTINE  COMPUTES  THE  VALUE  OK  SCALE  wHICH 
MINIMIZES  THE  RMS  ERROR  FOR  SOLUTION  D.  SOLUTION 
0  IS  THE  SAME  AS  SOLUTION  C  EXCEPT  THAT  SOLUTION 
0  USES  A  'I  APPROXIMATION  FOR  THE  NEW  X,Y  TO  FIND 
THE  HER  X,Y.  THIS  GUESS  IS  A  VALUE  OK  SCALE 
RHICH  YIELDS  HE  LEAST  RMS  ERROR. 

(NOTE  0  <  SCALE  <  1.) 

C  UMMON/ LOw KP/ANGLINE,DI5'r,  SCALE 
COMMOV/R4$/RMSA,RMSB,RMSC,RMSD 
C  O'*  m  ON  /  PER /A  PER,  ft  PER,  CPE  R,D  PER 
CriMON/RMSMAX/AMAX,BMAX,C'v'AX,D^AX 
cohmon/°ermax/apmax,bpmax,crmax,dpmax 
dimension  nciooo) 

WRirFClS,*)  '  DIST  SCALE  RMSD  DM 

TYPE*, 'I NpUT  ANGLINE' 

ACCEPT* , A  iGLHE 

wRITE( 1 5. *)  #  A NG LINES' , ANGLINE 
DO  bOO  J  =  1,11 
DIST  =  2 ♦* ( J~ 1 ) 

Dll  V  =  l  0  0  0  0  0  0  . 

SAVE  =  ') 

DELSCALE  =  l./lOOO. 

scale  =  U 


LOAD  D  *ITH  P-IS  ERRORS  FOR  1000  DIFFERENT  SCALES 
SINCE  SCALE  RANGES  FROM  0  TO  1  EH 
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100 


200 

500 

1000 


o  )  ion  r  =  1,1 00  0 

SCALE  5  SCALE  ♦  OEL SCALE 
CALL  L'JaER 
0(11  =  MSD 

C  J  V  T I  A  L  E 

0  )  20  0  I  =  1,10  0  0 
IE  0(1)  .LT.OMlN)  THEN 
OmIn  =  0(1) 

SAVE  =  I 

f:  <i  0 1 F 
CONTI-JUE 


SCALE  =  SAVE/1000. 

CALL  LOVER 

WRITE  (15, 1000)  0 1  ST,  SC  ALE,  MSI),  DM  AX 
C  )NTI  VUE 

FORMAT (  '  ',F5.0,5X,F5.3,2X,E9.3,2X,E9. 3,2X,E9.3,?X,E 

E  VO 


9.3) 


% 


r 
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APPENDIX  JH 

;  L0*hITS.EJR 


1 

C  LOWRirS.Fnk  2/20/R2 

C  THIS  ROUTINE  TABULATES  DIFFERENT  VALUES 
C  OF  SCALP  VS.  ME  (HR  ERROR  DF  SOLUTION  0  TO 
C  TH£  LOWER  B J U  i 0  PROBLEM  EACH  VALUE  JF  SCALE 
C  USED  HERE  IS  AS  CLOSE  TO  THE  BEST  VALUE  OF 
'  C  SCALE  (FOUND  FRnM  LOWSCA  LF .  FOR  )  WITH  THE 

C  OIVEN  N  JM  BFR  OF  BITS. 

CO'MON/L0wFp/ANGLINE,DISr,SCALF 

C0H«0g/R-(S/PMSA,RRS9,RMSC»RMSL) 

C0MMnN/pEQ/APER,9PER,CPER,DPE« 

CJ'MON/R'lSuAX/ANAX,HMAX,C'-’.AX,iHAX 

3  COMSON/OSRHAX/APMAX,HPV!6X,CP'<AX,DP*AX 

DMEA'SIH  VSCALEU  1 )  ,MS(o) 

DATA  VSCALE/. 174, .234, .32*, .403#. 456, .485, .4*9, .497, 
*  .  49Q,  .sol  ,  .VJ4/ 

_  WRITE  (IS, lOO'J) 

2  W  R  t  T  E  (  1  5 , 2  0  0  0  ) 

WRITF  (IS,  HoO) 
wRITF (15# IS HO) 

AjGLInF  =  0 

nj  soo  j  =  1,11 
ntsr=2**(J-i) 

T  (  =  [)I  ST 

U  J  100  HITS  =  1,6 

R  '■>  [ )  a  E  w  =  2**(JBITS) 

HITS  =  EPOWER* VSCALt ( J )  ♦  .6 
(«ITS  s  IHTS 

3CME  =  (1.*IPITS1/RP0WER 
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I 


1 


100 

500 

1000 

2000 

3000 

3500 


Cali,  lower 
RVS(JBITS)  =  kMSO 

c  iMiNue 

WRITE (15/4 000)IY, RMS 
CONTINUE 

FIRMATC'  ',11X, 'TABLE  JA-4.  RMS  ERRORS  FOR  SOLUTION 

*  0  AS  A  FUNCTION  OF  SCALE') 

F  )MMAT( ///, 1 5X, 'NUMBER  OF  BITS  FOR  SCALE') 

FORMAT!'  ','  OIST  1  2  3  4', 

*  '  5  6') 

F  )RMAT(/,  ' — ---- - - - - - - - ------ 

*  ,' . . ') 

F  )R*AT(  '  'I4,lX,E9.3,lX,E9.3,lX,E9.3,1X,Ey.3, 

*  1X,E9.3,IX,F9.3) 

E  J  D 


4000 


END 


FILMED 


DTIC 


